|
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: 24372 (0x5f34)
Notes: pts_type(SC)
Names: »C:FUA.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/C:FUA.SC«
IDENT C:FUA CONPAC REL=1.0 DATE= 80.04.29 UPDATE #4 78.03.07 JES *************************************************************** * * CONCENTRATOR APPLICATION PACKAGE PEAB-T * * PROGRAMMER: PER OMAN / PAN * * * C : F U A * * * * * THIS MODULE CONTAINS THE CONCENTRATOR FUNCTIONS HANDLING * OPERATORS TERMINAL * * - K:ROPT READING OPERATORS TERMINAL (OPT) * - K:POP PRINT ON OPT (FROM TRASK OR DCCC) * - K:DPOP PRINT ON OPT (FROM TRASK OR DCCC) AND IF K:DPI=1 ALSO ON * SIMULATED TERMINAL 0 * - K:PRTT PRINT ON OPT (FROM OPCOM) ON NEW LINE * AND GET PRESENT TIME * - K:PRTN PRINT ON OPT (FROM OPCOM) ON NEW LINE * - K:PRT PRINT ON OPT (FROM OPCOM) WITHOUT EDITING NEW LINE * * * * * THE MODULE CONTAINS THE SUBROUTINES: * * NAME REVDAT VERSION * * K:ROPT 77-05-31 * K:POP 75-10-30 * K:DPOP 75-10-30 * K:PRTT 78.03.07 * K:PRTN 77-04-25 * K:PRT 77-04-25 * **************************************************************** EJECT IDENT C:FUA * * * ENTRY ADDRESSES * *************************************************************** * * ENTRY DESCRIPTION * ENTRY K:ROPT READ OPT ENTRY K:POP PRINT ON OPT ENTRY K:DPOP DOUBLE PRINT ON OPT AND SIM TERM 0 ENTRY K:PRTT PRINT NEW LINE AND TIME ENTRY K:PRTN PRINT ON NEW LINE ENTRY K:PRT PRINT ON OPT * * SWITCH INDICATING THAT PREVIOUS COMMAND IS TO BE REPEATED * ENTRY K:IRSW USED IN OPCOM EJECT IDENT C:FUA * * * EXTERNAL REFERENSES * *************************************************************** * * ADDRESS IN MODULE * * EXTRN K:CKF CHECK FORMAT * EXTRN K:F375 C:TXT EXTRN K:F370 * EXTRN K:KBE C:TCA EXTRN K:KBB EXTRN K:GPE EXTRN K:S0E EXTRN K:DPI * EXTRN T:WRT TOSS FUNC EXTRN T:WRTZ EXTRN T:EDTZ * EXTRN K:OPED C:BPL * EXTRN K:OPM C:OPC EXTRN K:SF01 * EXTRN K:ST10 C:SUB EXTRN K:LD10 * EXTRN K:ST2 EXTRN K:LD2 * EXTRN K:WBT C:WBS * EXTRN K:ID C:SET EJECT IDENT C:FUA * * HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST * NLIST * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * EJECT IDENT C:EQU **COMMON AREA FRAME** * * EXTERNALS * EXTRN T:ADD EXTRN T:ADDC EXTRN T:SUB EXTRN T:SUBC * EXTRN T:MUL TOSS-MULDIV EXTRN T:MULC EXTRN T:DIV EXTRN T:DIVC EJECT IDENT C:EQU * * FORMS FOR FORMAT CODES * EOL FORM 8=1,8 END OF FORMAT LIST EOR FORM 8=9,8 END OF RECORD TXT FORM 8=/10,8 TEXT ELEMENT CONTXT FORM 8=/12,8 TEXT CONSTANT ELEMENT IMTXT FORM 8=/11,8 IMIDEATE TEXT CONSTANT ENDSUB FORM 16=/1700 END OF SUBFORMAT COND FORM 8=/1F,8 CONDITIONAL FORMAT FILLER FORM 8,8 FILLER SPACE FORM 8=/20,8 SPACE PICT FORM 1=1,7,8 PICTURE PICREF FORM 8,8,16 GENERATE FORMS BYTE FORM 8,8 BCD FORM 4=0,12 ASCII FORM 4=8,12 ADD FORM 16=/F6A1,16=T:ADD,8,8 ADDC FORM 16=/F6A1,16=T:ADDC,8,8 SUB FORM 16=/F6A1,16=T:SUB,8,8 SUBC FORM 16=/F6A1,16=T:SUBC,8,8 MUL FORM 16=/F6A1,16=T:MUL,8,8,8,8 MULC FORM 16=/F6A1,16=T:MULC,8,8,8,8 DIV FORM 16=/F6A1,16=T:DIV,8,8,8,8 DIVC FORM 16=/F6A1,16=T:DIVC,8,8,8,8 EJECT IDENT C:EQU * * CONSTANT TCA EQUATES * CA1 EQU /10 CB1 EQU /20 CB10 EQU /21 CB100 EQU /22 CB1000 EQU /23 CB32K EQU /24 YEAR EQU /30 MONTH EQU /31 DAY EQU /32 HOUR EQU /40 MIN EQU /41 SEC EQU /42 * * LINE WORKBLOCKS EQUATES * LIN EQU /10 LINE NBR LINBC EQU /11 BUSY COUNTER LINTC EQU /12 TRANS COUNTER LINEC EQU /13 ERROR COUNTER LINHUR EQU /14 TIME OF LAST TRANS LINMIN EQU /15 LINSEC EQU /16 * * TC WORKBLOCK EQUATES * TC EQU /20 TCBC EQU /21 TCTC EQU /22 TCEC EQU /23 TCHUR EQU /24 TCMIN EQU /25 TCSEC EQU /26 EJECT IDENT C:EQU * * CC WORKBLOCK RESPONSETIME EQUATES * CC1 EQU /30 CC2 EQU /31 CC3 EQU /32 CC4 EQU /33 CC5 EQU /34 CC6 EQU /35 CC7 EQU /36 CC8 EQU /37 CC9 EQU /38 CC10 EQU /39 CC11 EQU /3A CC12 EQU /3B * * CC WORKBLOCK EQUATES * CCTO EQU /40 TIME OUT COUNTER CCTC EQU /41 CCEC EQU /42 CCSUP EQU /43 SUPERV MSGS COUNTER CCHUR EQU /44 TIME OF LAST REPLY CCMIN EQU /45 CCSEC EQU /46 EJECT IDENT C:EQU * * NETWORK WORKBLOCK EQUATES * NWTC EQU /5D ACCUMULATED TRANS COUNTER NWEC EQU /5E ACC ERROR COUNT * PCNT1 EQU /50 % INTERVALS PCNT2 EQU /51 PCNT3 EQU /52 PCNT4 EQU /53 PCNT5 EQU /54 PCNT6 EQU /55 PCNT7 EQU /56 PCNT8 EQU /57 PCNT9 EQU /58 PCNT10 EQU /59 PCNT11 EQU /5A PCNT12 EQU /5B * RSPTIM EQU /5C RESPONSE TIME PCNTW EQU /5F % WORK AREA 1 PCNTW2 EQU /6C %WORK AREA 2 * * CC TEXT-INTERVAL EQUATES * IN1 EQU /60 IN2 EQU /61 IN3 EQU /62 IN4 EQU /63 IN5 EQU /64 IN6 EQU /65 IN7 EQU /66 IN8 EQU /67 IN9 EQU /68 IN10 EQU /69 IN11 EQU /6A IN12 EQU /6B EJECT IDENT C:EQU * CVTCLK EQU /98 ADDRESS TO MONITOR CLOCK * IDXBL EQU -4 INDEX IN CC-BUFFER TO LENGTH ORIGIN EQU -4 INDEX TO COMMAND ORIGIN INDICATOR IN TCA INPBL EQU -4 INDEX TO INPUT BUFFER LENGTH * K:EBA EQU 2 ECB EQUATES K:ERL EQU 4 K:EEL EQU 6 K:ERC EQU 8 K:ECW EQU 10 * * TCAWBL EQU 6 INDEX IN TCA TO LINE WB TCAWBT EQU 10 INDEX IN TCA TO TC WB EJECT IDENT C:EQU ******************************************************* * * SYSTEM ADAPTION PARAMETERS * * KEYBOARD KONTROL KEYS K:KKEY EQU /2F ENTRY K KEY K:UKEY EQU /28 ENTER U KEY K:EOR EQU /2A END OF RECORD KEY CANCEL EQU /23 CANCEL KEY * TIME OUT VALUES OF TRUNK LINE K:WTIM EQU 60 CC WRITE REQUEST TIME OUT (X100 MS) K:QTIM EQU 600 CC EXCHANGE REQUEST TIME OUT (X100 MS) * BUFFER LENGTHS K:CCBL EQU 1150 CCWRITE BUFFER LENGTH (WORDS) K:EDBL EQU 50 EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) K:BLTC EQU 64 LENGTH OF CASSETTE BUFFER (WORDS) K:KBL EQU 70 KB BUF LENGTH IN WORDS K:KBBL EQU K:KBL+K:KBL IN CHARS K:GPBL EQU 60 GP BUF LENGTH IN WORDS K:S0BL EQU 60 SIMULATED TERMINAL 0 BUF (WORDS) K:INBL EQU 1150 TERMINAL LINE INPUT BUF LENGTH (WORDS) EJECT * COMMUNICATION ADDRESSES FOR TRUNK LINE. IF SPECIFIED AT SYSTEM GENERATION K:CCAD EQU 0 CONCENTRATOR ADDRESS LEFT BYTE = SELECT ADDR. RIGHT BYTE = POLL ADDR. K:SIMZ EQU 0 SIM. TERM. FOR COMMANDS/SYSTEM MESSAGES AND SYSTEM MESSAGES K:SIMS EQU 0 SIM. TERM. FOR SUPERVISORY MESSAGES K:FCS EQU 0 DEVICE FILE CODE OF K:SIMS IF USED
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT C:FUA CONPAC REL=1.0 DATE= 80.04.29 «, t00=0x0000, t01=0x0004}
0x0034…0056 Head {h00=0x001e, h01=0x0050, text=» UPDATE #4 78.03.07 JES «, t00=0x0000, t01=0x0038}
0x0056…009e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x005a}
0x009e…00a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a2}
0x00a8…00da Head {h00=0x002e, h01=0x0050, text=»* CONCENTRATOR APPLICATION PACKAGE PEAB-T«, t00=0x0000, t01=0x00ac}
0x00da…00e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00de}
0x00e4…010a Head {h00=0x0022, h01=0x0050, text=»* PROGRAMMER: PER OMAN / PAN «, t00=0x0000, t01=0x00e8}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0132 Head {h00=0x0010, h01=0x0050, text=»* C : F U A «, t00=0x0000, t01=0x0122}
0x0132…013c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0140}
0x0146…0154 Head {h00=0x000a, h01=0x0050, text=»* * «, t00=0x0000, t01=0x014a}
0x0154…0198 Head {h00=0x0040, h01=0x0050, text=»* THIS MODULE CONTAINS THE CONCENTRATOR FUNCTIONS HANDLING«, t00=0x0000, t01=0x0158}
0x0198…01b6 Head {h00=0x001a, h01=0x0050, text=»* OPERATORS TERMINAL«, t00=0x0001, t01=0x000c}
0x01b6…01c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002a}
0x01c0…01f4 Head {h00=0x0030, h01=0x0050, text=»* - K:ROPT READING OPERATORS TERMINAL (OPT)«, t00=0x0001, t01=0x0034}
0x01f4…022a Head {h00=0x0032, h01=0x0050, text=»* - K:POP PRINT ON OPT (FROM TRASK OR DCCC) «, t00=0x0001, t01=0x0068}
0x022a…0276 Head {h00=0x0048, h01=0x0050, text=»* - K:DPOP PRINT ON OPT (FROM TRASK OR DCCC) AND IF K:DPI=1 ALSO ON«, t00=0x0001, t01=0x009e}
0x0276…029e Head {h00=0x0024, h01=0x0050, text=»* SIMULATED TERMINAL 0«, t00=0x0001, t01=0x00ea}
0x029e…02d8 Head {h00=0x0036, h01=0x0050, text=»* - K:PRTT PRINT ON OPT (FROM OPCOM) ON NEW LINE «, t00=0x0001, t01=0x0112}
0x02d8…0300 Head {h00=0x0024, h01=0x0050, text=»* AND GET PRESENT TIME«, t00=0x0001, t01=0x014c}
0x0300…033a Head {h00=0x0036, h01=0x0050, text=»* - K:PRTN PRINT ON OPT (FROM OPCOM) ON NEW LINE «, t00=0x0001, t01=0x0174}
0x033a…0380 Head {h00=0x0042, h01=0x0050, text=»* - K:PRT PRINT ON OPT (FROM OPCOM) WITHOUT EDITING NEW LINE«, t00=0x0002, t01=0x001e}
0x0380…038e Head {h00=0x000a, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0064}
0x038e…0398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0072}
0x0398…03a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007c}
0x03a2…03d0 Head {h00=0x002a, h01=0x0050, text=»* THE MODULE CONTAINS THE SUBROUTINES:«, t00=0x0002, t01=0x0086}
0x03d0…03da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…03f8 Head {h00=0x001a, h01=0x0050, text=»* NAME REVDAT VERSION «, t00=0x0002, t01=0x00be}
0x03f8…0402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x0402…041c Head {h00=0x0016, h01=0x0050, text=»* K:ROPT 77-05-31 «, t00=0x0002, t01=0x00e6}
0x041c…0434 Head {h00=0x0014, h01=0x0050, text=»* K:POP 75-10-30«, t00=0x0002, t01=0x0100}
0x0434…044e Head {h00=0x0016, h01=0x0050, text=»* K:DPOP 75-10-30 «, t00=0x0002, t01=0x0118}
0x044e…0468 Head {h00=0x0016, h01=0x0050, text=»* K:PRTT 78.03.07 «, t00=0x0002, t01=0x0132}
0x0468…0482 Head {h00=0x0016, h01=0x0050, text=»* K:PRTN 77-04-25 «, t00=0x0002, t01=0x014c}
0x0482…049a Head {h00=0x0014, h01=0x0050, text=»* K:PRT 77-04-25«, t00=0x0002, t01=0x0166}
0x049a…04a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017e}
0x04a4…04ec Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0002, t01=0x0188}
0x04ec…0508 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:FUA «, t00=0x0003, t01=0x0040}
0x0508…0512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005c}
0x0512…051c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0066}
0x051c…0536 Head {h00=0x0016, h01=0x0050, text=»* ENTRY ADDRESSES «, t00=0x0003, t01=0x0070}
0x0536…0540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008a}
0x0540…0588 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0003, t01=0x0094}
0x0588…0592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00dc}
0x0592…05ae Head {h00=0x0018, h01=0x0050, text=»* ENTRY DESCRIPTION«, t00=0x0003, t01=0x00e6}
0x05ae…05b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0102}
0x05b8…05d6 Head {h00=0x001a, h01=0x0050, text=» ENTRY K:ROPT READ OPT«, t00=0x0003, t01=0x010c}
0x05d6…05f8 Head {h00=0x001e, h01=0x0050, text=» ENTRY K:POP PRINT ON OPT «, t00=0x0003, t01=0x012a}
0x05f8…0630 Head {h00=0x0034, h01=0x0050, text=» ENTRY K:DPOP DOUBLE PRINT ON OPT AND SIM TERM 0«, t00=0x0003, t01=0x014c}
0x0630…0638 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0184}
0x0638…0666 Head {h00=0x002a, h01=0x0050, text=» ENTRY K:PRTT PRINT NEW LINE AND TIME «, t00=0x0003, t01=0x018c}
0x0666…068e Head {h00=0x0024, h01=0x0050, text=» ENTRY K:PRTN PRINT ON NEW LINE «, t00=0x0004, t01=0x002a}
0x068e…06b0 Head {h00=0x001e, h01=0x0050, text=» ENTRY K:PRT PRINT ON OPT «, t00=0x0004, t01=0x0052}
0x06b0…06ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0074}
0x06ba…06fe Head {h00=0x0040, h01=0x0050, text=»* SWITCH INDICATING THAT PREVIOUS COMMAND IS TO BE REPEATED «, t00=0x0004, t01=0x007e}
0x06fe…0708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c2}
0x0708…072c Head {h00=0x0020, h01=0x0050, text=» ENTRY K:IRSW USED IN OPCOM «, t00=0x0004, t01=0x00cc}
0x072c…0748 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:FUA «, t00=0x0004, t01=0x00f0}
0x0748…0752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x0752…075c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075c…077a Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENSES «, t00=0x0004, t01=0x0120}
0x077a…0784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013e}
0x0784…07cc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0004, t01=0x0148}
0x07cc…07d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0190}
0x07d6…07f2 Head {h00=0x0018, h01=0x0050, text=»* ADDRESS IN MODULE«, t00=0x0005, t01=0x000a}
0x07f2…07fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0026}
0x07fc…0806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0030}
0x0806…0828 Head {h00=0x001e, h01=0x0050, text=» EXTRN K:CKF CHECK FORMAT «, t00=0x0005, t01=0x003a}
0x0828…0832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005c}
0x0832…084e Head {h00=0x0018, h01=0x0050, text=» EXTRN K:F375 C:TXT «, t00=0x0005, t01=0x0066}
0x084e…0864 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F370 «, t00=0x0005, t01=0x0082}
0x0864…086e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0098}
0x086e…0888 Head {h00=0x0016, h01=0x0050, text=» EXTRN K:KBE C:TCA«, t00=0x0005, t01=0x00a2}
0x0888…089c Head {h00=0x0010, h01=0x0050, text=» EXTRN K:KBB«, t00=0x0005, t01=0x00bc}
0x089c…08b0 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:GPE«, t00=0x0005, t01=0x00d0}
0x08b0…08c4 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:S0E«, t00=0x0005, t01=0x00e4}
0x08c4…08d8 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:DPI«, t00=0x0005, t01=0x00f8}
0x08d8…08e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010c}
0x08e2…0900 Head {h00=0x001a, h01=0x0050, text=» EXTRN T:WRT TOSS FUNC«, t00=0x0005, t01=0x0116}
0x0900…0916 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:WRTZ «, t00=0x0005, t01=0x0134}
0x0916…092c Head {h00=0x0012, h01=0x0050, text=» EXTRN T:EDTZ «, t00=0x0005, t01=0x014a}
0x092c…0936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0160}
0x0936…0952 Head {h00=0x0018, h01=0x0050, text=» EXTRN K:OPED C:BPL «, t00=0x0005, t01=0x016a}
0x0952…095c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0186}
0x095c…0976 Head {h00=0x0016, h01=0x0050, text=» EXTRN K:OPM C:OPC«, t00=0x0005, t01=0x0190}
0x0976…098c Head {h00=0x0012, h01=0x0050, text=» EXTRN K:SF01 «, t00=0x0006, t01=0x001a}
0x098c…0996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0030}
0x0996…09b2 Head {h00=0x0018, h01=0x0050, text=» EXTRN K:ST10 C:SUB «, t00=0x0006, t01=0x003a}
0x09b2…09c8 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:LD10 «, t00=0x0006, t01=0x0056}
0x09c8…09d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006c}
0x09d2…09e6 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:ST2«, t00=0x0006, t01=0x0076}
0x09e6…09fa Head {h00=0x0010, h01=0x0050, text=» EXTRN K:LD2«, t00=0x0006, t01=0x008a}
0x09fa…0a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009e}
0x0a04…0a1e Head {h00=0x0016, h01=0x0050, text=» EXTRN K:WBT C:WBS«, t00=0x0006, t01=0x00a8}
0x0a1e…0a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c2}
0x0a28…0a42 Head {h00=0x0016, h01=0x0050, text=» EXTRN K:ID C:SET «, t00=0x0006, t01=0x00cc}
0x0a42…0a5e Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:FUA «, t00=0x0006, t01=0x00e6}
0x0a5e…0a66 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0102}
0x0a66…0a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010a}
0x0a70…0ac0 Head {h00=0x004c, h01=0x0050, text=»* HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST «, t00=0x0006, t01=0x0114}
0x0ac0…0aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0164}
0x0aca…0ad8 Head {h00=0x000a, h01=0x0050, text=» NLIST«, t00=0x0006, t01=0x016e}
0x0ad8…0ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017c}
0x0ae2…0aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0186}
0x0aec…0af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0190}
0x0af6…0b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000a}
0x0b00…0b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0014}
0x0b0a…0b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001e}
0x0b14…0b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0028}
0x0b1e…0b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b28…0b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003c}
0x0b32…0b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0046}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b46…0b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005a}
0x0b50…0b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0064}
0x0b5a…0b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006e}
0x0b64…0b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0078}
0x0b6e…0b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0082}
0x0b78…0b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0x0b8c…0b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a0}
0x0b96…0ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00aa}
0x0ba0…0baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b4}
0x0baa…0bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00be}
0x0bb4…0bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c8}
0x0bbe…0bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d2}
0x0bc8…0bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00dc}
0x0bd2…0bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x0bdc…0be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f0}
0x0be6…0bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fa}
0x0bf0…0bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0104}
0x0bfa…0c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010e}
0x0c04…0c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0118}
0x0c0e…0c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0122}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c22…0c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0136}
0x0c2c…0c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0140}
0x0c36…0c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014a}
0x0c40…0c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c4a…0c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c54…0c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0168}
0x0c5e…0c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0172}
0x0c68…0c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017c}
0x0c72…0c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7c…0c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0190}
0x0c86…0c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x000a}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0014}
0x0c9a…0ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001e}
0x0ca4…0cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0028}
0x0cae…0ce0 Head {h00=0x002e, h01=0x0050, text=» EJECT IDENT C:EQU **COMMON AREA FRAME** «, t00=0x0008, t01=0x0032}
0x0ce0…0cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0064}
0x0cea…0d00 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS «, t00=0x0008, t01=0x006e}
0x0d00…0d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0084}
0x0d0a…0d1e Head {h00=0x0010, h01=0x0050, text=» EXTRN T:ADD«, t00=0x0008, t01=0x008e}
0x0d1e…0d34 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:ADDC «, t00=0x0008, t01=0x00a2}
0x0d34…0d48 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:SUB«, t00=0x0008, t01=0x00b8}
0x0d48…0d5e Head {h00=0x0012, h01=0x0050, text=» EXTRN T:SUBC «, t00=0x0008, t01=0x00cc}
0x0d5e…0d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e2}
0x0d68…0d88 Head {h00=0x001c, h01=0x0050, text=» EXTRN T:MUL TOSS-MULDIV«, t00=0x0008, t01=0x00ec}
0x0d88…0d9e Head {h00=0x0012, h01=0x0050, text=» EXTRN T:MULC «, t00=0x0008, t01=0x010c}
0x0d9e…0db2 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:DIV«, t00=0x0008, t01=0x0122}
0x0db2…0dc8 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:DIVC «, t00=0x0008, t01=0x0136}
0x0dc8…0de4 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0008, t01=0x014c}
0x0de4…0dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0168}
0x0dee…0e10 Head {h00=0x001e, h01=0x0050, text=»* FORMS FOR FORMAT CODES«, t00=0x0008, t01=0x0172}
0x0e10…0e1a (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e1a…0e44 Head {h00=0x0026, h01=0x0050, text=»EOL FORM 8=1,8 END OF FORMAT LIST «, t00=0x0009, t01=0x000e}
0x0e44…0e68 Head {h00=0x0020, h01=0x0050, text=»EOR FORM 8=9,8 END OF RECORD«, t00=0x0009, t01=0x0038}
0x0e68…0e8e Head {h00=0x0022, h01=0x0050, text=»TXT FORM 8=/10,8 TEXT ELEMENT «, t00=0x0009, t01=0x005c}
0x0e8e…0ec0 Head {h00=0x002e, h01=0x0050, text=»CONTXT FORM 8=/12,8 TEXT CONSTANT ELEMENT «, t00=0x0009, t01=0x0082}
0x0ec0…0ef2 Head {h00=0x002e, h01=0x0050, text=»IMTXT FORM 8=/11,8 IMIDEATE TEXT CONSTANT «, t00=0x0009, t01=0x00b4}
0x0ef2…0f20 Head {h00=0x002a, h01=0x0050, text=»ENDSUB FORM 16=/1700 END OF SUBFORMAT «, t00=0x0009, t01=0x00e6}
0x0f20…0f4c Head {h00=0x0028, h01=0x0050, text=»COND FORM 8=/1F,8 CONDITIONAL FORMAT«, t00=0x0009, t01=0x0114}
0x0f4c…0f6a Head {h00=0x001a, h01=0x0050, text=»FILLER FORM 8,8 FILLER«, t00=0x0009, t01=0x0140}
0x0f6a…0f8a Head {h00=0x001c, h01=0x0050, text=»SPACE FORM 8=/20,8 SPACE«, t00=0x0009, t01=0x015e}
0x0f8a…0fac Head {h00=0x001e, h01=0x0050, text=»PICT FORM 1=1,7,8 PICTURE «, t00=0x0009, t01=0x017e}
0x0fac…0fd6 Head {h00=0x0026, h01=0x0050, text=»PICREF FORM 8,8,16 GENERATE FORMS «, t00=0x000a, t01=0x0010}
0x0fd6…0fec Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x000a, t01=0x003a}
0x0fec…1004 Head {h00=0x0014, h01=0x0050, text=»BCD FORM 4=0,12 «, t00=0x000a, t01=0x0050}
0x1004…101e Head {h00=0x0016, h01=0x0050, text=»ASCII FORM 4=8,12 «, t00=0x000a, t01=0x0068}
0x101e…1044 Head {h00=0x0022, h01=0x0050, text=»ADD FORM 16=/F6A1,16=T:ADD,8,8«, t00=0x000a, t01=0x0082}
0x1044…106c Head {h00=0x0024, h01=0x0050, text=»ADDC FORM 16=/F6A1,16=T:ADDC,8,8«, t00=0x000a, t01=0x00a8}
0x106c…1092 Head {h00=0x0022, h01=0x0050, text=»SUB FORM 16=/F6A1,16=T:SUB,8,8«, t00=0x000a, t01=0x00d0}
0x1092…10ba Head {h00=0x0024, h01=0x0050, text=»SUBC FORM 16=/F6A1,16=T:SUBC,8,8«, t00=0x000a, t01=0x00f6}
0x10ba…10e4 Head {h00=0x0026, h01=0x0050, text=»MUL FORM 16=/F6A1,16=T:MUL,8,8,8,8«, t00=0x000a, t01=0x011e}
0x10e4…1110 Head {h00=0x0028, h01=0x0050, text=»MULC FORM 16=/F6A1,16=T:MULC,8,8,8,8«, t00=0x000a, t01=0x0148}
0x1110…113a Head {h00=0x0026, h01=0x0050, text=»DIV FORM 16=/F6A1,16=T:DIV,8,8,8,8«, t00=0x000a, t01=0x0174}
0x113a…1166 Head {h00=0x0028, h01=0x0050, text=»DIVC FORM 16=/F6A1,16=T:DIVC,8,8,8,8«, t00=0x000b, t01=0x000e}
0x1166…1182 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000b, t01=0x003a}
0x1182…118c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0056}
0x118c…11ac Head {h00=0x001c, h01=0x0050, text=»* CONSTANT TCA EQUATES«, t00=0x000b, t01=0x0060}
0x11ac…11b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0080}
0x11b6…11ca Head {h00=0x0010, h01=0x0050, text=»CA1 EQU /10 «, t00=0x000b, t01=0x008a}
0x11ca…11de Head {h00=0x0010, h01=0x0050, text=»CB1 EQU /20 «, t00=0x000b, t01=0x009e}
0x11de…11f2 Head {h00=0x0010, h01=0x0050, text=»CB10 EQU /21«, t00=0x000b, t01=0x00b2}
0x11f2…1208 Head {h00=0x0012, h01=0x0050, text=»CB100 EQU /22 «, t00=0x000b, t01=0x00c6}
0x1208…121e Head {h00=0x0012, h01=0x0050, text=»CB1000 EQU /23«, t00=0x000b, t01=0x00dc}
0x121e…1234 Head {h00=0x0012, h01=0x0050, text=»CB32K EQU /24 «, t00=0x000b, t01=0x00f2}
0x1234…1248 Head {h00=0x0010, h01=0x0050, text=»YEAR EQU /30«, t00=0x000b, t01=0x0108}
0x1248…125e Head {h00=0x0012, h01=0x0050, text=»MONTH EQU /31 «, t00=0x000b, t01=0x011c}
0x125e…1272 Head {h00=0x0010, h01=0x0050, text=»DAY EQU /32 «, t00=0x000b, t01=0x0132}
0x1272…1286 Head {h00=0x0010, h01=0x0050, text=»HOUR EQU /40«, t00=0x000b, t01=0x0146}
0x1286…129a Head {h00=0x0010, h01=0x0050, text=»MIN EQU /41 «, t00=0x000b, t01=0x015a}
0x129a…12ae Head {h00=0x0010, h01=0x0050, text=»SEC EQU /42 «, t00=0x000b, t01=0x016e}
0x12ae…12b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0182}
0x12b8…12dc Head {h00=0x0020, h01=0x0050, text=»* LINE WORKBLOCKS EQUATES «, t00=0x000b, t01=0x018c}
0x12dc…12e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0020}
0x12e6…1302 Head {h00=0x0018, h01=0x0050, text=»LIN EQU /10 LINE NBR«, t00=0x000c, t01=0x002a}
0x1302…1324 Head {h00=0x001e, h01=0x0050, text=»LINBC EQU /11 BUSY COUNTER«, t00=0x000c, t01=0x0046}
0x1324…1348 Head {h00=0x0020, h01=0x0050, text=»LINTC EQU /12 TRANS COUNTER «, t00=0x000c, t01=0x0068}
0x1348…136c Head {h00=0x0020, h01=0x0050, text=»LINEC EQU /13 ERROR COUNTER «, t00=0x000c, t01=0x008c}
0x136c…1396 Head {h00=0x0026, h01=0x0050, text=»LINHUR EQU /14 TIME OF LAST TRANS «, t00=0x000c, t01=0x00b0}
0x1396…13ac Head {h00=0x0012, h01=0x0050, text=»LINMIN EQU /15«, t00=0x000c, t01=0x00da}
0x13ac…13c2 Head {h00=0x0012, h01=0x0050, text=»LINSEC EQU /16«, t00=0x000c, t01=0x00f0}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0106}
0x13cc…13ec Head {h00=0x001c, h01=0x0050, text=»* TC WORKBLOCK EQUATES«, t00=0x000c, t01=0x0110}
0x13ec…13f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0130}
0x13f6…1408 Head {h00=0x000e, h01=0x0050, text=»TC EQU /20«, t00=0x000c, t01=0x013a}
0x1408…141c Head {h00=0x0010, h01=0x0050, text=»TCBC EQU /21«, t00=0x000c, t01=0x014c}
0x141c…1430 Head {h00=0x0010, h01=0x0050, text=»TCTC EQU /22«, t00=0x000c, t01=0x0160}
0x1430…1444 Head {h00=0x0010, h01=0x0050, text=»TCEC EQU /23«, t00=0x000c, t01=0x0174}
0x1444…145a Head {h00=0x0012, h01=0x0050, text=»TCHUR EQU /24 «, t00=0x000c, t01=0x0188}
0x145a…1470 Head {h00=0x0012, h01=0x0050, text=»TCMIN EQU /25 «, t00=0x000d, t01=0x000e}
0x1470…1486 Head {h00=0x0012, h01=0x0050, text=»TCSEC EQU /26 «, t00=0x000d, t01=0x0024}
0x1486…14a2 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000d, t01=0x003a}
0x14a2…14ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0056}
0x14ac…14da Head {h00=0x002a, h01=0x0050, text=»* CC WORKBLOCK RESPONSETIME EQUATES «, t00=0x000d, t01=0x0060}
0x14da…14e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008e}
0x14e4…14f8 Head {h00=0x0010, h01=0x0050, text=»CC1 EQU /30 «, t00=0x000d, t01=0x0098}
0x14f8…150c Head {h00=0x0010, h01=0x0050, text=»CC2 EQU /31 «, t00=0x000d, t01=0x00ac}
0x150c…1520 Head {h00=0x0010, h01=0x0050, text=»CC3 EQU /32 «, t00=0x000d, t01=0x00c0}
0x1520…1534 Head {h00=0x0010, h01=0x0050, text=»CC4 EQU /33 «, t00=0x000d, t01=0x00d4}
0x1534…1548 Head {h00=0x0010, h01=0x0050, text=»CC5 EQU /34 «, t00=0x000d, t01=0x00e8}
0x1548…155c Head {h00=0x0010, h01=0x0050, text=»CC6 EQU /35 «, t00=0x000d, t01=0x00fc}
0x155c…1570 Head {h00=0x0010, h01=0x0050, text=»CC7 EQU /36 «, t00=0x000d, t01=0x0110}
0x1570…1584 Head {h00=0x0010, h01=0x0050, text=»CC8 EQU /37 «, t00=0x000d, t01=0x0124}
0x1584…1598 Head {h00=0x0010, h01=0x0050, text=»CC9 EQU /38 «, t00=0x000d, t01=0x0138}
0x1598…15ac Head {h00=0x0010, h01=0x0050, text=»CC10 EQU /39«, t00=0x000d, t01=0x014c}
0x15ac…15c0 Head {h00=0x0010, h01=0x0050, text=»CC11 EQU /3A«, t00=0x000d, t01=0x0160}
0x15c0…15d4 Head {h00=0x0010, h01=0x0050, text=»CC12 EQU /3B«, t00=0x000d, t01=0x0174}
0x15d4…15de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0188}
0x15de…15fe (14, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* CC WORKBLOCK EQUATES«, t00=0x000e, t01=0x0004}
0x15fe…1608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x1608…162e Head {h00=0x0022, h01=0x0050, text=»CCTO EQU /40 TIME OUT COUNTER «, t00=0x000e, t01=0x002e}
0x162e…1642 Head {h00=0x0010, h01=0x0050, text=»CCTC EQU /41«, t00=0x000e, t01=0x0054}
0x1642…1656 Head {h00=0x0010, h01=0x0050, text=»CCEC EQU /42«, t00=0x000e, t01=0x0068}
0x1656…1680 Head {h00=0x0026, h01=0x0050, text=»CCSUP EQU /43 SUPERV MSGS COUNTER «, t00=0x000e, t01=0x007c}
0x1680…16a8 Head {h00=0x0024, h01=0x0050, text=»CCHUR EQU /44 TIME OF LAST REPLY«, t00=0x000e, t01=0x00a6}
0x16a8…16be Head {h00=0x0012, h01=0x0050, text=»CCMIN EQU /45 «, t00=0x000e, t01=0x00ce}
0x16be…16d4 Head {h00=0x0012, h01=0x0050, text=»CCSEC EQU /46 «, t00=0x000e, t01=0x00e4}
0x16d4…16f0 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000e, t01=0x00fa}
0x16f0…16fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0116}
0x16fa…1720 Head {h00=0x0022, h01=0x0050, text=»* NETWORK WORKBLOCK EQUATES«, t00=0x000e, t01=0x0120}
0x1720…172a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0146}
0x172a…1758 Head {h00=0x002a, h01=0x0050, text=»NWTC EQU /5D ACCUMULATED TRANS COUNTER«, t00=0x000e, t01=0x0150}
0x1758…177c Head {h00=0x0020, h01=0x0050, text=»NWEC EQU /5E ACC ERROR COUNT«, t00=0x000e, t01=0x017e}
0x177c…1786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0012}
0x1786…17a8 Head {h00=0x001e, h01=0x0050, text=»PCNT1 EQU /50 % INTERVALS «, t00=0x000f, t01=0x001c}
0x17a8…17be Head {h00=0x0012, h01=0x0050, text=»PCNT2 EQU /51 «, t00=0x000f, t01=0x003e}
0x17be…17d4 Head {h00=0x0012, h01=0x0050, text=»PCNT3 EQU /52 «, t00=0x000f, t01=0x0054}
0x17d4…17ea Head {h00=0x0012, h01=0x0050, text=»PCNT4 EQU /53 «, t00=0x000f, t01=0x006a}
0x17ea…1800 Head {h00=0x0012, h01=0x0050, text=»PCNT5 EQU /54 «, t00=0x000f, t01=0x0080}
0x1800…1816 Head {h00=0x0012, h01=0x0050, text=»PCNT6 EQU /55 «, t00=0x000f, t01=0x0096}
0x1816…182c Head {h00=0x0012, h01=0x0050, text=»PCNT7 EQU /56 «, t00=0x000f, t01=0x00ac}
0x182c…1842 Head {h00=0x0012, h01=0x0050, text=»PCNT8 EQU /57 «, t00=0x000f, t01=0x00c2}
0x1842…1858 Head {h00=0x0012, h01=0x0050, text=»PCNT9 EQU /58 «, t00=0x000f, t01=0x00d8}
0x1858…186e Head {h00=0x0012, h01=0x0050, text=»PCNT10 EQU /59«, t00=0x000f, t01=0x00ee}
0x186e…1884 Head {h00=0x0012, h01=0x0050, text=»PCNT11 EQU /5A«, t00=0x000f, t01=0x0104}
0x1884…189a Head {h00=0x0012, h01=0x0050, text=»PCNT12 EQU /5B«, t00=0x000f, t01=0x011a}
0x189a…18a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x18a4…18c8 Head {h00=0x0020, h01=0x0050, text=»RSPTIM EQU /5C RESPONSE TIME«, t00=0x000f, t01=0x013a}
0x18c8…18ec Head {h00=0x0020, h01=0x0050, text=»PCNTW EQU /5F % WORK AREA 1 «, t00=0x000f, t01=0x015e}
0x18ec…1910 Head {h00=0x0020, h01=0x0050, text=»PCNTW2 EQU /6C %WORK AREA 2 «, t00=0x000f, t01=0x0182}
0x1910…191a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0016}
0x191a…193e Head {h00=0x0020, h01=0x0050, text=»* CC TEXT-INTERVAL EQUATES «, t00=0x0010, t01=0x0020}
0x193e…1948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0044}
0x1948…195c Head {h00=0x0010, h01=0x0050, text=»IN1 EQU /60 «, t00=0x0010, t01=0x004e}
0x195c…1970 Head {h00=0x0010, h01=0x0050, text=»IN2 EQU /61 «, t00=0x0010, t01=0x0062}
0x1970…1984 Head {h00=0x0010, h01=0x0050, text=»IN3 EQU /62 «, t00=0x0010, t01=0x0076}
0x1984…1998 Head {h00=0x0010, h01=0x0050, text=»IN4 EQU /63 «, t00=0x0010, t01=0x008a}
0x1998…19ac Head {h00=0x0010, h01=0x0050, text=»IN5 EQU /64 «, t00=0x0010, t01=0x009e}
0x19ac…19c0 Head {h00=0x0010, h01=0x0050, text=»IN6 EQU /65 «, t00=0x0010, t01=0x00b2}
0x19c0…19d4 Head {h00=0x0010, h01=0x0050, text=»IN7 EQU /66 «, t00=0x0010, t01=0x00c6}
0x19d4…19e8 Head {h00=0x0010, h01=0x0050, text=»IN8 EQU /67 «, t00=0x0010, t01=0x00da}
0x19e8…19fc Head {h00=0x0010, h01=0x0050, text=»IN9 EQU /68 «, t00=0x0010, t01=0x00ee}
0x19fc…1a10 Head {h00=0x0010, h01=0x0050, text=»IN10 EQU /69«, t00=0x0010, t01=0x0102}
0x1a10…1a24 Head {h00=0x0010, h01=0x0050, text=»IN11 EQU /6A«, t00=0x0010, t01=0x0116}
0x1a24…1a38 Head {h00=0x0010, h01=0x0050, text=»IN12 EQU /6B«, t00=0x0010, t01=0x012a}
0x1a38…1a54 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0010, t01=0x013e}
0x1a54…1a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015a}
0x1a5e…1a8e Head {h00=0x002c, h01=0x0050, text=»CVTCLK EQU /98 ADDRESS TO MONITOR CLOCK «, t00=0x0010, t01=0x0164}
0x1a8e…1a98 (17, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a98…1aca Head {h00=0x002e, h01=0x0050, text=»IDXBL EQU -4 INDEX IN CC-BUFFER TO LENGTH «, t00=0x0011, t01=0x000e}
0x1aca…1b08 Head {h00=0x003a, h01=0x0050, text=»ORIGIN EQU -4 INDEX TO COMMAND ORIGIN INDICATOR IN TCA«, t00=0x0011, t01=0x0040}
0x1b08…1b3a Head {h00=0x002e, h01=0x0050, text=»INPBL EQU -4 INDEX TO INPUT BUFFER LENGTH «, t00=0x0011, t01=0x007e}
0x1b3a…1b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b0}
0x1b44…1b64 Head {h00=0x001c, h01=0x0050, text=»K:EBA EQU 2 ECB EQUATES «, t00=0x0011, t01=0x00ba}
0x1b64…1b78 Head {h00=0x0010, h01=0x0050, text=»K:ERL EQU 4 «, t00=0x0011, t01=0x00da}
0x1b78…1b8c Head {h00=0x0010, h01=0x0050, text=»K:EEL EQU 6 «, t00=0x0011, t01=0x00ee}
0x1b8c…1ba0 Head {h00=0x0010, h01=0x0050, text=»K:ERC EQU 8 «, t00=0x0011, t01=0x0102}
0x1ba0…1bb4 Head {h00=0x0010, h01=0x0050, text=»K:ECW EQU 10«, t00=0x0011, t01=0x0116}
0x1bb4…1bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012a}
0x1bbe…1bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0134}
0x1bc8…1bf4 Head {h00=0x0028, h01=0x0050, text=»TCAWBL EQU 6 INDEX IN TCA TO LINE WB«, t00=0x0011, t01=0x013e}
0x1bf4…1c20 Head {h00=0x0028, h01=0x0050, text=»TCAWBT EQU 10 INDEX IN TCA TO TC WB «, t00=0x0011, t01=0x016a}
0x1c20…1c3c Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0012, t01=0x0008}
0x1c3c…1c7c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0012, t01=0x0024}
0x1c7c…1c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0064}
0x1c86…1cac Head {h00=0x0022, h01=0x0050, text=»* SYSTEM ADAPTION PARAMETERS«, t00=0x0012, t01=0x006e}
0x1cac…1cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0094}
0x1cb6…1cd6 Head {h00=0x001c, h01=0x0050, text=»* KEYBOARD KONTROL KEYS «, t00=0x0012, t01=0x009e}
0x1cd6…1cf8 Head {h00=0x001e, h01=0x0050, text=»K:KKEY EQU /2F ENTRY K KEY«, t00=0x0012, t01=0x00be}
0x1cf8…1d1a Head {h00=0x001e, h01=0x0050, text=»K:UKEY EQU /28 ENTER U KEY«, t00=0x0012, t01=0x00e0}
0x1d1a…1d42 Head {h00=0x0024, h01=0x0050, text=»K:EOR EQU /2A END OF RECORD KEY «, t00=0x0012, t01=0x0102}
0x1d42…1d64 Head {h00=0x001e, h01=0x0050, text=»CANCEL EQU /23 CANCEL KEY «, t00=0x0012, t01=0x012a}
0x1d64…1d8c Head {h00=0x0024, h01=0x0050, text=»* TIME OUT VALUES OF TRUNK LINE «, t00=0x0012, t01=0x014c}
0x1d8c…1dc6 Head {h00=0x0036, h01=0x0050, text=»K:WTIM EQU 60 CC WRITE REQUEST TIME OUT (X100 MS) «, t00=0x0012, t01=0x0174}
0x1dc6…1e04 Head {h00=0x003a, h01=0x0050, text=»K:QTIM EQU 600 CC EXCHANGE REQUEST TIME OUT (X100 MS) «, t00=0x0013, t01=0x001e}
0x1e04…1e1c Head {h00=0x0014, h01=0x0050, text=»* BUFFER LENGTHS«, t00=0x0013, t01=0x005c}
0x1e1c…1e52 Head {h00=0x0032, h01=0x0050, text=»K:CCBL EQU 1150 CCWRITE BUFFER LENGTH (WORDS) «, t00=0x0013, t01=0x0074}
0x1e52…1e92 Head {h00=0x003c, h01=0x0050, text=»K:EDBL EQU 50 EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) «, t00=0x0013, t01=0x00aa}
0x1e92…1eca Head {h00=0x0034, h01=0x0050, text=»K:BLTC EQU 64 LENGTH OF CASSETTE BUFFER (WORDS) «, t00=0x0013, t01=0x00ea}
0x1eca…1ef6 Head {h00=0x0028, h01=0x0050, text=»K:KBL EQU 70 KB BUF LENGTH IN WORDS «, t00=0x0013, t01=0x0122}
0x1ef6…1f1e Head {h00=0x0024, h01=0x0050, text=»K:KBBL EQU K:KBL+K:KBL IN CHARS «, t00=0x0013, t01=0x014e}
0x1f1e…1f4a Head {h00=0x0028, h01=0x0050, text=»K:GPBL EQU 60 GP BUF LENGTH IN WORDS«, t00=0x0013, t01=0x0176}
0x1f4a…1f80 Head {h00=0x0032, h01=0x0050, text=»K:S0BL EQU 60 SIMULATED TERMINAL 0 BUF (WORDS)«, t00=0x0014, t01=0x0012}
0x1f80…1fbe Head {h00=0x003a, h01=0x0050, text=»K:INBL EQU 1150 TERMINAL LINE INPUT BUF LENGTH (WORDS)«, t00=0x0014, t01=0x0048}
0x1fbe…1fcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0086}
0x1fcc…2020 Head {h00=0x0050, h01=0x0050, text=»* COMMUNICATION ADDRESSES FOR TRUNK LINE. IF SPECIFIED AT SYSTEM GENERATION «, t00=0x0014, t01=0x0094}
0x2020…204a Head {h00=0x0026, h01=0x0050, text=»K:CCAD EQU 0 CONCENTRATOR ADDRESS «, t00=0x0014, t01=0x00e8}
0x204a…206e Head {h00=0x0020, h01=0x0050, text=» LEFT BYTE = SELECT ADDR. «, t00=0x0014, t01=0x0112}
0x206e…2090 Head {h00=0x001e, h01=0x0050, text=» RIGHT BYTE = POLL ADDR.«, t00=0x0014, t01=0x0136}
0x2090…20cc Head {h00=0x0038, h01=0x0050, text=»K:SIMZ EQU 0 SIM. TERM. FOR COMMANDS/SYSTEM MESSAGES«, t00=0x0014, t01=0x0158}
0x20cc…20ea (21, 0, 400) Head {h00=0x001a, h01=0x0050, text=» AND SYSTEM MESSAGES«, t00=0x0015, t01=0x0004}
0x20ea…2122 Head {h00=0x0034, h01=0x0050, text=»K:SIMS EQU 0 SIM. TERM. FOR SUPERVISORY MESSAGES«, t00=0x0015, t01=0x0022}
0x2122…2158 Head {h00=0x0032, h01=0x0050, text=»K:FCS EQU 0 DEVICE FILE CODE OF K:SIMS IF USED«, t00=0x0015, t01=0x005a}
0x2158…215c Head {h00=0x0054, h01=0x0050}
0x215c…2160 Head {h00=0x2a20, h01=0x5349}
0x2160…2170 4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c ┆MULATED TERMINAL┆
0x2170…21c0 20 41 44 44 52 45 53 53 45 53 20 46 4f 52 20 49 4e 51 55 49 52 59 2e 20 52 49 47 48 54 20 42 59 54 45 2e 20 49 46 20 53 50 45 43 49 46 49 45 44 20 41 54 20 53 59 53 54 45 4d 20 47 00 15 00 90 00 20 00 50 4b 3a 53 41 31 5c 45 51 55 5c 30 5c ┆ ADDRESSES FOR INQUIRY. RIGHT BYTE. IF SPECIFIED AT SYSTEM G PK:SA1 EQU 0 ┆
0x21c0…2210 53 49 4d 2e 20 54 45 52 4d 2e 20 4e 42 52 20 31 00 15 00 e8 00 16 00 50 4b 3a 53 41 32 5c 45 51 55 5c 30 5c 4e 42 52 20 32 20 00 15 01 0c 00 16 00 50 4b 3a 53 41 33 5c 45 51 55 5c 30 5c 4e 42 52 20 33 20 00 15 01 26 00 16 00 50 4b 3a 53 41 ┆SIM. TERM. NBR 1 PK:SA2 EQU 0 NBR 2 PK:SA3 EQU 0 NBR 3 & PK:SA┆
0x2210…225c 34 5c 45 51 55 5c 30 5c 4e 42 52 20 34 20 00 15 01 40 00 16 00 50 4b 3a 53 41 35 5c 45 51 55 5c 30 5c 4e 42 52 20 35 20 00 15 01 5a 00 16 00 50 4b 3a 53 41 36 5c 45 51 55 5c 30 5c 4e 42 52 20 36 20 00 15 01 74 00 16 00 50 4b 3a ┆4 EQU 0 NBR 4 @ PK:SA5 EQU 0 NBR 5 Z PK:SA6 EQU 0 NBR 6 t PK:┆
0x225c…22ac (22, 0, 400) 53 41 37 5c 45 51 55 5c 30 5c 4e 42 52 20 37 20 00 15 01 8e 00 16 00 50 4b 3a 53 41 38 5c 45 51 55 5c 30 5c 4e 42 52 20 38 20 00 16 00 18 00 16 00 50 4b 3a 53 41 39 5c 45 51 55 5c 30 5c 4e 42 52 20 39 20 00 16 00 32 00 18 00 50 4b 3a 53 41 ┆SA7 EQU 0 NBR 7 PK:SA8 EQU 0 NBR 8 PK:SA9 EQU 0 NBR 9 2 PK:SA┆
0x22ac…22fc 31 30 5c 45 51 55 5c 30 5c 4e 42 52 20 31 30 20 00 16 00 4c 00 18 00 50 4b 3a 53 41 31 31 5c 45 51 55 5c 30 5c 4e 42 52 20 31 31 20 00 16 00 68 00 18 00 50 4b 3a 53 41 31 32 5c 45 51 55 5c 30 5c 4e 42 52 20 31 32 20 00 16 00 84 00 18 00 50 ┆10 EQU 0 NBR 10 L PK:SA11 EQU 0 NBR 11 h PK:SA12 EQU 0 NBR 12 P┆
0x22fc…234c 4b 3a 53 41 31 33 5c 45 51 55 5c 30 5c 4e 42 52 20 31 33 20 00 16 00 a0 00 18 00 50 4b 3a 53 41 31 34 5c 45 51 55 5c 30 5c 4e 42 52 20 31 34 20 00 16 00 bc 00 18 00 50 4b 3a 53 41 31 35 5c 45 51 55 5c 30 5c 4e 42 52 20 31 35 20 00 16 00 d8 ┆K:SA13 EQU 0 NBR 13 PK:SA14 EQU 0 NBR 14 PK:SA15 EQU 0 NBR 15 ┆
0x234c…239c 00 18 00 50 4b 3a 53 41 31 36 5c 45 51 55 5c 30 5c 4e 42 52 20 31 36 20 00 16 00 f4 00 18 00 50 4b 3a 53 41 31 37 5c 45 51 55 5c 30 5c 4e 42 52 20 31 37 20 00 16 01 10 00 18 00 50 4b 3a 53 41 31 38 5c 45 51 55 5c 30 5c 4e 42 52 20 31 38 20 ┆ PK:SA16 EQU 0 NBR 16 PK:SA17 EQU 0 NBR 17 PK:SA18 EQU 0 NBR 18 ┆
0x239c…23ec 00 16 01 2c 00 18 00 50 4b 3a 53 41 31 39 5c 45 51 55 5c 30 5c 4e 42 52 20 31 39 20 00 16 01 48 00 18 00 50 4b 3a 53 41 32 30 5c 45 51 55 5c 30 5c 4e 42 52 20 32 30 20 00 16 01 64 00 18 00 50 4b 3a 53 41 32 31 5c 45 51 55 5c 30 5c 4e 42 52 ┆ , PK:SA19 EQU 0 NBR 19 H PK:SA20 EQU 0 NBR 20 d PK:SA21 EQU 0 NBR┆
0x23ec…243c (23, 0, 398) 20 32 31 20 00 16 01 80 00 18 00 50 4b 3a 53 41 32 32 5c 45 51 55 5c 30 5c 4e 42 52 20 32 32 20 00 17 00 0c 00 18 00 50 4b 3a 53 41 32 33 5c 45 51 55 5c 30 5c 4e 42 52 20 32 33 20 00 17 00 28 00 18 00 50 4b 3a 53 41 32 34 5c 45 51 55 5c 30 ┆ 21 PK:SA22 EQU 0 NBR 22 PK:SA23 EQU 0 NBR 23 ( PK:SA24 EQU 0┆
0x243c…248c 5c 4e 42 52 20 32 34 20 00 17 00 44 00 18 00 50 4b 3a 53 41 32 35 5c 45 51 55 5c 30 5c 4e 42 52 20 32 35 20 00 17 00 60 00 18 00 50 4b 3a 53 41 32 36 5c 45 51 55 5c 30 5c 4e 42 52 20 32 36 20 00 17 00 7c 00 0a 00 50 5c 45 4a 45 43 54 00 17 ┆ NBR 24 D PK:SA25 EQU 0 NBR 25 ` PK:SA26 EQU 0 NBR 26 | P EJECT ┆
0x248c…24dc 00 98 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 17 00 a6 00 06 00 50 2a 20 00 17 00 e6 00 2c 00 50 ┆ < P******************************************************* P* , P┆
0x24dc…252c 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 17 00 f0 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 ┆* PARAMETERS FOR CONDITIONAL ASSEMBLY ( P* OF CONCENTRATOR PACKAGE MODU┆
0x252c…257a 4c 45 53 20 00 17 01 20 00 06 00 50 2a 20 00 17 01 4c 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆LES P* L < P******************************************************* ┆
0x257a…25ca (24, 0, 400) 00 17 01 56 00 1c 00 50 58 3a 41 5c 45 51 55 5c 32 5c 2a 20 20 4e 4c 49 4e 45 20 3c 3d 31 30 20 00 18 00 08 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 18 00 28 00 1a 00 50 58 3a 42 5c ┆ V PX:A EQU 2 * NLINE <=10 P NUMBER OF TERMINAL LINES ( PX:B ┆
0x25ca…261a 45 51 55 5c 31 35 5c 2a 20 20 4e 54 43 20 3c 3d 38 30 00 18 00 4c 00 2e 00 50 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 18 00 6a 00 1c 00 50 58 3a 43 5c ┆EQU 15 * NTC <=80 L . P TOTAL NUMBER OF TC:S ON TERMINAL LINES j PX:C ┆
0x261a…266a 45 51 55 5c 32 36 5c 2a 20 20 4e 53 49 4d 20 3c 3d 32 36 20 00 18 00 9c 00 24 00 50 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 18 00 bc 00 14 00 50 5c 5c 5c 46 4f 52 20 49 4e 51 55 49 ┆EQU 26 * NSIM <=26 $ P NUMBER OF SIMULATED TERMINALS P FOR INQUI┆
0x266a…26ba 52 49 45 53 00 18 00 e4 00 16 00 50 58 3a 44 5c 45 51 55 5c 30 5c 2a 20 20 4c 4f 4f 50 20 00 18 00 fc 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 ┆RIES PX:D EQU 0 * LOOP . P IF = 0. MULTIPOINT CONFIG. DOWNSTREAMS ┆
0x26ba…270a 00 18 01 16 00 2e 00 50 5c 5c 5c 49 46 20 3d 20 31 2e 20 4c 4f 4f 50 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 4f 57 4e 53 54 52 45 41 4d 53 20 00 18 01 48 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 ┆ . P IF = 1. LOOP CONFIGURATION DOWNSTREAMS H PX:E EQU 4 * NSPOOL <=┆
0x270a…275a (25, 0, 400) 34 20 00 18 01 7a 00 28 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 45 44 49 54 20 42 55 46 46 45 52 53 20 46 4f 52 20 53 50 4f 4f 4c 20 00 19 00 0a 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 ┆4 z ( P NUMBER OF EDIT BUFFERS FOR SPOOL " P FUNCTION TO OPERATORS T┆
0x275a…27aa 45 52 4d 2e 00 19 00 36 00 20 00 50 58 3a 46 5c 45 51 55 5c 34 5c 2a 20 20 30 3c 20 4e 54 50 4c 49 4e 20 3c 3d 34 30 20 00 19 00 5c 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 ┆ERM. 6 PX:F EQU 4 * 0< NTPLIN <=40 ( P NUMBER OF TRASKS IN POOL 'TPL┆
0x27aa…27fa 49 4e 27 20 00 19 00 80 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 3a 53 00 19 00 ac 00 1e 00 50 58 3a 47 5c 45 51 55 5c 32 5c 2a 20 20 30 3c 20 4e 54 50 53 55 50 20 3c 3d 35 ┆IN' & P HANDLING TRANSACTIONS FROM TC:S PX:G EQU 2 * 0< NTPSUP <=5┆
0x27fa…284a 00 19 00 d6 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 19 00 f8 00 2c 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 ┆ ( P NUMBER OF TRASKS IN POOL 'TPSUP' , P HANDLING TRANSACTIONS FRO┆
0x284a…289a 4d 20 4d 41 49 4e 20 46 52 41 4d 45 00 19 01 24 00 1c 00 50 5c 5c 5c 4f 52 20 4f 50 45 52 41 54 4f 52 53 20 54 45 52 4d 49 4e 41 4c 00 19 01 54 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 19 01 74 00 24 00 50 ┆M MAIN FRAME $ P OR OPERATORS TERMINAL T PX:H EQU 1 * LINTST t $ P┆
0x289a…28ea (26, 0, 400) 5c 5c 5c 49 46 20 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 19 01 90 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 ┆ IF = 0. NO LINE TEST COMMAND 0 P IF = 1. LINE TEST FACILITY (4-WIRE ON┆
0x28ea…293a 4c 59 29 20 00 1a 00 28 00 18 00 50 58 3a 49 5c 45 51 55 5c 32 5c 2a 20 20 4f 4e 4c 49 4e 45 20 00 1a 00 5c 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 1a 00 78 00 28 00 50 ┆LY) ( PX:I EQU 2 * ONLINE $ P IF = 0. OFF LINE CONCENTRATOR x ( P┆
0x293a…298a 5c 5c 5c 49 46 20 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 1a 00 a0 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 1a 00 cc ┆ IF = 1. ON/OFF LINE CONCENTRATOR $ P IF = 2. ON LINE CONCENTRATOR ┆
0x298a…29da 00 18 00 50 58 3a 4b 5c 45 51 55 5c 31 5c 2a 20 20 53 45 54 41 44 52 20 00 1a 00 f4 00 0a 00 50 5c 4c 49 53 54 20 00 1a 01 10 00 36 00 50 44 41 54 49 4e 43 5c 45 51 55 5c 31 5c 49 46 20 31 20 41 55 54 4f 4d 41 54 49 43 20 49 4e 43 52 45 4d ┆ PX:K EQU 1 * SETADR P LIST 6 PDATINC EQU 1 IF 1 AUTOMATIC INCREM┆
0x29da…2a2a 45 4e 54 41 54 49 4f 4e 20 4f 46 20 44 41 54 45 00 1a 01 1e 00 2c 00 50 5c 5c 5c 4f 4e 4c 59 20 46 4f 52 20 54 4f 53 53 20 52 45 4c 45 41 53 45 20 38 2e 31 20 4f 52 20 47 52 45 41 54 45 52 20 00 1a 01 58 00 18 00 50 5c 45 4a 45 43 54 5c 5c ┆ENTATION OF DATE , P ONLY FOR TOSS RELEASE 8.1 OR GREATER X P EJECT ┆
0x2a2a…2a7a (27, 0, 400) 49 44 45 4e 54 20 43 3a 46 55 41 20 00 1a 01 88 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4b 20 3a 20 52 20 4f 20 50 20 54 20 20 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 ┆IDENT C:FUA J P******************* K : R O P T ***************************┆
0x2a7a…2aca 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1b 00 14 00 06 00 50 2a 20 00 1b 00 62 00 06 00 50 2a 20 00 1b 00 6c 00 06 00 50 2a 20 00 1b 00 76 00 1c 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 20 4b 20 3a 20 52 20 4f 20 50 20 54 20 00 1b 00 80 00 06 00 50 ┆********** P* b P* l P* v P*SUBROUTINE K : R O P T P┆
0x2aca…2b1a 2a 20 00 1b 00 a0 00 40 00 50 2a 52 45 41 44 53 20 54 48 45 20 4f 50 45 52 41 54 4f 52 53 20 54 45 52 4d 49 4e 41 4c 20 4b 45 59 42 4f 41 52 44 20 41 4e 44 20 43 48 45 43 4b 53 20 54 48 45 20 52 45 50 4c 59 20 00 1b 00 aa 00 3e 00 50 2a 46 ┆* @ P*READS THE OPERATORS TERMINAL KEYBOARD AND CHECKS THE REPLY > P*F┆
0x2b1a…2b6a 4f 52 20 56 41 4c 49 44 49 54 59 20 57 48 45 4e 20 45 4f 52 20 49 53 20 50 52 45 53 53 45 44 2e 20 49 46 20 54 48 45 20 4f 50 45 52 41 54 4f 52 20 48 41 53 20 4e 4f 54 00 1b 00 ee 00 38 00 50 2a 50 52 45 53 53 45 44 20 41 4e 59 20 4b 45 59 ┆OR VALIDITY WHEN EOR IS PRESSED. IF THE OPERATOR HAS NOT 8 P*PRESSED ANY KEY┆
0x2b6a…2bba 20 46 4f 52 20 33 30 20 53 45 43 4f 4e 44 53 20 54 48 45 20 52 4f 55 54 49 4e 20 49 53 20 45 4e 44 45 44 2e 00 1b 01 30 00 06 00 50 2a 20 00 1b 01 6c 00 06 00 50 2a 20 00 1b 01 76 00 26 00 50 2a 20 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a ┆ FOR 30 SECONDS THE ROUTIN IS ENDED. 0 P* l P* v & P* CALL SEQUENCE:┆
0x2bba…2c0a (28, 0, 400) 5c 43 46 20 20 20 20 41 31 34 2c 4b 3a 52 4f 50 54 20 00 1b 01 80 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 44 41 54 41 20 20 46 4f 52 54 41 42 20 00 1c 00 1a 00 06 00 50 2a 20 00 1c 00 40 00 36 00 50 2a 20 20 20 45 4e ┆ CF A14,K:ROPT " P* DATA FORTAB P* @ 6 P* EN┆
0x2c0a…2c5a 54 52 59 20 50 41 52 41 4d 3a 5c 46 4f 52 54 41 42 20 49 53 20 41 20 54 41 42 4c 45 20 4f 46 20 41 44 44 52 45 53 53 45 53 20 54 4f 00 1c 00 4a 00 14 00 50 2a 5c 5c 4c 41 59 4f 55 54 20 46 49 45 4c 44 53 00 1c 00 84 00 38 00 50 2a 5c 5c 41 ┆TRY PARAM: FORTAB IS A TABLE OF ADDRESSES TO J P* LAYOUT FIELDS 8 P* A┆
0x2c5a…2caa 35 20 3d 20 4e 55 4d 42 45 52 20 4f 46 20 53 50 41 43 45 53 20 54 4f 20 43 4f 4d 50 45 4e 53 41 54 45 20 4c 45 41 44 49 4e 47 20 54 45 58 54 20 00 1c 00 9c 00 06 00 50 2a 20 00 1c 00 d8 00 24 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 ┆5 = NUMBER OF SPACES TO COMPENSATE LEADING TEXT P* $ P* SUBROUTINE┆
0x2caa…2cfa 53 3a 5c 4b 3a 43 4b 46 20 49 4e 20 43 3a 53 55 42 20 00 1c 00 e2 00 16 00 50 2a 5c 5c 4b 3a 50 52 54 4e 20 49 4e 20 43 3a 46 55 41 00 1c 01 0a 00 06 00 50 2a 20 00 1c 01 24 00 2c 00 50 2a 20 20 52 45 54 55 52 4e 20 50 41 52 41 4d 3a 5c 41 ┆S: K:CKF IN C:SUB P* K:PRTN IN C:FUA P* $ , P* RETURN PARAM: A┆
0x2cfa…2d4a 31 20 3d 20 2f 30 30 30 30 20 20 56 41 4c 49 44 20 52 45 50 4c 59 00 1c 01 2e 00 26 00 50 2a 5c 5c 20 20 20 20 20 2f 30 30 30 31 20 20 43 41 4e 43 45 4c 20 4f 52 20 54 49 4d 45 20 4f 55 54 20 00 1c 01 5e 00 2e 00 50 2a 5c 5c 20 20 20 20 20 ┆1 = /0000 VALID REPLY . & P* /0001 CANCEL OR TIME OUT ^ . P* ┆
0x2d4a…2d9a (29, 0, 400) 2f 38 30 30 30 20 20 49 4e 50 55 54 20 45 52 52 4f 52 5c 5c 5c 20 4f 52 20 54 49 4d 45 20 4f 55 54 20 00 1c 01 88 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 46 46 46 45 20 20 50 4f 57 45 52 20 46 41 ┆/8000 INPUT ERROR OR TIME OUT 0 P* /FFFE POWER FA┆
0x2d9a…2dea 49 4c 55 52 45 20 00 1d 00 2a 00 42 00 50 2a 5c 5c 49 46 20 56 41 4c 49 44 20 52 45 50 4c 59 20 41 32 20 49 53 20 49 4e 44 45 58 20 54 4f 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 4c 41 59 4f 55 54 20 41 44 44 52 45 53 53 20 00 1d 00 5e ┆ILURE * B P* IF VALID REPLY A2 IS INDEX TO CORRESPONDING LAYOUT ADDRESS ^┆
0x2dea…2e3a 00 10 00 50 2a 5c 5c 49 4e 20 46 4f 52 54 41 42 00 1d 00 a4 00 06 00 50 2a 20 00 1d 00 b8 00 32 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 4f 44 3a 5c 44 49 52 45 43 54 20 5c 5c 5c 5c 57 49 54 48 20 52 45 4d 41 49 4e 44 20 43 4e 44 29 20 ┆ P* IN FORTAB P* 2 P* RETURN METOD: DIRECT WITH REMAIND CND) ┆
0x2e3a…2e8a 00 1d 00 c2 00 06 00 50 2a 20 00 1d 00 f8 00 1c 00 50 2a 20 20 43 48 41 4e 47 45 44 20 52 45 47 53 3a 5c 41 31 2d 41 31 30 20 00 1d 01 02 00 06 00 50 2a 20 00 1d 01 22 00 2c 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 5c 32 20 57 ┆ P* P* CHANGED REGS: A1-A10 P* " , P* STACKER NEED: 2 W┆
0x2e8a…2eda 4f 52 44 41 20 4f 4e 20 41 31 34 20 53 54 41 43 4b 45 52 20 00 1d 01 2c 00 06 00 50 2a 20 00 1d 01 5c 00 16 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 5c 20 00 1d 01 66 00 06 00 50 2a 20 00 1d 01 80 00 20 00 50 2a 20 20 43 41 4c ┆ORDA ON A14 STACKER , P* P* LIMITATIONS: f P* P* CAL┆
0x2eda…2f2a (30, 0, 400) 4c 49 4e 47 20 54 41 53 4b 3a 5c 4f 4e 4c 59 20 4f 50 43 4f 4d 20 00 1d 01 8a 00 06 00 50 2a 20 00 1e 00 1e 00 06 00 50 2a 20 00 1e 00 28 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 ┆LING TASK: ONLY OPCOM P* P* ( D P******************************┆
0x2f2a…2f7a 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 1e 00 32 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 46 55 41 20 00 1e 00 7a 00 06 00 50 2a 20 00 1e 00 96 00 12 00 50 ┆********************************* 2 P EJECT IDENT C:FUA z P* P┆
0x2f7a…2fca 2a 5c 5c 4b 20 3a 20 52 20 4f 20 50 20 54 00 1e 00 a0 00 06 00 50 2a 20 00 1e 00 b6 00 16 00 50 2a 20 20 20 52 45 41 44 20 4b 45 59 42 4f 41 52 44 20 00 1e 00 c0 00 06 00 50 2a 20 00 1e 00 da 00 10 00 50 4b 3a 52 4f 50 54 5c 45 51 55 5c 2a ┆* K : R O P T P* P* READ KEYBOARD P* PK:ROPT EQU *┆
0x2fca…301a 00 1e 00 e4 00 1a 00 50 5c 53 54 5c 41 35 2c 53 50 41 43 45 53 5c 53 41 56 45 20 41 35 20 00 1e 00 f8 00 20 00 50 5c 4c 44 4b 4c 5c 41 38 2c 4b 3a 4b 42 45 5c 4b 45 59 42 4f 41 52 44 20 45 43 42 20 00 1e 01 16 00 14 00 50 5c 4c 44 4b 4c 5c ┆ P ST A5,SPACES SAVE A5 P LDKL A8,K:KBE KEYBOARD ECB P LDKL ┆
0x301a…306a 41 31 2c 52 4f 50 30 39 30 20 00 1e 01 3a 00 14 00 50 5c 53 54 5c 41 31 2c 4b 3a 45 43 57 2c 41 38 20 00 1e 01 52 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4b 3a 4b 42 42 4c 20 00 1e 01 6a 00 22 00 50 5c 53 54 5c 41 31 2c 4b 3a 45 52 4c 2c 41 ┆A1,ROP090 : P ST A1,K:ECW,A8 R P LDKL A1,K:KBBL j " P ST A1,K:ERL,A┆
0x306a…3070 (31, 0, 398) 38 5c 4b 42 20 42 ┆8 KB B┆
0x3070…30c0 55 46 20 4c 45 4e 47 54 48 20 00 1e 01 82 00 36 00 50 5c 4c 44 20 5c 41 31 2c 4b 3a 49 52 53 57 5c 43 48 45 43 4b 20 49 46 20 50 52 45 56 49 4f 55 53 20 43 4f 4d 4d 41 4e 44 20 52 45 50 45 41 54 45 44 20 00 1f 00 18 00 16 00 50 5c 52 46 28 ┆UF LENGTH 6 P LD A1,K:IRSW CHECK IF PREVIOUS COMMAND REPEATED P RF(┆
0x30c0…3110 4e 5a 29 5c 52 4f 50 30 31 30 5c 4e 4f 20 00 1f 00 52 00 20 00 50 5c 4c 44 5c 41 31 2c 32 2c 41 38 5c 4c 4f 41 44 20 42 55 46 46 45 52 20 41 44 52 2e 00 1f 00 6c 00 2e 00 50 5c 41 44 4b 5c 41 31 2c 33 5c 49 4e 43 52 2e 20 46 4f 52 20 43 4f ┆NZ) ROP010 NO R P LD A1,2,A8 LOAD BUFFER ADR. l . P ADK A1,3 INCR. FOR CO┆
0x3110…3160 4d 4d 41 4e 44 20 43 4f 44 45 20 41 4e 44 20 53 50 41 43 45 00 1f 00 90 00 2c 00 50 5c 53 54 5c 41 31 2c 32 2c 41 38 5c 53 54 4f 52 45 20 54 45 4d 50 4f 52 41 52 59 20 42 55 46 46 45 52 20 41 44 52 2e 20 00 1f 00 c2 00 10 00 50 52 4f 50 30 ┆MMAND CODE AND SPACE , P ST A1,2,A8 STORE TEMPORARY BUFFER ADR. PROP0┆
0x3160…4f34 […elided…]
0x4f34…4f60 32 2c 41 32 00 32 01 20 00 10 00 50 5c 52 46 28 5a 29 5c 50 4f 50 35 35 00 32 01 32 00 1a 00 50 5c 53 54 52 5c 41 31 2c 41 32 5c 52 ┆2,A2 2 P RF(Z) POP55 2 2 P STR A1,A2 R┆
0x4f60…4f9e 45 53 54 4f 52 45 20 41 2d 5a 00 32 01 46 00 10 00 50 50 4f 50 35 35 5c 45 51 55 5c 2a 20 00 32 01 64 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 38 00 32 01 78 00 18 00 50 5c 45 4a 45 43 54 ┆ESTORE A-Z 2 F PPOP55 EQU * 2 d P LDR A1,A8 2 x P EJECT┆
0x4f9e…4fee (51, 0, 400) 5c 5c 49 44 45 4e 54 20 43 3a 46 55 41 20 00 32 01 8a 00 06 00 50 2a 20 00 33 00 16 00 1e 00 50 2a 20 20 20 41 43 54 49 56 41 54 45 20 4f 50 43 4f 4d 20 28 4b 3a 4f 50 4d 29 00 33 00 20 00 06 00 50 2a 20 00 33 00 42 00 12 00 50 5c 4c 44 4b ┆ IDENT C:FUA 2 P* 3 P* ACTIVATE OPCOM (K:OPM) 3 P* 3 B P LDK┆
0x4fee…503e 4c 5c 41 37 2c 27 4f 50 27 20 00 33 00 4c 00 08 00 50 5c 4c 4b 4d 00 33 00 62 00 12 00 50 5c 44 41 54 41 5c 2d 34 2c 4b 3a 4f 50 4d 00 33 00 6e 00 06 00 50 2a 20 00 33 00 84 00 0e 00 50 2a 20 20 52 45 54 55 52 4e 20 00 33 00 8e 00 06 00 50 ┆L A7,'OP' 3 L P LKM 3 b P DATA -4,K:OPM 3 n P* 3 P* RETURN 3 P┆
0x503e…508e 2a 20 00 33 00 a0 00 22 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 31 30 5c 52 45 4c 4f 41 44 20 31 30 20 52 45 47 53 20 00 33 00 aa 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 32 20 00 33 00 d0 00 12 00 50 5c 41 44 53 5c 41 37 2c 34 2c 41 31 34 20 ┆* 3 " P CF A14,K:LD10 RELOAD 10 REGS 3 P LDK A7,2 3 P ADS A7,4,A14 ┆
0x508e…50de 00 33 00 e2 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 33 00 f8 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 46 55 41 20 00 33 01 08 00 48 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4b 20 3a 20 50 20 52 20 ┆ 3 P RTN A14 3 P EJECT IDENT C:FUA 3 H P******************* K : P R ┆
0x50de…512e 54 20 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 33 01 24 00 06 00 50 2a 20 00 33 01 70 00 06 00 50 2a 20 00 33 01 7a 00 06 00 50 2a 20 00 33 01 84 00 2c 00 50 2a 53 ┆T ************************************* 3 $ P* 3 p P* 3 z P* 3 , P*S┆
0x512e…517e (52, 0, 400) 55 42 52 4f 55 54 49 4e 45 20 20 20 4b 20 3a 20 50 20 52 20 54 20 54 20 2c 20 20 4b 20 3a 20 50 20 52 20 54 20 4e 00 33 01 8e 00 36 00 50 2a 41 52 45 20 43 41 4c 4c 45 44 20 54 4f 20 50 52 49 4e 54 20 54 45 58 54 20 4f 4e 20 4f 50 54 20 55 ┆UBROUTINE K : P R T T , K : P R T N 3 6 P*ARE CALLED TO PRINT TEXT ON OPT U┆
0x517e…51ce 4e 44 45 52 20 4f 50 43 4f 4d 20 54 41 53 4b 20 00 34 00 2e 00 36 00 50 2a 4b 3a 50 52 54 4e 20 41 4e 44 20 4b 3a 50 52 54 54 20 45 44 49 54 53 20 54 48 45 20 54 45 58 54 20 54 4f 20 4e 45 57 20 4c 49 4e 45 20 41 4e 44 20 00 34 00 68 00 22 ┆NDER OPCOM TASK 4 . 6 P*K:PRTN AND K:PRTT EDITS THE TEXT TO NEW LINE AND 4 h "┆
0x51ce…521e 00 50 2a 4b 3a 50 52 54 54 20 47 45 54 53 20 41 4c 53 4f 20 50 52 45 53 45 4e 54 20 54 49 4d 45 00 34 00 a2 00 06 00 50 2a 20 00 34 00 c8 00 06 00 50 2a 20 00 34 00 d2 00 06 00 50 2a 20 00 34 00 dc 00 28 00 50 2a 20 43 41 4c 4c 20 53 45 51 ┆ P*K:PRTT GETS ALSO PRESENT TIME 4 P* 4 P* 4 P* 4 ( P* CALL SEQ┆
0x521e…526e 55 45 4e 43 45 3a 5c 43 46 20 20 41 31 34 2c 4b 3a 50 52 54 28 54 29 28 4e 29 00 34 00 e6 00 12 00 50 2a 5c 5c 44 41 54 41 20 46 4f 52 4d 41 54 00 34 01 12 00 06 00 50 2a 20 00 34 01 28 00 38 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 ┆UENCE: CF A14,K:PRT(T)(N) 4 P* DATA FORMAT 4 P* 4 ( 8 P* ENTRY PARA┆
0x526e…52be 4d 3a 5c 46 4f 52 4d 41 54 20 3d 20 41 44 44 52 45 53 53 20 54 4f 20 4d 45 53 53 41 47 45 20 4c 41 59 4f 55 54 20 00 34 01 32 00 06 00 50 2a 20 00 34 01 6e 00 26 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 5c 54 3a 57 52 54 5a 20 ┆M: FORMAT = ADDRESS TO MESSAGE LAYOUT 4 2 P* 4 n & P* SUBROUTINES: T:WRTZ ┆
0x52be…530e (53, 0, 400) 20 54 4f 53 53 46 55 4e 43 20 00 34 01 78 00 14 00 50 2a 5c 5c 4b 3a 49 44 20 49 4e 20 43 3a 53 45 54 00 35 00 12 00 06 00 50 2a 20 00 35 00 2a 00 1a 00 50 2a 20 20 52 45 54 55 52 4e 20 50 41 52 41 4d 3a 5c 4e 4f 4e 45 20 00 35 00 34 00 06 ┆ TOSSFUNC 4 x P* K:ID IN C:SET 5 P* 5 * P* RETURN PARAM: NONE 5 4 ┆
0x530e…535e 00 50 2a 20 00 35 00 52 00 18 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 4f 44 3a 5c 56 49 41 00 35 00 5c 00 06 00 50 2a 20 00 35 00 78 00 1a 00 50 2a 20 20 43 48 41 4e 47 45 44 20 52 45 47 53 3a 5c 4e 4f 4e 45 20 00 35 00 82 00 06 00 50 ┆ P* 5 R P* RETURN METOD: VIA 5 P* 5 x P* CHANGED REGS: NONE 5 P┆
0x535e…53ae 2a 20 00 35 00 a0 00 18 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 5c 31 34 20 00 35 00 aa 00 06 00 50 2a 20 00 35 00 c6 00 42 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 5c 49 46 20 45 4e 54 52 59 20 4b 3a 50 52 54 20 ┆* 5 P* STACKER NEED: 14 5 P* 5 B P* LIMITATIONS: IF ENTRY K:PRT ┆
0x53ae…53fe 54 48 45 20 46 4f 52 4d 41 54 20 4d 55 53 54 20 49 4e 43 4c 55 44 45 20 2f 30 30 32 42 5c 00 35 00 d0 00 38 00 50 2a 5c 5c 41 53 20 54 48 45 20 46 49 52 53 54 20 54 57 4f 20 42 59 54 45 53 20 54 4f 20 42 45 20 45 44 49 54 45 44 20 49 4e 20 ┆THE FORMAT MUST INCLUDE /002B 5 8 P* AS THE FIRST TWO BYTES TO BE EDITED IN ┆
0x53fe…544e 54 48 45 20 42 55 46 46 45 52 00 35 01 16 00 06 00 50 2a 20 00 35 01 52 00 1a 00 50 2a 20 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 3a 5c 4f 50 43 4f 4d 00 35 01 5c 00 06 00 50 2a 20 00 35 01 7a 00 06 00 50 2a 20 00 35 01 84 00 44 00 50 2a 2a ┆THE BUFFER 5 P* 5 R P* CALLING TASK: OPCOM 5 P* 5 z P* 5 D P**┆
0x544e…549e (54, 0, 398) 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 2a 2a 2a 2a 2a 2a 2a 2a 20 00 35 01 8e 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 ┆************************************************************* 5 P EJECT ID┆
0x549e…54ee 45 4e 54 20 43 3a 46 55 41 20 00 36 00 46 00 12 00 50 2a 5c 5c 4b 20 3a 20 50 20 52 20 54 20 54 00 36 00 62 00 06 00 50 2a 20 00 36 00 78 00 10 00 50 2a 20 20 20 47 45 54 20 54 49 4d 45 00 36 00 82 00 06 00 50 2a 20 00 36 00 96 00 10 00 50 ┆ENT C:FUA 6 F P* K : P R T T 6 b P* 6 x P* GET TIME 6 P* 6 P┆
0x54ee…553e 4b 3a 50 52 54 54 5c 45 51 55 5c 2a 00 36 00 a0 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 54 31 30 5c 53 41 56 45 20 31 30 20 52 45 47 53 20 00 36 00 b4 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 4b 3a 57 42 54 00 36 00 d8 00 08 00 50 5c 4c ┆K:PRTT EQU * 6 P CF A14,K:ST10 SAVE 10 REGS 6 P LDKL A8,K:WBT 6 P L┆
0x553e…558e 4b 4d 00 36 00 ee 00 0c 00 50 5c 44 41 54 41 5c 31 32 00 36 00 fa 00 12 00 50 5c 49 46 54 5c 44 41 54 49 4e 43 3d 31 20 00 36 01 0a 00 1e 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 4d 49 44 4e 49 47 54 48 20 43 41 52 52 59 3f 00 36 01 20 00 14 ┆KM 6 P DATA 12 6 P IFT DATINC=1 6 P LDR A7,A7 MIDNIGTH CARRY? 6 ┆
0x558e…55dc 00 50 5c 52 46 28 5a 29 5c 50 52 54 30 31 5c 4e 4f 20 00 36 01 42 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 49 44 5c 49 4e 43 52 45 4d 45 4e 54 20 44 41 54 45 20 00 36 01 5a 00 10 00 50 50 52 54 30 31 5c 45 51 55 5c 2a 20 00 36 01 7e ┆ P RF(Z) PRT01 NO 6 B P CF A14,K:ID INCREMENT DATE 6 Z PPRT01 EQU * 6 ~┆
0x55dc…562c (55, 0, 400) 00 08 00 50 5c 58 49 46 00 37 00 04 00 0e 00 50 5c 52 46 5c 50 52 54 31 30 20 00 37 00 10 00 06 00 50 2a 20 00 37 00 22 00 12 00 50 2a 5c 5c 4b 20 3a 20 50 20 52 20 54 20 4e 00 37 00 2c 00 06 00 50 2a 20 00 37 00 42 00 1c 00 50 2a 20 20 20 ┆ P XIF 7 P RF PRT10 7 P* 7 " P* K : P R T N 7 , P* 7 B P* ┆
0x562c…567c 45 44 49 54 20 41 4e 44 20 50 52 49 4e 54 20 54 45 58 54 20 00 37 00 4c 00 06 00 50 2a 20 00 37 00 6c 00 10 00 50 4b 3a 50 52 54 4e 5c 45 51 55 5c 2a 00 37 00 76 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 54 31 30 5c 53 41 56 45 20 31 30 ┆EDIT AND PRINT TEXT 7 L P* 7 l PK:PRTN EQU * 7 v P CF A14,K:ST10 SAVE 10┆
0x567c…56cc 20 52 45 47 53 20 00 37 00 8a 00 10 00 50 50 52 54 31 30 5c 45 51 55 5c 2a 20 00 37 00 ae 00 1e 00 50 5c 4c 44 2a 5c 41 38 2c 32 34 2c 41 31 34 5c 47 45 54 20 46 4f 52 4d 41 54 20 00 37 00 c2 00 10 00 50 5c 53 54 5c 41 38 2c 50 52 54 35 30 ┆ REGS 7 PPRT10 EQU * 7 P LD* A8,24,A14 GET FORMAT 7 P ST A8,PRT50┆
0x56cc…571c 00 37 00 e4 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 4b 3a 47 50 45 00 37 00 f8 00 18 00 50 5c 4c 44 52 5c 41 31 2c 41 31 33 5c 47 45 54 20 54 43 41 20 00 37 01 0e 00 24 00 50 5c 41 44 4b 5c 41 31 2c 54 43 41 57 42 54 5c 54 43 41 57 42 54 20 ┆ 7 P LDKL A8,K:GPE 7 P LDR A1,A13 GET TCA 7 $ P ADK A1,TCAWBT TCAWBT ┆
0x571c…576c 57 4f 52 4b 20 42 4c 4f 43 4b 00 37 01 2a 00 10 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 31 20 00 37 01 52 00 1a 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 5c 47 45 54 20 54 43 20 41 2d 5a 00 37 01 66 00 10 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 20 ┆WORK BLOCK 7 * P LDR* A2,A1 7 R P LDR* A1,A1 GET TC A-Z 7 f P LDR* A1,A1 ┆
0x576c…57bc (56, 0, 400) 00 37 01 84 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 46 20 00 38 00 08 00 12 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 54 32 20 00 38 00 1c 00 28 00 50 5c 4c 44 52 5c 41 32 2c 41 32 5c 50 4f 49 4e 54 45 52 20 54 4f 20 54 43 57 42 20 50 52 45 ┆ 7 P ANK A1,/FF 8 P CF A14,K:ST2 8 ( P LDR A2,A2 POINTER TO TCWB PRE┆
0x57bc…580c 53 45 4e 54 20 3f 00 38 00 32 00 14 00 50 5c 52 46 28 5a 29 5c 50 52 54 33 30 5c 4e 4f 20 00 38 00 5e 00 10 00 50 5c 43 57 4b 5c 41 31 2c 2f 34 39 20 00 38 00 76 00 20 00 50 5c 52 46 28 50 29 5c 50 52 54 31 35 5c 54 57 4f 20 44 49 47 2e 49 ┆SENT ? 8 2 P RF(Z) PRT30 NO 8 ^ P CWK A1,/49 8 v P RF(P) PRT15 TWO DIG.I┆
0x580c…585c 4e 20 44 45 43 20 00 38 00 8a 00 10 00 50 5c 53 55 4b 5c 41 31 2c 2f 31 30 20 00 38 00 ae 00 12 00 50 5c 4f 52 4b 4c 5c 41 31 2c 2f 33 30 30 30 00 38 00 c2 00 0e 00 50 5c 52 46 5c 50 52 54 32 30 20 00 38 00 d8 00 10 00 50 50 52 54 31 35 5c ┆N DEC 8 P SUK A1,/10 8 P ORKL A1,/3000 8 P RF PRT20 8 PPRT15 ┆
0x585c…58ac 45 51 55 5c 2a 20 00 38 00 ea 00 10 00 50 5c 53 55 4b 5c 41 31 2c 2f 31 41 20 00 38 00 fe 00 12 00 50 5c 4f 52 4b 4c 5c 41 31 2c 2f 33 31 30 30 00 38 01 12 00 10 00 50 50 52 54 32 30 5c 45 51 55 5c 2a 20 00 38 01 28 00 24 00 50 5c 53 54 52 ┆EQU * 8 P SUK A1,/1A 8 P ORKL A1,/3100 8 PPRT20 EQU * 8 ( $ P STR┆
0x58ac…58fc 5c 41 31 2c 41 32 5c 53 54 4f 52 45 20 43 4f 4e 2e 41 44 52 2e 49 4e 20 54 43 41 20 00 38 01 3c 00 10 00 50 50 52 54 33 30 5c 45 51 55 5c 2a 20 00 38 01 64 00 26 00 50 5c 43 46 5c 41 31 34 2c 54 3a 57 52 54 5a 5c 50 52 49 4e 54 20 57 49 54 ┆ A1,A2 STORE CON.ADR.IN TCA 8 < PPRT30 EQU * 8 d & P CF A14,T:WRTZ PRINT WIT┆
0x58fc…594c (57, 0, 400) 48 4f 55 54 20 57 41 49 54 20 00 38 01 78 00 10 00 50 5c 44 41 54 41 5c 2f 30 36 33 30 20 00 39 00 12 00 10 00 50 50 52 54 35 30 5c 44 41 54 41 5c 30 00 39 00 26 00 1c 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 32 5c 47 45 54 20 41 31 2c 41 ┆HOUT WAIT 8 x P DATA /0630 9 PPRT50 DATA 0 9 & P CF A14,K:LD2 GET A1,A┆
0x594c…599c 32 20 00 39 00 3a 00 28 00 50 5c 4c 44 52 5c 41 32 2c 41 32 5c 50 4f 49 4e 54 45 52 20 54 4f 20 54 43 57 42 20 50 52 45 53 45 4e 54 20 3f 00 39 00 5a 00 14 00 50 5c 52 46 28 5a 29 5c 50 52 54 35 35 5c 4e 4f 20 00 39 00 86 00 0e 00 50 5c 53 ┆2 9 : ( P LDR A2,A2 POINTER TO TCWB PRESENT ? 9 Z P RF(Z) PRT55 NO 9 P S┆
0x599c…59ec 54 52 5c 41 31 2c 41 32 00 39 00 9e 00 10 00 50 50 52 54 35 35 5c 45 51 55 5c 2a 20 00 39 00 b0 00 0e 00 50 5c 52 46 5c 50 52 54 31 30 30 00 39 00 c4 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 46 55 41 20 00 39 00 d6 00 06 ┆TR A1,A2 9 PPRT55 EQU * 9 P RF PRT100 9 P EJECT IDENT C:FUA 9 ┆
0x59ec…5a3c 00 50 2a 20 00 39 00 f2 00 10 00 50 2a 5c 5c 4b 20 3a 20 50 20 52 20 54 00 39 00 fc 00 06 00 50 2a 20 00 39 01 10 00 28 00 50 2a 20 20 20 45 44 49 54 20 57 49 54 48 4f 55 54 20 4e 45 57 20 4c 49 4e 45 20 41 4e 44 20 50 52 49 4e 54 20 00 39 ┆ P* 9 P* K : P R T 9 P* 9 ( P* EDIT WITHOUT NEW LINE AND PRINT 9┆
0x5a3c…5a8c 01 1a 00 06 00 50 2a 20 00 39 01 46 00 10 00 50 4b 3a 50 52 54 5c 45 51 55 5c 2a 20 00 39 01 50 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 54 31 30 5c 53 41 56 45 20 31 30 20 52 45 47 53 20 00 39 01 64 00 1e 00 50 5c 4c 44 2a 5c 41 38 2c ┆ P* 9 F PK:PRT EQU * 9 P P CF A14,K:ST10 SAVE 10 REGS 9 d P LD* A8,┆
0x5a8c…5adc (58, 0, 400) 32 34 2c 41 31 34 5c 47 45 54 20 46 4f 52 4d 41 54 20 00 39 01 88 00 10 00 50 5c 53 54 5c 41 38 2c 50 52 54 36 30 00 3a 00 1a 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 4b 3a 47 50 45 00 3a 00 2e 00 24 00 50 5c 43 46 5c 41 31 34 2c 54 3a 57 52 ┆24,A14 GET FORMAT 9 P ST A8,PRT60 : P LDKL A8,K:GPE : . $ P CF A14,T:WR┆
0x5adc…5b2c 54 5c 50 52 49 4e 54 20 57 49 54 48 4f 55 54 20 57 41 49 54 00 3a 00 44 00 10 00 50 5c 44 41 54 41 5c 2f 30 36 33 30 20 00 3a 00 6c 00 18 00 50 50 52 54 36 30 5c 44 41 54 41 5c 30 5c 46 4f 52 4d 41 54 20 00 3a 00 80 00 18 00 50 5c 45 4a 45 ┆T PRINT WITHOUT WAIT : D P DATA /0630 : l PPRT60 DATA 0 FORMAT : P EJE┆
0x5b2c…5b7c 43 54 5c 5c 49 44 45 4e 54 20 43 3a 46 55 41 20 00 3a 00 9c 00 06 00 50 2a 20 00 3a 00 b8 00 2c 00 50 2a 20 20 20 49 46 20 43 43 20 43 4f 4d 4d 41 4e 44 20 4f 52 49 47 49 4e 20 53 45 4e 44 20 54 45 58 54 20 54 4f 20 43 43 00 3a 00 c2 00 06 ┆CT IDENT C:FUA : P* : , P* IF CC COMMAND ORIGIN SEND TEXT TO CC : ┆
0x5b7c…5bcc 00 50 2a 20 00 3a 00 f2 00 10 00 50 50 52 54 31 30 30 5c 45 51 55 5c 2a 00 3a 00 fc 00 26 00 50 5c 4c 44 5c 41 38 2c 2d 34 2c 41 31 33 5c 47 45 54 20 4f 52 49 47 49 4e 20 49 4e 44 49 43 41 54 4f 52 00 3a 01 10 00 1e 00 50 5c 52 46 28 5a 29 ┆ P* : PPRT100 EQU * : & P LD A8,-4,A13 GET ORIGIN INDICATOR : P RF(Z)┆
0x5bcc…5c1c 5c 50 52 54 32 30 30 5c 4f 50 54 20 43 4f 4d 4d 41 4e 44 20 00 3a 01 3a 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 4b 3a 53 30 45 00 3a 01 5c 00 16 00 50 5c 4c 44 5c 41 37 2c 4b 3a 47 50 45 2b 4b 3a 45 52 4c 00 3a 01 72 00 18 00 50 5c 41 44 4b ┆ PRT200 OPT COMMAND : : P LDKL A8,K:S0E : P LD A7,K:GPE+K:ERL : r P ADK┆
0x5c1c…5c6c (59, 0, 398) 5c 41 37 2c 33 5c 41 49 44 2c 43 55 2c 43 55 20 00 3a 01 8c 00 14 00 50 5c 53 54 5c 41 37 2c 4b 3a 45 52 4c 2c 41 38 20 00 3b 00 18 00 16 00 50 5c 4c 44 5c 41 37 2c 4b 3a 47 50 45 2b 4b 3a 45 42 41 00 3b 00 30 00 1c 00 50 5c 4c 44 4b 4c 5c ┆ A7,3 AID,CU,CU : P ST A7,K:ERL,A8 ; P LD A7,K:GPE+K:EBA ; 0 P LDKL ┆
0x5c6c…5cbc 41 38 2c 2f 32 30 32 30 5c 43 55 2c 43 55 41 44 52 2e 00 3b 00 4a 00 10 00 50 5c 53 54 5c 41 38 2c 30 2c 41 37 20 00 3b 00 6a 00 16 00 50 5c 4c 44 4b 4c 5c 41 38 2c 2f 30 30 41 37 5c 41 49 44 00 3b 00 7e 00 10 00 50 5c 53 43 5c 41 38 2c 2d ┆A8,/2020 CU,CUADR. ; J P ST A8,0,A7 ; j P LDKL A8,/00A7 AID ; ~ P SC A8,-┆
0x5cbc…5d0c 31 2c 41 37 00 3b 00 98 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 4b 3a 53 30 45 00 3b 00 ac 00 1a 00 50 5c 53 55 4b 5c 41 37 2c 33 5c 55 50 44 2e 42 55 46 2e 41 44 52 2e 00 3b 00 c2 00 14 00 50 5c 53 54 5c 41 37 2c 4b 3a 45 42 41 2c 41 38 20 ┆1,A7 ; P LDKL A8,K:S0E ; P SUK A7,3 UPD.BUF.ADR. ; P ST A7,K:EBA,A8 ┆
0x5d0c…5d5c 00 3b 00 e0 00 2a 00 50 5c 4c 44 4b 4c 5c 41 37 2c 4b 3a 57 54 49 4d 5c 52 45 51 55 45 53 54 20 54 49 4d 45 20 4f 55 54 20 56 41 4c 55 45 00 3b 00 f8 00 14 00 50 5c 53 54 5c 41 37 2c 4b 3a 45 43 57 2c 41 38 20 00 3b 01 26 00 10 00 50 5c 4c ┆ ; * P LDKL A7,K:WTIM REQUEST TIME OUT VALUE ; P ST A7,K:ECW,A8 ; & P L┆
0x5d5c…5daa 44 4b 5c 41 37 2c 2f 38 36 20 00 3b 01 3e 00 26 00 50 5c 4c 4b 4d 5c 5c 57 52 49 54 45 20 4f 4e 20 54 52 55 4e 4b 20 4c 49 4e 45 20 41 4e 44 20 57 41 49 54 00 3b 01 52 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 3b 01 7c 00 06 00 50 2a 20 ┆DK A7,/86 ; > & P LKM WRITE ON TRUNK LINE AND WAIT ; R P DATA 1 ; | P* ┆
0x5daa…5dfa (60, 2, 386) 00 3b 01 8c 00 1e 00 50 2a 5c 44 45 4c 41 59 20 54 52 55 4e 4b 20 4c 49 4e 45 20 4d 45 53 53 41 47 45 00 3c 00 08 00 06 00 50 2a 20 00 3c 00 2a 00 1e 00 50 5c 4c 44 4b 4c 5c 41 38 2c 2f 32 30 5c 33 2e 32 20 53 45 43 2e 44 45 4c 41 59 00 3c ┆ ; P* DELAY TRUNK LINE MESSAGE < P* < * P LDKL A8,/20 3.2 SEC.DELAY <┆
0x5dfa…5e4a 00 34 00 08 00 50 5c 4c 4b 4d 00 3c 00 56 00 0c 00 50 5c 44 41 54 41 5c 36 20 00 3c 00 62 00 06 00 50 2a 20 00 3c 00 72 00 14 00 50 2a 20 20 20 57 41 49 54 20 46 4f 52 20 47 50 20 00 3c 00 7c 00 06 00 50 2a 20 00 3c 00 94 00 10 00 50 50 52 ┆ 4 P LKM < V P DATA 6 < b P* < r P* WAIT FOR GP < | P* < PPR┆
0x5e4a…5e9a 54 32 30 30 5c 45 51 55 5c 2a 00 3c 00 9e 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 4b 3a 47 50 45 00 3c 00 b2 00 08 00 50 5c 4c 4b 4d 00 3c 00 c8 00 0c 00 50 5c 44 41 54 41 5c 32 20 00 3c 00 d4 00 06 00 50 2a 20 00 3c 00 e4 00 0e 00 50 2a 20 ┆T200 EQU * < P LDKL A8,K:GPE < P LKM < P DATA 2 < P* < P* ┆
0x5e9a…5eea 20 20 52 45 54 55 52 4e 00 3c 00 ee 00 10 00 50 50 52 54 45 4e 44 5c 45 51 55 5c 2a 00 3c 01 00 00 22 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 31 30 5c 52 45 4c 4f 41 44 20 31 30 20 52 45 47 53 20 00 3c 01 14 00 0e 00 50 5c 4c 44 4b 5c 41 ┆ RETURN < PPRTEND EQU * < " P CF A14,K:LD10 RELOAD 10 REGS < P LDK A┆
0x5eea…5f2c 37 2c 32 20 00 3c 01 3a 00 12 00 50 5c 41 44 53 5c 41 37 2c 34 2c 41 31 34 20 00 3c 01 4c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 3c 01 62 00 08 00 50 5c 45 4e 44 00 3c 01 72 40 04 00 00 00 3c 01 7e ┆7,2 < : P ADS A7,4,A14 < L P RTN A14 < b P END < r@ < ~┆
0x5f2c…5f34 (61, 1, 8) 20 04 00 00 00 3d 00 04 ┆ = ┆