|
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: 26094 (0x65ee)
Notes: pts_type(SC)
Names: »C:NSU.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/C:NSU.SC«
IDENT C:NSU CONPAC REL=1.0 DATE= 80.04.29 UPDATE #8 77.09.26 JES *************************************************************** * * CONCENTRATOR APPLICATION PACKAGE PEAB-T * * PROGRAMMER: PER OMAN / PAN * * * N S U B S * * * * * THIS MODULE CONTAINS SUBROUTINES FOR * NETWORK AND TERMINAL CONTROL * * * * * THIS MODULE RUNS UNDER TASK: OPCOM * * * THE MODULE CONTAINS THE SUBROUTINES: * * NAME REVDAT VERSION * * K:CKL 751205 * K:OTC 77.09.14 * K:GTC 751205 * K:LFC 751205 * K:TL 77.08.08 * * **************************************************************** EJECT IDENT C:NSU * * * ENTRY ADDRESSES * *************************************************************** * * ENTRY DESCRIPTION * ENTRY K:OTC MAKES OPEN TC REQUESTS ENTRY K:CKL CHECK LINE NBR ENTRY K:GTC GET TC FROM KBB ENTRY K:LFC GET LINE CONTROL ECB ENTRY K:TL TEST TERMINAL LINE ENTRY K:CON CONVERT 1-15 TO A-Z EJECT IDENT C:NSU * * * EXTERNAL REFERENSES * *************************************************************** * * ADDRESS IN MODULE * EXTRN K:F320 C:TXT EXTRN K:F321 EXTRN K:F325 EXTRN K:FL09 EXTRN K:FL10 EXTRN K:FL11 EXTRN K:FL12 EXTRN K:F377 EXTRN K:F342 EXTRN K:F340 EXTRN K:F311 EXTRN K:F302 EXTRN K:F310 EXTRN K:F323 EXTRN K:F324 EXTRN K:F393 EXTRN K:F370 * EXTRN K:XL10 C:XNW * EXTRN K:KBB C:TCA EXTRN K:LCE EXTRN K:GPE EXTRN K:KBE * EXTRN K:ST10 EXTRN K:LD10 EJECT IDENT C:NSU * EXTRN K:PRTN C:FUA * EXTRN K:LST C:FIG EXTRN K:CONE EXTRN K:LEND EXTRN K:CONF EXTRN K:TCST EXTRN K:TCP EXTRN K:TCPE EXTRN K:TCE EXTRN K:LTC EXTRN K:REPC * EXTRN K:DUM C:WBS * EXTRN K:ST8 C:SUB EXTRN K:LD8 * EXTRN K:HXAS C:SET EXTRN K:ASHX * * 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:NSU CONPAC REL=1.0 DATE= 80.04.29 «, t00=0x0000, t01=0x0004}
0x0034…0056 Head {h00=0x001e, h01=0x0050, text=» UPDATE #8 77.09.26 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=»* N S U B S «, 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…0184 Head {h00=0x002c, h01=0x0050, text=»* THIS MODULE CONTAINS SUBROUTINES FOR«, t00=0x0000, t01=0x0158}
0x0184…01ac Head {h00=0x0024, h01=0x0050, text=»* NETWORK AND TERMINAL CONTROL«, t00=0x0000, t01=0x0188}
0x01ac…01ba Head {h00=0x000a, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0020}
0x01ba…01c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002e}
0x01c4…01ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0038}
0x01ce…01fc Head {h00=0x002a, h01=0x0050, text=»* THIS MODULE RUNS UNDER TASK: OPCOM «, t00=0x0001, t01=0x0042}
0x01fc…0206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…0210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007a}
0x0210…023e Head {h00=0x002a, h01=0x0050, text=»* THE MODULE CONTAINS THE SUBROUTINES:«, t00=0x0001, t01=0x0084}
0x023e…0248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b2}
0x0248…0266 Head {h00=0x001a, h01=0x0050, text=»* NAME REVDAT VERSION «, t00=0x0001, t01=0x00bc}
0x0266…0270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00da}
0x0270…0286 Head {h00=0x0012, h01=0x0050, text=»* K:CKL 751205«, t00=0x0001, t01=0x00e4}
0x0286…029e Head {h00=0x0014, h01=0x0050, text=»* K:OTC 77.09.14«, t00=0x0001, t01=0x00fa}
0x029e…02b4 Head {h00=0x0012, h01=0x0050, text=»* K:GTC 751205«, t00=0x0001, t01=0x0112}
0x02b4…02ca Head {h00=0x0012, h01=0x0050, text=»* K:LFC 751205«, t00=0x0001, t01=0x0128}
0x02ca…02e2 Head {h00=0x0014, h01=0x0050, text=»* K:TL 77.08.08 «, t00=0x0001, t01=0x013e}
0x02e2…02ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0156}
0x02ec…02f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x02f6…033e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x016a}
0x033e…035a Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:NSU «, t00=0x0002, t01=0x0022}
0x035a…0364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003e}
0x0364…036e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0048}
0x036e…0388 Head {h00=0x0016, h01=0x0050, text=»* ENTRY ADDRESSES «, t00=0x0002, t01=0x0052}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…03da Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x0076}
0x03da…03e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00be}
0x03e4…0400 Head {h00=0x0018, h01=0x0050, text=»* ENTRY DESCRIPTION«, t00=0x0002, t01=0x00c8}
0x0400…040a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e4}
0x040a…0436 Head {h00=0x0028, h01=0x0050, text=» ENTRY K:OTC MAKES OPEN TC REQUESTS «, t00=0x0002, t01=0x00ee}
0x0436…045a Head {h00=0x0020, h01=0x0050, text=» ENTRY K:CKL CHECK LINE NBR «, t00=0x0002, t01=0x011a}
0x045a…047e Head {h00=0x0020, h01=0x0050, text=» ENTRY K:GTC GET TC FROM KBB«, t00=0x0002, t01=0x013e}
0x047e…04a8 Head {h00=0x0026, h01=0x0050, text=» ENTRY K:LFC GET LINE CONTROL ECB «, t00=0x0002, t01=0x0162}
0x04a8…04ce Head {h00=0x0022, h01=0x0050, text=» ENTRY K:TL TEST TERMINAL LINE«, t00=0x0002, t01=0x018c}
0x04ce…04f6 Head {h00=0x0024, h01=0x0050, text=» ENTRY K:CON CONVERT 1-15 TO A-Z«, t00=0x0003, t01=0x0022}
0x04f6…0512 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:NSU «, t00=0x0003, t01=0x004a}
0x0512…051c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0066}
0x051c…0526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0070}
0x0526…0544 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENSES «, t00=0x0003, t01=0x007a}
0x0544…054e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0098}
0x054e…0596 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0003, t01=0x00a2}
0x0596…05a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ea}
0x05a0…05bc Head {h00=0x0018, h01=0x0050, text=»* ADDRESS IN MODULE«, t00=0x0003, t01=0x00f4}
0x05bc…05c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c6…05e2 Head {h00=0x0018, h01=0x0050, text=» EXTRN K:F320 C:TXT «, t00=0x0003, t01=0x011a}
0x05e2…05f8 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F321 «, t00=0x0003, t01=0x0136}
0x05f8…060e Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F325 «, t00=0x0003, t01=0x014c}
0x060e…0624 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:FL09 «, t00=0x0003, t01=0x0162}
0x0624…063a Head {h00=0x0012, h01=0x0050, text=» EXTRN K:FL10 «, t00=0x0003, t01=0x0178}
0x063a…0650 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:FL11 «, t00=0x0003, t01=0x018e}
0x0650…0666 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:FL12 «, t00=0x0004, t01=0x0014}
0x0666…067c Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F377 «, t00=0x0004, t01=0x002a}
0x067c…0692 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F342 «, t00=0x0004, t01=0x0040}
0x0692…06a8 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F340 «, t00=0x0004, t01=0x0056}
0x06a8…06be Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F311 «, t00=0x0004, t01=0x006c}
0x06be…06d4 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F302 «, t00=0x0004, t01=0x0082}
0x06d4…06ea Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F310 «, t00=0x0004, t01=0x0098}
0x06ea…0700 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F323 «, t00=0x0004, t01=0x00ae}
0x0700…0716 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F324 «, t00=0x0004, t01=0x00c4}
0x0716…072c Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F393 «, t00=0x0004, t01=0x00da}
0x072c…0742 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F370 «, t00=0x0004, t01=0x00f0}
0x0742…074c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074c…0768 Head {h00=0x0018, h01=0x0050, text=» EXTRN K:XL10 C:XNW «, t00=0x0004, t01=0x0110}
0x0768…0772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012c}
0x0772…078c Head {h00=0x0016, h01=0x0050, text=» EXTRN K:KBB C:TCA«, t00=0x0004, t01=0x0136}
0x078c…07a0 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:LCE«, t00=0x0004, t01=0x0150}
0x07a0…07b4 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:GPE«, t00=0x0004, t01=0x0164}
0x07b4…07c8 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:KBE«, t00=0x0004, t01=0x0178}
0x07c8…07d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018c}
0x07d2…07e8 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:ST10 «, t00=0x0005, t01=0x0008}
0x07e8…07fe Head {h00=0x0012, h01=0x0050, text=» EXTRN K:LD10 «, t00=0x0005, t01=0x001e}
0x07fe…081a Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:NSU «, t00=0x0005, t01=0x0034}
0x081a…0824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0050}
0x0824…0840 Head {h00=0x0018, h01=0x0050, text=» EXTRN K:PRTN C:FUA «, t00=0x0005, t01=0x005a}
0x0840…084a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0076}
0x084a…0864 Head {h00=0x0016, h01=0x0050, text=» EXTRN K:LST C:FIG«, t00=0x0005, t01=0x0080}
0x0864…087a Head {h00=0x0012, h01=0x0050, text=» EXTRN K:CONE «, t00=0x0005, t01=0x009a}
0x087a…0890 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:LEND «, t00=0x0005, t01=0x00b0}
0x0890…08a6 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:CONF «, t00=0x0005, t01=0x00c6}
0x08a6…08bc Head {h00=0x0012, h01=0x0050, text=» EXTRN K:TCST «, t00=0x0005, t01=0x00dc}
0x08bc…08d0 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:TCP«, t00=0x0005, t01=0x00f2}
0x08d0…08e6 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:TCPE «, t00=0x0005, t01=0x0106}
0x08e6…08fa Head {h00=0x0010, h01=0x0050, text=» EXTRN K:TCE«, t00=0x0005, t01=0x011c}
0x08fa…090e Head {h00=0x0010, h01=0x0050, text=» EXTRN K:LTC«, t00=0x0005, t01=0x0130}
0x090e…0924 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:REPC «, t00=0x0005, t01=0x0144}
0x0924…092e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015a}
0x092e…0948 Head {h00=0x0016, h01=0x0050, text=» EXTRN K:DUM C:WBS«, t00=0x0005, t01=0x0164}
0x0948…0952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017e}
0x0952…096c Head {h00=0x0016, h01=0x0050, text=» EXTRN K:ST8 C:SUB«, t00=0x0005, t01=0x0188}
0x096c…0980 Head {h00=0x0010, h01=0x0050, text=» EXTRN K:LD8«, t00=0x0006, t01=0x0012}
0x0980…098a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x098a…09a6 Head {h00=0x0018, h01=0x0050, text=» EXTRN K:HXAS C:SET «, t00=0x0006, t01=0x0030}
0x09a6…09bc Head {h00=0x0012, h01=0x0050, text=» EXTRN K:ASHX «, t00=0x0006, t01=0x004c}
0x09bc…09c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c6…0a16 Head {h00=0x004c, h01=0x0050, text=»* HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST «, t00=0x0006, t01=0x006c}
0x0a16…0a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00bc}
0x0a20…0a2e Head {h00=0x000a, h01=0x0050, text=» NLIST«, t00=0x0006, t01=0x00c6}
0x0a2e…0a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d4}
0x0a38…0a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00de}
0x0a42…0a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e8}
0x0a4c…0a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f2}
0x0a56…0a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fc}
0x0a60…0a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0106}
0x0a6a…0a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0110}
0x0a74…0a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011a}
0x0a7e…0a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0124}
0x0a88…0a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a92…0a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0138}
0x0a9c…0aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa6…0ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab0…0aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0156}
0x0aba…0ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0160}
0x0ac4…0ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016a}
0x0ace…0ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0174}
0x0ad8…0ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017e}
0x0ae2…0aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aec…0af6 (7, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af6…0b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000e}
0x0b00…0b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0018}
0x0b0a…0b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0022}
0x0b14…0b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002c}
0x0b1e…0b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0036}
0x0b28…0b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0040}
0x0b32…0b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0054}
0x0b46…0b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005e}
0x0b50…0b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b5a…0b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0072}
0x0b64…0b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b6e…0b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0086}
0x0b78…0b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0090}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b8c…0b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a4}
0x0b96…0ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ae}
0x0ba0…0baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0baa…0bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c2}
0x0bb4…0bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00cc}
0x0bbe…0bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d6}
0x0bc8…0bfa Head {h00=0x002e, h01=0x0050, text=» EJECT IDENT C:EQU **COMMON AREA FRAME** «, t00=0x0007, t01=0x00e0}
0x0bfa…0c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0112}
0x0c04…0c1a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS «, t00=0x0007, t01=0x011c}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0132}
0x0c24…0c38 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:ADD«, t00=0x0007, t01=0x013c}
0x0c38…0c4e Head {h00=0x0012, h01=0x0050, text=» EXTRN T:ADDC «, t00=0x0007, t01=0x0150}
0x0c4e…0c62 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:SUB«, t00=0x0007, t01=0x0166}
0x0c62…0c78 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:SUBC «, t00=0x0007, t01=0x017a}
0x0c78…0c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0190}
0x0c82…0ca2 Head {h00=0x001c, h01=0x0050, text=» EXTRN T:MUL TOSS-MULDIV«, t00=0x0008, t01=0x000a}
0x0ca2…0cb8 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:MULC «, t00=0x0008, t01=0x002a}
0x0cb8…0ccc Head {h00=0x0010, h01=0x0050, text=» EXTRN T:DIV«, t00=0x0008, t01=0x0040}
0x0ccc…0ce2 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:DIVC «, t00=0x0008, t01=0x0054}
0x0ce2…0cfe Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0008, t01=0x006a}
0x0cfe…0d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0086}
0x0d08…0d2a Head {h00=0x001e, h01=0x0050, text=»* FORMS FOR FORMAT CODES«, t00=0x0008, t01=0x0090}
0x0d2a…0d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b2}
0x0d34…0d5e Head {h00=0x0026, h01=0x0050, text=»EOL FORM 8=1,8 END OF FORMAT LIST «, t00=0x0008, t01=0x00bc}
0x0d5e…0d82 Head {h00=0x0020, h01=0x0050, text=»EOR FORM 8=9,8 END OF RECORD«, t00=0x0008, t01=0x00e6}
0x0d82…0da8 Head {h00=0x0022, h01=0x0050, text=»TXT FORM 8=/10,8 TEXT ELEMENT «, t00=0x0008, t01=0x010a}
0x0da8…0dda Head {h00=0x002e, h01=0x0050, text=»CONTXT FORM 8=/12,8 TEXT CONSTANT ELEMENT «, t00=0x0008, t01=0x0130}
0x0dda…0e0c Head {h00=0x002e, h01=0x0050, text=»IMTXT FORM 8=/11,8 IMIDEATE TEXT CONSTANT «, t00=0x0008, t01=0x0162}
0x0e0c…0e3a (9, 0, 400) Head {h00=0x002a, h01=0x0050, text=»ENDSUB FORM 16=/1700 END OF SUBFORMAT «, t00=0x0009, t01=0x0004}
0x0e3a…0e66 Head {h00=0x0028, h01=0x0050, text=»COND FORM 8=/1F,8 CONDITIONAL FORMAT«, t00=0x0009, t01=0x0032}
0x0e66…0e84 Head {h00=0x001a, h01=0x0050, text=»FILLER FORM 8,8 FILLER«, t00=0x0009, t01=0x005e}
0x0e84…0ea4 Head {h00=0x001c, h01=0x0050, text=»SPACE FORM 8=/20,8 SPACE«, t00=0x0009, t01=0x007c}
0x0ea4…0ec6 Head {h00=0x001e, h01=0x0050, text=»PICT FORM 1=1,7,8 PICTURE «, t00=0x0009, t01=0x009c}
0x0ec6…0ef0 Head {h00=0x0026, h01=0x0050, text=»PICREF FORM 8,8,16 GENERATE FORMS «, t00=0x0009, t01=0x00be}
0x0ef0…0f06 Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0009, t01=0x00e8}
0x0f06…0f1e Head {h00=0x0014, h01=0x0050, text=»BCD FORM 4=0,12 «, t00=0x0009, t01=0x00fe}
0x0f1e…0f38 Head {h00=0x0016, h01=0x0050, text=»ASCII FORM 4=8,12 «, t00=0x0009, t01=0x0116}
0x0f38…0f5e Head {h00=0x0022, h01=0x0050, text=»ADD FORM 16=/F6A1,16=T:ADD,8,8«, t00=0x0009, t01=0x0130}
0x0f5e…0f86 Head {h00=0x0024, h01=0x0050, text=»ADDC FORM 16=/F6A1,16=T:ADDC,8,8«, t00=0x0009, t01=0x0156}
0x0f86…0fac Head {h00=0x0022, h01=0x0050, text=»SUB FORM 16=/F6A1,16=T:SUB,8,8«, t00=0x0009, t01=0x017e}
0x0fac…0fd4 Head {h00=0x0024, h01=0x0050, text=»SUBC FORM 16=/F6A1,16=T:SUBC,8,8«, t00=0x000a, t01=0x0014}
0x0fd4…0ffe Head {h00=0x0026, h01=0x0050, text=»MUL FORM 16=/F6A1,16=T:MUL,8,8,8,8«, t00=0x000a, t01=0x003c}
0x0ffe…102a Head {h00=0x0028, h01=0x0050, text=»MULC FORM 16=/F6A1,16=T:MULC,8,8,8,8«, t00=0x000a, t01=0x0066}
0x102a…1054 Head {h00=0x0026, h01=0x0050, text=»DIV FORM 16=/F6A1,16=T:DIV,8,8,8,8«, t00=0x000a, t01=0x0092}
0x1054…1080 Head {h00=0x0028, h01=0x0050, text=»DIVC FORM 16=/F6A1,16=T:DIVC,8,8,8,8«, t00=0x000a, t01=0x00bc}
0x1080…109c Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000a, t01=0x00e8}
0x109c…10a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0104}
0x10a6…10c6 Head {h00=0x001c, h01=0x0050, text=»* CONSTANT TCA EQUATES«, t00=0x000a, t01=0x010e}
0x10c6…10d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012e}
0x10d0…10e4 Head {h00=0x0010, h01=0x0050, text=»CA1 EQU /10 «, t00=0x000a, t01=0x0138}
0x10e4…10f8 Head {h00=0x0010, h01=0x0050, text=»CB1 EQU /20 «, t00=0x000a, t01=0x014c}
0x10f8…110c Head {h00=0x0010, h01=0x0050, text=»CB10 EQU /21«, t00=0x000a, t01=0x0160}
0x110c…1122 Head {h00=0x0012, h01=0x0050, text=»CB100 EQU /22 «, t00=0x000a, t01=0x0174}
0x1122…1138 Head {h00=0x0012, h01=0x0050, text=»CB1000 EQU /23«, t00=0x000a, t01=0x018a}
0x1138…114e Head {h00=0x0012, h01=0x0050, text=»CB32K EQU /24 «, t00=0x000b, t01=0x0010}
0x114e…1162 Head {h00=0x0010, h01=0x0050, text=»YEAR EQU /30«, t00=0x000b, t01=0x0026}
0x1162…1178 Head {h00=0x0012, h01=0x0050, text=»MONTH EQU /31 «, t00=0x000b, t01=0x003a}
0x1178…118c Head {h00=0x0010, h01=0x0050, text=»DAY EQU /32 «, t00=0x000b, t01=0x0050}
0x118c…11a0 Head {h00=0x0010, h01=0x0050, text=»HOUR EQU /40«, t00=0x000b, t01=0x0064}
0x11a0…11b4 Head {h00=0x0010, h01=0x0050, text=»MIN EQU /41 «, t00=0x000b, t01=0x0078}
0x11b4…11c8 Head {h00=0x0010, h01=0x0050, text=»SEC EQU /42 «, t00=0x000b, t01=0x008c}
0x11c8…11d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a0}
0x11d2…11f6 Head {h00=0x0020, h01=0x0050, text=»* LINE WORKBLOCKS EQUATES «, t00=0x000b, t01=0x00aa}
0x11f6…1200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ce}
0x1200…121c Head {h00=0x0018, h01=0x0050, text=»LIN EQU /10 LINE NBR«, t00=0x000b, t01=0x00d8}
0x121c…123e Head {h00=0x001e, h01=0x0050, text=»LINBC EQU /11 BUSY COUNTER«, t00=0x000b, t01=0x00f4}
0x123e…1262 Head {h00=0x0020, h01=0x0050, text=»LINTC EQU /12 TRANS COUNTER «, t00=0x000b, t01=0x0116}
0x1262…1286 Head {h00=0x0020, h01=0x0050, text=»LINEC EQU /13 ERROR COUNTER «, t00=0x000b, t01=0x013a}
0x1286…12b0 Head {h00=0x0026, h01=0x0050, text=»LINHUR EQU /14 TIME OF LAST TRANS «, t00=0x000b, t01=0x015e}
0x12b0…12c6 Head {h00=0x0012, h01=0x0050, text=»LINMIN EQU /15«, t00=0x000b, t01=0x0188}
0x12c6…12dc Head {h00=0x0012, h01=0x0050, text=»LINSEC EQU /16«, t00=0x000c, t01=0x000e}
0x12dc…12e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0024}
0x12e6…1306 Head {h00=0x001c, h01=0x0050, text=»* TC WORKBLOCK EQUATES«, t00=0x000c, t01=0x002e}
0x1306…1310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004e}
0x1310…1322 Head {h00=0x000e, h01=0x0050, text=»TC EQU /20«, t00=0x000c, t01=0x0058}
0x1322…1336 Head {h00=0x0010, h01=0x0050, text=»TCBC EQU /21«, t00=0x000c, t01=0x006a}
0x1336…134a Head {h00=0x0010, h01=0x0050, text=»TCTC EQU /22«, t00=0x000c, t01=0x007e}
0x134a…135e Head {h00=0x0010, h01=0x0050, text=»TCEC EQU /23«, t00=0x000c, t01=0x0092}
0x135e…1374 Head {h00=0x0012, h01=0x0050, text=»TCHUR EQU /24 «, t00=0x000c, t01=0x00a6}
0x1374…138a Head {h00=0x0012, h01=0x0050, text=»TCMIN EQU /25 «, t00=0x000c, t01=0x00bc}
0x138a…13a0 Head {h00=0x0012, h01=0x0050, text=»TCSEC EQU /26 «, t00=0x000c, t01=0x00d2}
0x13a0…13bc Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000c, t01=0x00e8}
0x13bc…13c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c6…13f4 Head {h00=0x002a, h01=0x0050, text=»* CC WORKBLOCK RESPONSETIME EQUATES «, t00=0x000c, t01=0x010e}
0x13f4…13fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013c}
0x13fe…1412 Head {h00=0x0010, h01=0x0050, text=»CC1 EQU /30 «, t00=0x000c, t01=0x0146}
0x1412…1426 Head {h00=0x0010, h01=0x0050, text=»CC2 EQU /31 «, t00=0x000c, t01=0x015a}
0x1426…143a Head {h00=0x0010, h01=0x0050, text=»CC3 EQU /32 «, t00=0x000c, t01=0x016e}
0x143a…144e Head {h00=0x0010, h01=0x0050, text=»CC4 EQU /33 «, t00=0x000c, t01=0x0182}
0x144e…1462 Head {h00=0x0010, h01=0x0050, text=»CC5 EQU /34 «, t00=0x000d, t01=0x0008}
0x1462…1476 Head {h00=0x0010, h01=0x0050, text=»CC6 EQU /35 «, t00=0x000d, t01=0x001c}
0x1476…148a Head {h00=0x0010, h01=0x0050, text=»CC7 EQU /36 «, t00=0x000d, t01=0x0030}
0x148a…149e Head {h00=0x0010, h01=0x0050, text=»CC8 EQU /37 «, t00=0x000d, t01=0x0044}
0x149e…14b2 Head {h00=0x0010, h01=0x0050, text=»CC9 EQU /38 «, t00=0x000d, t01=0x0058}
0x14b2…14c6 Head {h00=0x0010, h01=0x0050, text=»CC10 EQU /39«, t00=0x000d, t01=0x006c}
0x14c6…14da Head {h00=0x0010, h01=0x0050, text=»CC11 EQU /3A«, t00=0x000d, t01=0x0080}
0x14da…14ee Head {h00=0x0010, h01=0x0050, text=»CC12 EQU /3B«, t00=0x000d, t01=0x0094}
0x14ee…14f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a8}
0x14f8…1518 Head {h00=0x001c, h01=0x0050, text=»* CC WORKBLOCK EQUATES«, t00=0x000d, t01=0x00b2}
0x1518…1522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d2}
0x1522…1548 Head {h00=0x0022, h01=0x0050, text=»CCTO EQU /40 TIME OUT COUNTER «, t00=0x000d, t01=0x00dc}
0x1548…155c Head {h00=0x0010, h01=0x0050, text=»CCTC EQU /41«, t00=0x000d, t01=0x0102}
0x155c…1570 Head {h00=0x0010, h01=0x0050, text=»CCEC EQU /42«, t00=0x000d, t01=0x0116}
0x1570…159a Head {h00=0x0026, h01=0x0050, text=»CCSUP EQU /43 SUPERV MSGS COUNTER «, t00=0x000d, t01=0x012a}
0x159a…15c2 Head {h00=0x0024, h01=0x0050, text=»CCHUR EQU /44 TIME OF LAST REPLY«, t00=0x000d, t01=0x0154}
0x15c2…15d8 Head {h00=0x0012, h01=0x0050, text=»CCMIN EQU /45 «, t00=0x000d, t01=0x017c}
0x15d8…15ee (14, 0, 400) Head {h00=0x0012, h01=0x0050, text=»CCSEC EQU /46 «, t00=0x000e, t01=0x0004}
0x15ee…160a Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000e, t01=0x001a}
0x160a…1614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0036}
0x1614…163a Head {h00=0x0022, h01=0x0050, text=»* NETWORK WORKBLOCK EQUATES«, t00=0x000e, t01=0x0040}
0x163a…1644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0066}
0x1644…1672 Head {h00=0x002a, h01=0x0050, text=»NWTC EQU /5D ACCUMULATED TRANS COUNTER«, t00=0x000e, t01=0x0070}
0x1672…1696 Head {h00=0x0020, h01=0x0050, text=»NWEC EQU /5E ACC ERROR COUNT«, t00=0x000e, t01=0x009e}
0x1696…16a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x16a0…16c2 Head {h00=0x001e, h01=0x0050, text=»PCNT1 EQU /50 % INTERVALS «, t00=0x000e, t01=0x00cc}
0x16c2…16d8 Head {h00=0x0012, h01=0x0050, text=»PCNT2 EQU /51 «, t00=0x000e, t01=0x00ee}
0x16d8…16ee Head {h00=0x0012, h01=0x0050, text=»PCNT3 EQU /52 «, t00=0x000e, t01=0x0104}
0x16ee…1704 Head {h00=0x0012, h01=0x0050, text=»PCNT4 EQU /53 «, t00=0x000e, t01=0x011a}
0x1704…171a Head {h00=0x0012, h01=0x0050, text=»PCNT5 EQU /54 «, t00=0x000e, t01=0x0130}
0x171a…1730 Head {h00=0x0012, h01=0x0050, text=»PCNT6 EQU /55 «, t00=0x000e, t01=0x0146}
0x1730…1746 Head {h00=0x0012, h01=0x0050, text=»PCNT7 EQU /56 «, t00=0x000e, t01=0x015c}
0x1746…175c Head {h00=0x0012, h01=0x0050, text=»PCNT8 EQU /57 «, t00=0x000e, t01=0x0172}
0x175c…1772 Head {h00=0x0012, h01=0x0050, text=»PCNT9 EQU /58 «, t00=0x000e, t01=0x0188}
0x1772…1788 Head {h00=0x0012, h01=0x0050, text=»PCNT10 EQU /59«, t00=0x000f, t01=0x000e}
0x1788…179e Head {h00=0x0012, h01=0x0050, text=»PCNT11 EQU /5A«, t00=0x000f, t01=0x0024}
0x179e…17b4 Head {h00=0x0012, h01=0x0050, text=»PCNT12 EQU /5B«, t00=0x000f, t01=0x003a}
0x17b4…17be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0050}
0x17be…17e2 Head {h00=0x0020, h01=0x0050, text=»RSPTIM EQU /5C RESPONSE TIME«, t00=0x000f, t01=0x005a}
0x17e2…1806 Head {h00=0x0020, h01=0x0050, text=»PCNTW EQU /5F % WORK AREA 1 «, t00=0x000f, t01=0x007e}
0x1806…182a Head {h00=0x0020, h01=0x0050, text=»PCNTW2 EQU /6C %WORK AREA 2 «, t00=0x000f, t01=0x00a2}
0x182a…1834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c6}
0x1834…1858 Head {h00=0x0020, h01=0x0050, text=»* CC TEXT-INTERVAL EQUATES «, t00=0x000f, t01=0x00d0}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1862…1876 Head {h00=0x0010, h01=0x0050, text=»IN1 EQU /60 «, t00=0x000f, t01=0x00fe}
0x1876…188a Head {h00=0x0010, h01=0x0050, text=»IN2 EQU /61 «, t00=0x000f, t01=0x0112}
0x188a…189e Head {h00=0x0010, h01=0x0050, text=»IN3 EQU /62 «, t00=0x000f, t01=0x0126}
0x189e…18b2 Head {h00=0x0010, h01=0x0050, text=»IN4 EQU /63 «, t00=0x000f, t01=0x013a}
0x18b2…18c6 Head {h00=0x0010, h01=0x0050, text=»IN5 EQU /64 «, t00=0x000f, t01=0x014e}
0x18c6…18da Head {h00=0x0010, h01=0x0050, text=»IN6 EQU /65 «, t00=0x000f, t01=0x0162}
0x18da…18ee Head {h00=0x0010, h01=0x0050, text=»IN7 EQU /66 «, t00=0x000f, t01=0x0176}
0x18ee…1902 Head {h00=0x0010, h01=0x0050, text=»IN8 EQU /67 «, t00=0x000f, t01=0x018a}
0x1902…1916 Head {h00=0x0010, h01=0x0050, text=»IN9 EQU /68 «, t00=0x0010, t01=0x000e}
0x1916…192a Head {h00=0x0010, h01=0x0050, text=»IN10 EQU /69«, t00=0x0010, t01=0x0022}
0x192a…193e Head {h00=0x0010, h01=0x0050, text=»IN11 EQU /6A«, t00=0x0010, t01=0x0036}
0x193e…1952 Head {h00=0x0010, h01=0x0050, text=»IN12 EQU /6B«, t00=0x0010, t01=0x004a}
0x1952…196e Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0010, t01=0x005e}
0x196e…1978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007a}
0x1978…19a8 Head {h00=0x002c, h01=0x0050, text=»CVTCLK EQU /98 ADDRESS TO MONITOR CLOCK «, t00=0x0010, t01=0x0084}
0x19a8…19b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19b2…19e4 Head {h00=0x002e, h01=0x0050, text=»IDXBL EQU -4 INDEX IN CC-BUFFER TO LENGTH «, t00=0x0010, t01=0x00be}
0x19e4…1a22 Head {h00=0x003a, h01=0x0050, text=»ORIGIN EQU -4 INDEX TO COMMAND ORIGIN INDICATOR IN TCA«, t00=0x0010, t01=0x00f0}
0x1a22…1a54 Head {h00=0x002e, h01=0x0050, text=»INPBL EQU -4 INDEX TO INPUT BUFFER LENGTH «, t00=0x0010, t01=0x012e}
0x1a54…1a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0160}
0x1a5e…1a7e Head {h00=0x001c, h01=0x0050, text=»K:EBA EQU 2 ECB EQUATES «, t00=0x0010, t01=0x016a}
0x1a7e…1a92 Head {h00=0x0010, h01=0x0050, text=»K:ERL EQU 4 «, t00=0x0010, t01=0x018a}
0x1a92…1aa6 Head {h00=0x0010, h01=0x0050, text=»K:EEL EQU 6 «, t00=0x0011, t01=0x000e}
0x1aa6…1aba Head {h00=0x0010, h01=0x0050, text=»K:ERC EQU 8 «, t00=0x0011, t01=0x0022}
0x1aba…1ace Head {h00=0x0010, h01=0x0050, text=»K:ECW EQU 10«, t00=0x0011, t01=0x0036}
0x1ace…1ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004a}
0x1ad8…1ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0054}
0x1ae2…1b0e Head {h00=0x0028, h01=0x0050, text=»TCAWBL EQU 6 INDEX IN TCA TO LINE WB«, t00=0x0011, t01=0x005e}
0x1b0e…1b3a Head {h00=0x0028, h01=0x0050, text=»TCAWBT EQU 10 INDEX IN TCA TO TC WB «, t00=0x0011, t01=0x008a}
0x1b3a…1b56 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0011, t01=0x00b6}
0x1b56…1b96 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0011, t01=0x00d2}
0x1b96…1ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0112}
0x1ba0…1bc6 Head {h00=0x0022, h01=0x0050, text=»* SYSTEM ADAPTION PARAMETERS«, t00=0x0011, t01=0x011c}
0x1bc6…1bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0142}
0x1bd0…1bf0 Head {h00=0x001c, h01=0x0050, text=»* KEYBOARD KONTROL KEYS «, t00=0x0011, t01=0x014c}
0x1bf0…1c12 Head {h00=0x001e, h01=0x0050, text=»K:KKEY EQU /2F ENTRY K KEY«, t00=0x0011, t01=0x016c}
0x1c12…1c34 Head {h00=0x001e, h01=0x0050, text=»K:UKEY EQU /28 ENTER U KEY«, t00=0x0011, t01=0x018e}
0x1c34…1c5c Head {h00=0x0024, h01=0x0050, text=»K:EOR EQU /2A END OF RECORD KEY «, t00=0x0012, t01=0x0020}
0x1c5c…1c7e Head {h00=0x001e, h01=0x0050, text=»CANCEL EQU /23 CANCEL KEY «, t00=0x0012, t01=0x0048}
0x1c7e…1ca6 Head {h00=0x0024, h01=0x0050, text=»* TIME OUT VALUES OF TRUNK LINE «, t00=0x0012, t01=0x006a}
0x1ca6…1ce0 Head {h00=0x0036, h01=0x0050, text=»K:WTIM EQU 60 CC WRITE REQUEST TIME OUT (X100 MS) «, t00=0x0012, t01=0x0092}
0x1ce0…1d1e Head {h00=0x003a, h01=0x0050, text=»K:QTIM EQU 600 CC EXCHANGE REQUEST TIME OUT (X100 MS) «, t00=0x0012, t01=0x00cc}
0x1d1e…1d36 Head {h00=0x0014, h01=0x0050, text=»* BUFFER LENGTHS«, t00=0x0012, t01=0x010a}
0x1d36…1d6c Head {h00=0x0032, h01=0x0050, text=»K:CCBL EQU 1150 CCWRITE BUFFER LENGTH (WORDS) «, t00=0x0012, t01=0x0122}
0x1d6c…1dac Head {h00=0x003c, h01=0x0050, text=»K:EDBL EQU 50 EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) «, t00=0x0012, t01=0x0158}
0x1dac…1de4 Head {h00=0x0034, h01=0x0050, text=»K:BLTC EQU 64 LENGTH OF CASSETTE BUFFER (WORDS) «, t00=0x0013, t01=0x0008}
0x1de4…1e10 Head {h00=0x0028, h01=0x0050, text=»K:KBL EQU 70 KB BUF LENGTH IN WORDS «, t00=0x0013, t01=0x0040}
0x1e10…1e38 Head {h00=0x0024, h01=0x0050, text=»K:KBBL EQU K:KBL+K:KBL IN CHARS «, t00=0x0013, t01=0x006c}
0x1e38…1e64 Head {h00=0x0028, h01=0x0050, text=»K:GPBL EQU 60 GP BUF LENGTH IN WORDS«, t00=0x0013, t01=0x0094}
0x1e64…1e9a Head {h00=0x0032, h01=0x0050, text=»K:S0BL EQU 60 SIMULATED TERMINAL 0 BUF (WORDS)«, t00=0x0013, t01=0x00c0}
0x1e9a…1ed8 Head {h00=0x003a, h01=0x0050, text=»K:INBL EQU 1150 TERMINAL LINE INPUT BUF LENGTH (WORDS)«, t00=0x0013, t01=0x00f6}
0x1ed8…1ee6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0134}
0x1ee6…1f3a Head {h00=0x0050, h01=0x0050, text=»* COMMUNICATION ADDRESSES FOR TRUNK LINE. IF SPECIFIED AT SYSTEM GENERATION «, t00=0x0013, t01=0x0142}
0x1f3a…1f64 Head {h00=0x0026, h01=0x0050, text=»K:CCAD EQU 0 CONCENTRATOR ADDRESS «, t00=0x0014, t01=0x0008}
0x1f64…1f88 Head {h00=0x0020, h01=0x0050, text=» LEFT BYTE = SELECT ADDR. «, t00=0x0014, t01=0x0032}
0x1f88…1faa Head {h00=0x001e, h01=0x0050, text=» RIGHT BYTE = POLL ADDR.«, t00=0x0014, t01=0x0056}
0x1faa…1fe6 Head {h00=0x0038, h01=0x0050, text=»K:SIMZ EQU 0 SIM. TERM. FOR COMMANDS/SYSTEM MESSAGES«, t00=0x0014, t01=0x0078}
0x1fe6…2004 Head {h00=0x001a, h01=0x0050, text=» AND SYSTEM MESSAGES«, t00=0x0014, t01=0x00b4}
0x2004…203c Head {h00=0x0034, h01=0x0050, text=»K:SIMS EQU 0 SIM. TERM. FOR SUPERVISORY MESSAGES«, t00=0x0014, t01=0x00d2}
0x203c…2072 Head {h00=0x0032, h01=0x0050, text=»K:FCS EQU 0 DEVICE FILE CODE OF K:SIMS IF USED«, t00=0x0014, t01=0x010a}
0x2072…2076 Head {h00=0x0054, h01=0x0050}
0x2076…207a Head {h00=0x2a20, h01=0x5349}
0x207a…2080 4d 55 4c 41 54 45 ┆MULATE┆
0x2080…20c6 44 20 54 45 52 4d 49 4e 41 4c 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 ┆D TERMINAL ADDRESSES FOR INQUIRY. RIGHT BYTE. IF SPECIFIED AT SYSTEM G┆
0x20c6…2116 (21, 0, 400) 00 14 01 40 00 20 00 50 4b 3a 53 41 31 5c 45 51 55 5c 30 5c 53 49 4d 2e 20 54 45 52 4d 2e 20 4e 42 52 20 31 00 15 00 08 00 16 00 50 4b 3a 53 41 32 5c 45 51 55 5c 30 5c 4e 42 52 20 32 20 00 15 00 2c 00 16 00 50 4b 3a 53 41 33 5c 45 51 55 5c ┆ @ PK:SA1 EQU 0 SIM. TERM. NBR 1 PK:SA2 EQU 0 NBR 2 , PK:SA3 EQU ┆
0x2116…2166 30 5c 4e 42 52 20 33 20 00 15 00 46 00 16 00 50 4b 3a 53 41 34 5c 45 51 55 5c 30 5c 4e 42 52 20 34 20 00 15 00 60 00 16 00 50 4b 3a 53 41 35 5c 45 51 55 5c 30 5c 4e 42 52 20 35 20 00 15 00 7a 00 16 00 50 4b 3a 53 41 36 5c 45 51 55 5c 30 5c ┆0 NBR 3 F PK:SA4 EQU 0 NBR 4 ` PK:SA5 EQU 0 NBR 5 z PK:SA6 EQU 0 ┆
0x2166…21b6 4e 42 52 20 36 20 00 15 00 94 00 16 00 50 4b 3a 53 41 37 5c 45 51 55 5c 30 5c 4e 42 52 20 37 20 00 15 00 ae 00 16 00 50 4b 3a 53 41 38 5c 45 51 55 5c 30 5c 4e 42 52 20 38 20 00 15 00 c8 00 16 00 50 4b 3a 53 41 39 5c 45 51 55 5c 30 5c 4e 42 ┆NBR 6 PK:SA7 EQU 0 NBR 7 PK:SA8 EQU 0 NBR 8 PK:SA9 EQU 0 NB┆
0x21b6…2206 52 20 39 20 00 15 00 e2 00 18 00 50 4b 3a 53 41 31 30 5c 45 51 55 5c 30 5c 4e 42 52 20 31 30 20 00 15 00 fc 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 15 01 18 00 18 00 50 4b 3a 53 41 31 32 5c 45 51 55 5c 30 ┆R 9 PK:SA10 EQU 0 NBR 10 PK:SA11 EQU 0 NBR 11 PK:SA12 EQU 0┆
0x2206…2256 5c 4e 42 52 20 31 32 20 00 15 01 34 00 18 00 50 4b 3a 53 41 31 33 5c 45 51 55 5c 30 5c 4e 42 52 20 31 33 20 00 15 01 50 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 15 01 6c 00 18 00 50 4b 3a 53 41 31 35 5c 45 ┆ NBR 12 4 PK:SA13 EQU 0 NBR 13 P PK:SA14 EQU 0 NBR 14 l PK:SA15 E┆
0x2256…22a6 (22, 0, 398) 51 55 5c 30 5c 4e 42 52 20 31 35 20 00 15 01 88 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 14 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 00 30 00 18 00 50 4b 3a 53 41 ┆QU 0 NBR 15 PK:SA16 EQU 0 NBR 16 PK:SA17 EQU 0 NBR 17 0 PK:SA┆
0x22a6…22f6 31 38 5c 45 51 55 5c 30 5c 4e 42 52 20 31 38 20 00 16 00 4c 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 00 68 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 00 84 00 18 00 50 ┆18 EQU 0 NBR 18 L PK:SA19 EQU 0 NBR 19 h PK:SA20 EQU 0 NBR 20 P┆
0x22f6…2346 4b 3a 53 41 32 31 5c 45 51 55 5c 30 5c 4e 42 52 20 32 31 20 00 16 00 a0 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 16 00 bc 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 16 00 d8 ┆K:SA21 EQU 0 NBR 21 PK:SA22 EQU 0 NBR 22 PK:SA23 EQU 0 NBR 23 ┆
0x2346…2396 00 18 00 50 4b 3a 53 41 32 34 5c 45 51 55 5c 30 5c 4e 42 52 20 32 34 20 00 16 00 f4 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 16 01 10 00 18 00 50 4b 3a 53 41 32 36 5c 45 51 55 5c 30 5c 4e 42 52 20 32 36 20 ┆ PK:SA24 EQU 0 NBR 24 PK:SA25 EQU 0 NBR 25 PK:SA26 EQU 0 NBR 26 ┆
0x2396…23e4 00 16 01 2c 00 0a 00 50 5c 45 4a 45 43 54 00 16 01 48 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 ┆ , P EJECT H < P******************************************************* ┆
0x23e4…2434 (23, 0, 400) 00 16 01 56 00 06 00 50 2a 20 00 17 00 08 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 17 00 12 00 28 00 50 2a 20 20 20 4f 46 20 43 4f 4e 43 45 4e 54 ┆ V P* , P* PARAMETERS FOR CONDITIONAL ASSEMBLY ( P* OF CONCENT┆
0x2434…2484 52 41 54 4f 52 20 50 41 43 4b 41 47 45 20 4d 4f 44 55 4c 45 53 20 00 17 00 42 00 06 00 50 2a 20 00 17 00 6e 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 ┆RATOR PACKAGE MODULES B P* n < P****************************************┆
0x2484…24d4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 17 00 78 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 17 00 b8 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 ┆*************** x PX:A EQU 2 * NLINE <=10 P NUMBER OF TERMINAL LI┆
0x24d4…2524 4e 45 53 20 00 17 00 d8 00 1a 00 50 58 3a 42 5c 45 51 55 5c 31 35 5c 2a 20 20 4e 54 43 20 3c 3d 38 30 00 17 00 fc 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 ┆NES PX:B EQU 15 * NTC <=80 . P TOTAL NUMBER OF TC:S ON TERMINAL LI┆
0x2524…2574 4e 45 53 20 00 17 01 1a 00 1c 00 50 58 3a 43 5c 45 51 55 5c 32 36 5c 2a 20 20 4e 53 49 4d 20 3c 3d 32 36 20 00 17 01 4c 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 17 01 6c ┆NES PX:C EQU 26 * NSIM <=26 L $ P NUMBER OF SIMULATED TERMINALS l┆
0x2574…25c4 (24, 0, 400) 00 14 00 50 5c 5c 5c 46 4f 52 20 49 4e 51 55 49 52 49 45 53 00 18 00 04 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 1c 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 ┆ P FOR INQUIRIES PX:D EQU 0 * LOOP . P IF = 0. MULTIPOINT CONF┆
0x25c4…2614 49 47 2e 20 44 4f 57 4e 53 54 52 45 41 4d 53 20 00 18 00 36 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 00 68 00 1c 00 50 58 3a 45 5c 45 51 ┆IG. DOWNSTREAMS 6 . P IF = 1. LOOP CONFIGURATION DOWNSTREAMS h PX:E EQ┆
0x2614…2664 55 5c 34 5c 2a 20 20 4e 53 50 4f 4f 4c 20 3c 3d 34 20 00 18 00 9a 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 18 00 ba 00 22 00 50 5c 5c 5c 46 55 4e 43 54 49 4f ┆U 4 * NSPOOL <=4 ( P NUMBER OF EDIT BUFFERS FOR SPOOL " P FUNCTIO┆
0x2664…26b4 4e 20 54 4f 20 4f 50 45 52 41 54 4f 52 53 20 54 45 52 4d 2e 00 18 00 e6 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 18 01 0c 00 28 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 54 52 41 ┆N TO OPERATORS TERM. PX:F EQU 4 * 0< NTPLIN <=40 ( P NUMBER OF TRA┆
0x26b4…2704 53 4b 53 20 49 4e 20 50 4f 4f 4c 20 27 54 50 4c 49 4e 27 20 00 18 01 30 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 18 01 5c 00 1e 00 50 58 3a 47 5c 45 51 55 5c 32 5c ┆SKS IN POOL 'TPLIN' 0 & P HANDLING TRANSACTIONS FROM TC:S PX:G EQU 2 ┆
0x2704…2754 (25, 0, 400) 2a 20 20 30 3c 20 4e 54 50 53 55 50 20 3c 3d 35 00 18 01 86 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 18 00 2c 00 50 5c 5c 5c 48 41 4e 44 4c 49 4e 47 20 ┆* 0< NTPSUP <=5 ( P NUMBER OF TRASKS IN POOL 'TPSUP' , P HANDLING ┆
0x2754…27a4 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 00 19 00 44 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 00 74 00 18 00 50 58 3a 48 5c 45 51 55 5c 31 5c 2a 20 ┆TRANSACTIONS FROM MAIN FRAME D P OR OPERATORS TERMINAL t PX:H EQU 1 * ┆
0x27a4…27f4 20 4c 49 4e 54 53 54 20 00 19 00 94 00 24 00 50 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 00 b0 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 ┆ LINTST $ P IF = 0. NO LINE TEST COMMAND 0 P IF = 1. LINE TEST FAC┆
0x27f4…2844 49 4c 49 54 59 20 28 34 2d 57 49 52 45 20 4f 4e 4c 59 29 20 00 19 00 d8 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 19 01 0c 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 ┆ILITY (4-WIRE ONLY) PX:I EQU 2 * ONLINE $ P IF = 0. OFF LINE CONC┆
0x2844…2894 45 4e 54 52 41 54 4f 52 00 19 01 28 00 28 00 50 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 19 01 50 00 24 00 50 5c 5c 5c 49 46 20 3d 20 32 2e 20 4f 4e 20 4c 49 4e 45 20 43 ┆ENTRATOR ( ( P IF = 1. ON/OFF LINE CONCENTRATOR P $ P IF = 2. ON LINE C┆
0x2894…28e4 (26, 0, 398) 4f 4e 43 45 4e 54 52 41 54 4f 52 20 00 19 01 7c 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 14 00 06 00 50 2a 20 00 1a 00 30 00 06 00 50 2a 20 00 1a 00 3a 00 06 00 50 2a 20 00 1a 00 44 00 06 00 50 2a 20 ┆ONCENTRATOR | PX:K EQU 1 * SETADR P* 0 P* : P* D P* ┆
0x28e4…2934 00 1a 00 4e 00 06 00 50 2a 20 00 1a 00 58 00 06 00 50 2a 20 00 1a 00 62 00 06 00 50 2a 20 00 1a 00 6c 00 0a 00 50 5c 4c 49 53 54 20 00 1a 00 76 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 4e 53 55 20 00 1a 00 84 00 48 00 50 ┆ N P* X P* b P* l P LIST v P EJECT IDENT C:NSU H P┆
0x2934…2984 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 4b 20 3a 20 43 20 4b 20 4c 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1a 00 a0 00 06 00 50 2a 20 00 1a ┆*******************K : C K L ************************************* P* ┆
0x2984…29d4 00 ec 00 06 00 50 2a 20 00 1a 00 f6 00 1a 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 20 20 4b 20 3a 20 43 20 4b 20 4c 00 1a 01 00 00 06 00 50 2a 20 00 1a 01 1e 00 3a 00 50 2a 43 48 45 43 4b 53 20 49 46 20 54 48 45 20 4c 49 4e 45 20 4e 42 52 20 ┆ P* P*SUBROUTINE K : C K L P* : P*CHECKS IF THE LINE NBR ┆
0x29d4…2a22 49 4e 20 4b 42 20 42 55 46 46 45 52 20 45 58 49 53 54 53 20 49 4e 20 53 55 53 54 45 4d 20 00 1a 01 28 00 2c 00 50 2a 49 46 20 4e 4f 54 2c 20 27 4c 49 4e 45 20 4e 4f 54 20 49 4e 20 53 59 53 54 45 4d 27 20 49 53 20 50 52 49 4e 54 45 44 ┆IN KB BUFFER EXISTS IN SUSTEM ( , P*IF NOT, 'LINE NOT IN SYSTEM' IS PRINTED┆
0x2a22…2a72 (27, 0, 400) 00 1a 01 66 00 2a 00 50 2a 45 4c 53 45 20 4c 49 4e 45 20 57 42 20 41 44 44 52 45 53 53 20 49 53 20 46 49 4c 4c 45 44 20 49 4e 20 54 43 41 00 1b 00 08 00 06 00 50 2a 20 00 1b 00 36 00 06 00 50 2a 20 00 1b 00 40 00 24 00 50 2a 20 43 41 4c 4c ┆ f * P*ELSE LINE WB ADDRESS IS FILLED IN TCA P* 6 P* @ $ P* CALL┆
0x2a72…2ac2 20 53 45 51 55 45 4e 43 45 3a 5c 43 46 20 20 20 41 31 34 2c 4b 3a 43 4b 4c 20 00 1b 00 4a 00 06 00 50 2a 20 00 1b 00 72 00 32 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 3a 5c 41 38 20 3d 20 41 44 44 52 45 53 53 20 54 4f 20 49 4e 50 ┆ SEQUENCE: CF A14,K:CKL J P* r 2 P* ENTRY PARAM: A8 = ADDRESS TO INP┆
0x2ac2…2b12 55 54 20 42 55 46 46 45 52 20 00 1b 00 7c 00 06 00 50 2a 20 00 1b 00 b2 00 1c 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 5c 4b 3a 50 52 54 4e 20 00 1b 00 bc 00 06 00 50 2a 20 00 1b 00 dc 00 34 00 50 2a 20 20 52 45 54 55 52 4e 20 ┆UT BUFFER | P* P* SUBROUTINES: K:PRTN P* 4 P* RETURN ┆
0x2b12…2b62 50 41 52 41 4d 3a 5c 41 32 20 3d 20 4c 49 4e 45 20 4e 42 52 20 28 32 20 41 53 43 49 49 20 44 49 47 49 54 53 29 20 00 1b 00 e6 00 1c 00 50 2a 5c 5c 41 33 20 3d 20 4c 49 4e 45 20 57 42 20 41 44 44 52 45 53 53 20 00 1b 01 1e 00 38 00 50 2a 5c ┆PARAM: A2 = LINE NBR (2 ASCII DIGITS) P* A3 = LINE WB ADDRESS 8 P* ┆
0x2b62…2bb2 5c 41 34 20 3d 20 49 4e 44 45 58 20 49 4e 20 49 4e 50 55 54 20 42 55 46 20 54 4f 20 4c 41 53 54 20 44 49 47 49 54 20 49 4e 20 4c 49 4e 45 20 4e 42 52 00 1b 01 3e 00 16 00 50 2a 5c 5c 4c 49 4e 45 20 57 42 20 49 4e 20 54 43 41 20 00 1b 01 7a ┆ A4 = INDEX IN INPUT BUF TO LAST DIGIT IN LINE NBR > P* LINE WB IN TCA z┆
0x2bb2…2c02 (28, 0, 400) 00 1c 00 50 2a 20 20 5c 5c 43 4e 44 20 3d 20 30 20 49 46 20 57 42 20 46 4f 55 4e 44 00 1c 00 04 00 2a 00 50 2a 20 20 5c 5c 20 20 20 20 20 20 31 20 49 46 20 4c 49 4e 45 20 4e 42 52 20 4e 4f 54 20 49 4e 20 53 59 53 54 45 4d 00 1c 00 24 00 06 ┆ P* CND = 0 IF WB FOUND * P* 1 IF LINE NBR NOT IN SYSTEM $ ┆
0x2c02…2c52 00 50 2a 20 00 1c 00 52 00 1c 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 00 1c 00 5c 00 06 00 50 2a 20 00 1c 00 7c 00 1a 00 50 2a 20 20 43 48 41 4e 47 45 44 20 52 45 47 53 3a 5c 41 31 2d 41 35 00 1c 00 86 ┆ P* R P* RETURN METOD: DIRECT P* | P* CHANGED REGS: A1-A5 ┆
0x2c52…2ca2 00 06 00 50 2a 20 00 1c 00 a4 00 1e 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 5c 31 34 20 57 4f 52 44 53 20 00 1c 00 ae 00 06 00 50 2a 20 00 1c 00 d0 00 24 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 5c 4e 4f 54 20 52 ┆ P* P* STACKER NEED: 14 WORDS P* $ P* LIMITATIONS: NOT R┆
0x2ca2…2cf2 45 45 4e 54 52 41 4e 54 5c 20 00 1c 00 da 00 06 00 50 2a 20 00 1c 01 02 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 1c 01 0c 00 06 00 50 2a 20 00 1c 01 2a 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EENTRANT P* P* CALLING TASK: OPCOM P* * D P************┆
0x2cf2…2d42 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 1c 01 34 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 4e 53 55 20 ┆*************************************************** 4 P EJECT IDENT C:NSU ┆
0x2d42…2d92 (29, 0, 400) 00 1c 01 7c 00 10 00 50 2a 5c 5c 4b 20 3a 20 43 20 4b 20 4c 00 1d 00 08 00 06 00 50 2a 20 00 1d 00 1c 00 24 00 50 2a 20 20 20 47 45 54 20 4c 49 4e 45 20 4e 42 52 20 46 52 4f 4d 20 4b 42 20 42 55 46 46 45 52 5c 00 1d 00 26 00 06 00 50 2a 20 ┆ | P* K : C K L P* $ P* GET LINE NBR FROM KB BUFFER & P* ┆
0x2d92…2de2 00 1d 00 4e 00 06 00 50 2a 20 00 1d 00 58 00 10 00 50 4b 3a 43 4b 4c 5c 45 51 55 5c 2a 20 00 1d 00 62 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 33 20 00 1d 00 76 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 1d 00 88 00 0e 00 50 5c 4c 44 52 5c 41 ┆ N P* X PK:CKL EQU * b P LDK A4,3 v P LDK A2,0 P LDR A┆
0x2de2…2e32 35 2c 41 38 00 1d 00 9a 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 34 20 00 1d 00 ac 00 1e 00 50 5c 4c 43 52 5c 41 32 2c 41 35 5c 47 45 54 20 32 3a 4e 44 20 44 49 47 49 54 20 00 1d 00 be 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 1d 00 e0 00 10 ┆5,A8 P ADK A5,4 P LCR A2,A5 GET 2:ND DIGIT P LDR A3,A2 ┆
0x2e32…2e82 00 50 5c 53 55 4b 5c 41 33 2c 2f 33 30 20 00 1d 00 f2 00 2a 00 50 5c 52 46 28 4e 29 5c 43 4b 4c 31 30 30 5c 4c 49 4e 45 20 4e 42 52 20 4f 4e 4c 59 20 4f 4e 45 20 44 49 47 49 54 20 00 1d 01 06 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 39 20 00 1d ┆ P SUK A3,/30 * P RF(N) CKL100 LINE NBR ONLY ONE DIGIT P SUK A3,9 ┆
0x2e82…2ed2 01 34 00 2a 00 50 5c 52 46 28 50 29 5c 43 4b 4c 31 30 30 5c 4c 49 4e 45 20 4e 42 52 20 4f 4e 4c 59 20 4f 4e 45 20 44 49 47 49 54 20 00 1d 01 46 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 34 20 00 1d 01 74 00 0e 00 50 5c 45 43 52 5c 41 32 2c 41 32 ┆ 4 * P RF(P) CKL100 LINE NBR ONLY ONE DIGIT F P LDK A4,4 t P ECR A2,A2┆
0x2ed2…2f22 (30, 0, 400) 00 1d 01 86 00 0e 00 50 5c 53 55 4b 5c 41 35 2c 31 20 00 1e 00 08 00 1e 00 50 5c 4c 43 52 5c 41 32 2c 41 35 5c 47 45 54 20 31 3a 53 54 20 44 49 47 49 54 20 00 1e 00 1a 00 0e 00 50 5c 45 43 52 5c 41 32 2c 41 32 00 1e 00 3c 00 0e 00 50 5c 52 ┆ P SUK A5,1 P LCR A2,A5 GET 1:ST DIGIT P ECR A2,A2 < P R┆
0x2f22…2f72 46 5c 43 4b 4c 31 31 30 00 1e 00 4e 00 10 00 50 43 4b 4c 31 30 30 5c 45 51 55 5c 2a 00 1e 00 60 00 20 00 50 5c 41 44 4b 4c 5c 41 32 2c 2f 33 30 30 30 5c 46 49 4c 4c 49 4e 47 20 5a 45 52 4f 20 00 1e 00 74 00 0e 00 50 5c 53 55 4b 5c 41 35 2c ┆F CKL110 N PCKL100 EQU * ` P ADKL A2,/3000 FILLING ZERO t P SUK A5,┆
0x2f72…2fc2 31 20 00 1e 00 98 00 1e 00 50 5c 4c 43 52 5c 41 32 2c 41 35 5c 47 45 54 20 31 3a 53 54 20 44 49 47 49 54 20 00 1e 00 aa 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 4e 53 55 20 00 1e 00 cc 00 06 00 50 2a 20 00 1e 00 e8 00 16 ┆1 P LCR A2,A5 GET 1:ST DIGIT P EJECT IDENT C:NSU P* ┆
0x2fc2…3012 00 50 2a 20 20 20 53 45 41 52 43 48 20 4c 49 4e 45 20 57 42 00 1e 00 f2 00 06 00 50 2a 20 00 1e 01 0c 00 10 00 50 43 4b 4c 31 31 30 5c 45 51 55 5c 2a 00 1e 01 16 00 14 00 50 5c 4c 44 4b 4c 5c 41 33 2c 4b 3a 43 4f 4e 46 20 00 1e 01 2a 00 10 ┆ P* SEARCH LINE WB P* PCKL110 EQU * P LDKL A3,K:CONF * ┆
0x3012…3062 00 50 43 4b 4c 31 35 30 5c 45 51 55 5c 2a 00 1e 01 42 00 10 00 50 5c 4c 44 52 2a 5c 41 35 2c 41 33 20 00 1e 01 56 00 0e 00 50 5c 43 57 52 5c 41 32 2c 41 35 00 1e 01 6a 00 20 00 50 5c 52 46 28 45 29 5c 43 4b 4c 33 30 30 5c 4c 49 4e 45 20 57 ┆ PCKL150 EQU * B P LDR* A5,A3 V P CWR A2,A5 j P RF(E) CKL300 LINE W┆
0x3062…3070 (31, 0, 400) 42 20 46 4f 55 4e 44 20 00 1e 01 7c 00 14 ┆B FOUND | ┆
0x3070…307a 00 50 5c 41 44 4b 4c 5c 41 33 ┆ P ADKL A3┆
0x307a…55ee […elided…]
0x55ee…55f0 00 36 ┆ 6┆
0x55f0…5640 01 88 00 1c 00 50 5c 52 42 28 4e 5a 29 5c 4c 54 30 36 30 5c 4e 45 58 54 20 54 45 53 54 20 00 37 00 20 00 06 00 50 2a 20 00 37 00 40 00 2e 00 50 2a 20 20 20 43 4f 4e 56 45 52 54 20 45 52 52 4f 52 20 43 4f 55 4e 54 45 52 20 54 4f 20 41 53 43 ┆ P RB(NZ) LT060 NEXT TEST 7 P* 7 @ . P* CONVERT ERROR COUNTER TO ASC┆
0x5640…5690 49 49 2d 44 45 43 49 4d 41 4c 00 37 00 4a 00 06 00 50 2a 20 00 37 00 7c 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 33 00 37 00 86 00 1a 00 50 5c 52 46 28 5a 29 5c 4c 54 37 30 30 5c 4e 4f 20 45 52 52 4f 52 53 00 37 00 98 00 32 00 50 5c 4c 44 4b ┆II-DECIMAL 7 J P* 7 | P LDR A3,A3 7 P RF(Z) LT700 NO ERRORS 7 2 P LDK┆
0x5690…56e0 4c 5c 41 31 2c 4b 3a 46 4c 31 31 2b 31 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 4f 55 54 50 55 54 20 46 4f 52 4d 41 54 00 37 00 b6 00 10 00 50 5c 43 46 5c 41 31 34 2c 54 4c 58 44 00 37 00 ec 00 06 00 50 2a 20 00 37 01 00 00 1c 00 50 ┆L A1,K:FL11+1 GET ADDRESS TO OUTPUT FORMAT 7 P CF A14,TLXD 7 P* 7 P┆
0x56e0…5730 2a 20 20 20 50 52 49 4e 54 20 45 52 52 4f 52 20 43 4f 55 4e 54 45 52 20 00 37 01 0a 00 06 00 50 2a 20 00 37 01 2a 00 10 00 50 4c 54 36 30 30 5c 45 51 55 5c 2a 20 00 37 01 34 00 30 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 4e 5c 27 4c 49 ┆* PRINT ERROR COUNTER 7 P* 7 * PLT600 EQU * 7 4 0 P CF A14,K:PRTN 'LI┆
0x5730…5766 4e 45 20 4c 4c 20 4e 42 52 20 4f 46 20 42 49 54 20 45 52 52 4f 52 53 3a 27 20 00 37 01 48 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 4c 31 30 00 37 01 7c 00 0e 00 50 ┆NE LL NBR OF BIT ERRORS:' 7 H P DATA K:FL10 7 | P┆
0x5766…57b6 (56, 0, 400) 5c 52 46 5c 4c 54 45 4e 44 20 00 37 01 90 00 06 00 50 2a 20 00 38 00 12 00 18 00 50 2a 20 20 20 50 52 49 4e 54 20 4e 4f 20 45 52 52 4f 52 53 20 00 38 00 1c 00 06 00 50 2a 20 00 38 00 38 00 10 00 50 4c 54 37 30 30 5c 45 51 55 5c 2a 20 00 38 ┆ RF LTEND 7 P* 8 P* PRINT NO ERRORS 8 P* 8 8 PLT700 EQU * 8┆
0x57b6…5806 00 42 00 26 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 4e 5c 27 4c 49 4e 45 20 4c 4c 20 4e 4f 20 45 52 52 4f 52 27 20 00 38 00 56 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 4c 31 32 00 38 00 80 00 06 00 50 2a 20 00 38 00 94 00 0e 00 50 2a 20 ┆ B & P CF A14,K:PRTN 'LINE LL NO ERROR' 8 V P DATA K:FL12 8 P* 8 P* ┆
0x5806…5856 20 20 52 45 54 55 52 4e 00 38 00 9e 00 06 00 50 2a 20 00 38 00 b0 00 10 00 50 4c 54 45 4e 44 5c 45 51 55 5c 2a 20 00 38 00 ba 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 38 00 ce 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 4e 53 ┆ RETURN 8 P* 8 PLTEND EQU * 8 P RTN A14 8 P EJECT IDENT C:NS┆
0x5856…58a6 55 20 00 38 00 de 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 38 00 fa 00 06 00 50 2a 20 00 38 01 3a ┆U 8 < P******************************************************* 8 P* 8 :┆
0x58a6…58f6 00 18 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 3a 5c 54 20 4c 20 58 20 44 00 38 01 44 00 34 00 50 2a 43 4f 4e 56 45 52 54 53 20 4f 4e 45 20 57 4f 52 44 20 48 45 58 41 44 45 43 49 4d 41 4c 20 54 4f 20 41 53 43 49 49 2d 44 45 43 49 4d 41 4c 20 ┆ P*SUBROUTINE: T L X D 8 D 4 P*CONVERTS ONE WORD HEXADECIMAL TO ASCII-DECIMAL ┆
0x58f6…5946 (57, 0, 400) 00 38 01 60 00 2e 00 50 2a 35 20 44 49 47 49 54 53 20 57 49 54 48 20 53 55 50 52 45 53 53 49 4f 4e 20 4f 46 20 4c 45 41 44 49 4e 47 20 5a 45 52 4f 53 00 39 00 08 00 06 00 50 2a 20 00 39 00 3a 00 14 00 50 2a 5c 5c 41 33 20 3d 20 48 45 58 20 ┆ 8 ` . P*5 DIGITS WITH SUPRESSION OF LEADING ZEROS 9 P* 9 : P* A3 = HEX ┆
0x5946…5996 57 4f 52 44 00 39 00 44 00 24 00 50 2a 5c 5c 41 31 20 3d 20 50 4f 49 4e 54 45 52 20 54 4f 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 00 39 00 5c 00 06 00 50 2a 20 00 39 00 84 00 18 00 50 2a 43 48 41 4e 47 45 20 52 45 47 53 3a 5c 41 31 2d 41 ┆WORD 9 D $ P* A1 = POINTER TO OUTPUT BUFFER 9 P* 9 P*CHANGE REGS: A1-A┆
0x5996…59e6 36 20 00 39 00 8e 00 06 00 50 2a 20 00 39 00 aa 00 06 00 50 2a 20 00 39 00 b4 00 0e 00 50 54 4c 58 44 5c 45 51 55 5c 2a 00 39 00 be 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 39 00 d0 00 28 00 50 5c 4c 44 4b 5c 41 36 2c 30 5c 5a 45 52 4f ┆6 9 P* 9 P* 9 PTLXD EQU * 9 P LDK A2,0 9 ( P LDK A6,0 ZERO┆
0x59e6…5a36 20 53 55 50 52 45 53 53 49 4f 4e 20 49 4e 44 49 43 41 54 4f 52 20 00 39 00 e2 00 22 00 50 5c 4c 44 4b 5c 41 35 2c 34 5c 4e 55 4d 42 45 52 20 4f 46 20 44 49 47 49 54 53 20 2d 31 20 00 39 01 0e 00 2a 00 50 5c 4c 44 4b 4c 5c 41 34 2c 44 45 43 ┆ SUPRESSION INDICATOR 9 " P LDK A5,4 NUMBER OF DIGITS -1 9 * P LDKL A4,DEC┆
0x5a36…5a86 49 4d 41 5c 48 49 47 48 45 53 54 20 4f 52 44 45 52 20 44 45 43 49 4d 41 4c 20 00 39 01 34 00 1e 00 50 5c 4c 44 52 5c 41 33 2c 41 33 5c 48 45 58 20 57 4f 52 44 20 3e 20 33 32 4b 3f 00 39 01 62 00 16 00 50 5c 52 46 28 4e 4e 29 5c 54 4c 58 35 ┆IMA HIGHEST ORDER DECIMAL 9 4 P LDR A3,A3 HEX WORD > 32K? 9 b P RF(NN) TLX5┆
0x5a86…5ad6 (58, 0, 400) 30 30 5c 4e 4f 20 00 39 01 84 00 10 00 50 54 4c 58 31 30 30 5c 45 51 55 5c 2a 00 3a 00 0e 00 10 00 50 5c 53 55 52 2a 5c 41 33 2c 41 34 20 00 3a 00 22 00 1a 00 50 5c 52 46 28 4f 29 5c 54 4c 58 32 30 30 5c 4f 56 45 52 46 4c 4f 57 00 3a 00 36 ┆00 NO 9 PTLX100 EQU * : P SUR* A3,A4 : " P RF(O) TLX200 OVERFLOW : 6┆
0x5ad6…5b26 00 26 00 50 5c 41 44 4b 5c 41 32 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 44 45 43 49 4d 41 4c 20 44 49 47 49 54 20 00 3a 00 54 00 0e 00 50 5c 52 42 5c 54 4c 58 31 30 30 00 3a 00 7e 00 14 00 50 54 4c 58 32 30 30 5c 41 44 4b 5c 41 32 2c 31 20 ┆ & P ADK A2,1 INCREMENT DECIMAL DIGIT : T P RB TLX100 : ~ PTLX200 ADK A2,1 ┆
0x5b26…5b76 00 3a 00 90 00 0e 00 50 5c 52 46 5c 54 4c 58 35 30 30 00 3a 00 a8 00 10 00 50 54 4c 58 33 30 30 5c 45 51 55 5c 2a 00 3a 00 ba 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 3a 00 ce 00 10 00 50 5c 41 44 52 2a 5c 41 33 2c 41 34 20 00 3a 00 e0 ┆ : P RF TLX500 : PTLX300 EQU * : P LDK A2,0 : P ADR* A3,A4 : ┆
0x5b76…5bc6 00 0e 00 50 5c 53 55 4b 5c 41 35 2c 31 20 00 3a 00 f4 00 0e 00 50 5c 4c 44 52 5c 41 35 2c 41 35 00 3a 01 06 00 20 00 50 5c 52 46 28 5a 29 5c 54 4c 58 37 30 30 5c 47 45 54 20 4c 41 53 54 20 44 49 47 49 54 00 3a 01 18 00 10 00 50 54 4c 58 34 ┆ P SUK A5,1 : P LDR A5,A5 : P RF(Z) TLX700 GET LAST DIGIT : PTLX4┆
0x5bc6…5c16 30 30 5c 45 51 55 5c 2a 00 3a 01 3c 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 32 20 00 3a 01 50 00 10 00 50 54 4c 58 35 30 30 5c 45 51 55 5c 2a 00 3a 01 62 00 10 00 50 5c 53 55 52 2a 5c 41 33 2c 41 34 20 00 3a 01 76 00 12 00 50 5c 52 46 28 4e 29 ┆00 EQU * : < P ADK A4,2 : P PTLX500 EQU * : b P SUR* A3,A4 : v P RF(N)┆
0x5c16…5c66 (59, 0, 400) 5c 54 4c 58 36 30 30 20 00 3a 01 8a 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 31 20 00 3b 00 10 00 0e 00 50 5c 52 42 5c 54 4c 58 35 30 30 00 3b 00 22 00 10 00 50 54 4c 58 36 30 30 5c 45 51 55 5c 2a 00 3b 00 34 00 0e 00 50 5c 4c 44 52 5c 41 32 2c ┆ TLX600 : P ADK A2,1 ; P RB TLX500 ; " PTLX600 EQU * ; 4 P LDR A2,┆
0x5c66…5cb6 41 32 00 3b 00 48 00 1c 00 50 5c 52 46 28 4e 5a 29 5c 54 4c 58 36 31 30 5c 4e 4f 54 20 5a 45 52 4f 20 00 3b 00 5a 00 0e 00 50 5c 4c 44 52 5c 41 36 2c 41 36 00 3b 00 7a 00 24 00 50 5c 52 46 28 4e 5a 29 5c 54 4c 58 36 32 30 5c 4e 4f 54 20 4c ┆A2 ; H P RF(NZ) TLX610 NOT ZERO ; Z P LDR A6,A6 ; z $ P RF(NZ) TLX620 NOT L┆
0x5cb6…5d06 45 41 44 49 4e 47 20 5a 45 52 4f 20 00 3b 00 8c 00 20 00 50 5c 4c 44 4b 5c 41 32 2c 27 20 27 5c 47 45 54 20 53 50 41 43 45 20 43 48 41 52 2e 20 00 3b 00 b4 00 0e 00 50 5c 52 46 5c 54 4c 58 36 33 30 00 3b 00 d8 00 10 00 50 54 4c 58 36 31 30 ┆EADING ZERO ; P LDK A2,' ' GET SPACE CHAR. ; P RF TLX630 ; PTLX610┆
0x5d06…5d56 5c 45 51 55 5c 2a 00 3b 00 ea 00 2e 00 50 5c 4c 44 4b 5c 41 36 2c 31 5c 49 4e 44 49 43 41 54 45 20 45 4e 44 20 4f 46 20 5a 45 52 4f 20 53 55 50 52 45 53 53 49 4f 4e 20 00 3b 00 fe 00 10 00 50 54 4c 58 36 32 30 5c 45 51 55 5c 2a 00 3b 01 30 ┆ EQU * ; . P LDK A6,1 INDICATE END OF ZERO SUPRESSION ; PTLX620 EQU * ; 0┆
0x5d56…5da6 00 26 00 50 5c 4c 43 5c 41 32 2c 4b 3a 48 58 41 53 2c 41 32 5c 43 4f 4e 56 45 52 54 20 54 4f 20 41 53 43 49 49 20 00 3b 01 44 00 10 00 50 54 4c 58 36 33 30 5c 45 51 55 5c 2a 00 3b 01 6e 00 0e 00 50 5c 53 43 52 5c 41 32 2c 41 31 00 3b 01 82 ┆ & P LC A2,K:HXAS,A2 CONVERT TO ASCII ; D PTLX630 EQU * ; n P SCR A2,A1 ; ┆
0x5da6…5df6 (60, 0, 400) 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 3c 00 04 00 1a 00 50 5c 52 42 5c 54 4c 58 33 30 30 5c 4e 45 58 54 20 44 49 47 49 54 20 00 3c 00 16 00 10 00 50 54 4c 58 37 30 30 5c 45 51 55 5c 2a 00 3c 00 34 00 28 00 50 5c 4c 43 5c 41 33 2c 4b ┆ P ADK A1,1 < P RB TLX300 NEXT DIGIT < PTLX700 EQU * < 4 ( P LC A3,K┆
0x5df6…5e46 3a 48 58 41 53 2c 41 33 5c 43 4f 4e 56 45 52 54 20 4c 41 53 54 20 44 49 47 49 54 20 00 3c 00 48 00 0e 00 50 5c 53 43 52 5c 41 33 2c 41 31 00 3c 00 74 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 3c 00 86 00 06 00 50 2a 20 00 3c 00 96 00 16 00 50 ┆:HXAS,A3 CONVERT LAST DIGIT < H P SCR A3,A1 < t P RTN A14 < P* < P┆
0x5e46…5e96 44 45 43 49 4d 41 5c 44 41 54 41 5c 31 30 30 30 30 20 00 3c 00 a0 00 0e 00 50 5c 44 41 54 41 5c 31 30 30 30 00 3c 00 ba 00 0e 00 50 5c 44 41 54 41 5c 31 30 30 20 00 3c 00 cc 00 0c 00 50 5c 44 41 54 41 5c 31 30 00 3c 00 de 00 06 00 50 2a 20 ┆DECIMA DATA 10000 < P DATA 1000 < P DATA 100 < P DATA 10 < P* ┆
0x5e96…5ee6 00 3c 00 ee 00 0a 00 50 5c 45 4a 45 43 54 00 3c 00 f8 00 10 00 50 4b 3a 43 4f 4e 5c 45 51 55 5c 2a 20 00 3c 01 06 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 2e 20 00 3c 01 1a 00 24 00 50 5c 4c ┆ < P EJECT < PK:CON EQU * < P CF A14,K:ST10 SAVE 10 REG. < $ P L┆
0x5ee6…5f36 44 4b 4c 5c 41 38 2c 4b 3a 4b 42 45 5c 47 45 54 20 45 43 42 20 4b 45 59 42 4f 41 52 44 20 00 3c 01 3e 00 20 00 50 5c 4c 44 5c 41 31 2c 4b 3a 45 42 41 2c 41 38 5c 47 45 54 20 42 55 46 2e 41 44 52 2e 00 3c 01 66 00 1e 00 50 5c 4c 44 5c 41 39 ┆DKL A8,K:KBE GET ECB KEYBOARD < > P LD A1,K:EBA,A8 GET BUF.ADR. < f P LD A9┆
0x5f36…5f86 (61, 0, 400) 2c 49 4e 50 42 4c 2c 41 31 5c 47 45 54 20 4c 45 4e 47 54 48 00 3c 01 8a 00 0e 00 50 5c 4c 44 52 5c 41 37 2c 41 39 00 3d 00 1c 00 0e 00 50 5c 41 44 52 5c 41 39 2c 41 31 00 3d 00 2e 00 0e 00 50 5c 53 55 4b 4c 5c 41 39 2c 31 00 3d 00 40 00 16 ┆,INPBL,A1 GET LENGTH < P LDR A7,A9 = P ADR A9,A1 = . P SUKL A9,1 = @ ┆
0x5f86…5fd6 00 50 5c 41 44 4b 5c 41 31 2c 34 5c 43 48 45 43 4b 20 4c 4c 00 3d 00 52 00 0e 00 50 5c 4c 44 52 5c 41 35 2c 41 31 00 3d 00 6c 00 18 00 50 5c 4c 43 52 5c 41 31 2c 41 31 5c 47 45 54 20 43 48 41 52 20 00 3d 00 7e 00 10 00 50 5c 41 4e 4b 5c 41 ┆ P ADK A1,4 CHECK LL = R P LDR A5,A1 = l P LCR A1,A1 GET CHAR = ~ P ANK A┆
0x5fd6…6026 31 2c 2f 46 46 20 00 3d 00 9a 00 18 00 50 5c 43 57 4b 5c 41 31 2c 2f 32 43 5c 43 4f 4d 4d 41 20 3f 20 00 3d 00 ae 00 14 00 50 5c 52 46 28 5a 29 5c 54 43 30 30 35 5c 59 45 53 00 3d 00 ca 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 31 20 00 3d 00 e2 ┆1,/FF = P CWK A1,/2C COMMA ? = P RF(Z) TC005 YES = P ADK A5,1 = ┆
0x6026…6076 00 10 00 50 54 43 30 30 35 5c 45 51 55 5c 2a 20 00 3d 00 f4 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 31 20 00 3d 01 08 00 20 00 50 5c 4c 44 52 5c 41 34 2c 41 35 5c 41 34 20 53 54 4f 52 45 20 50 4f 49 4e 54 45 52 20 00 3d 01 1a 00 10 00 50 54 43 ┆ PTC005 EQU * = P ADK A5,1 = P LDR A4,A5 A4 STORE POINTER = PTC┆
0x6076…60c6 30 30 31 5c 45 51 55 5c 2a 20 00 3d 01 3e 00 20 00 50 5c 4c 44 52 5c 41 31 2c 41 35 5c 43 4f 4e 56 45 52 54 20 58 58 20 54 4f 20 41 2d 4f 00 3d 01 52 00 0e 00 50 5c 4c 43 52 5c 41 31 2c 41 31 00 3d 01 76 00 10 00 50 5c 41 4e 4b 5c 41 31 2c ┆001 EQU * = > P LDR A1,A5 CONVERT XX TO A-O = R P LCR A1,A1 = v P ANK A1,┆
0x60c6…6116 (62, 0, 400) 2f 46 46 20 00 3d 01 88 00 0e 00 50 5c 4c 44 52 5c 41 36 2c 41 35 00 3e 00 0c 00 0e 00 50 5c 41 44 4b 5c 41 36 2c 31 20 00 3e 00 1e 00 1c 00 50 5c 43 57 52 5c 41 36 2c 41 39 5c 45 4e 44 20 42 55 46 46 45 52 20 3f 20 00 3e 00 30 00 22 00 50 ┆/FF = P LDR A6,A5 > P ADK A6,1 > P CWR A6,A9 END BUFFER ? > 0 " P┆
0x6116…6166 5c 52 46 28 50 29 5c 54 43 30 30 32 5c 59 45 53 2c 41 4e 44 20 4f 4e 45 20 44 49 47 2e 20 00 3e 00 50 00 18 00 50 5c 4c 43 52 5c 41 36 2c 41 36 5c 53 45 43 2e 44 49 47 2e 20 00 3e 00 76 00 10 00 50 5c 41 4e 4b 5c 41 36 2c 2f 46 46 20 00 3e ┆ RF(P) TC002 YES,AND ONE DIG. > P P LCR A6,A6 SEC.DIG. > v P ANK A6,/FF >┆
0x6166…61b6 00 92 00 1a 00 50 5c 43 57 4b 5c 41 36 2c 2f 32 43 5c 4f 4e 45 20 44 49 47 2e 3f 20 00 3e 00 a6 00 14 00 50 5c 52 46 28 5a 29 5c 54 43 30 30 32 5c 59 45 53 00 3e 00 c4 00 1a 00 50 5c 43 57 4b 5c 41 36 2c 2f 31 32 5c 45 4e 44 20 42 55 46 46 ┆ P CWK A6,/2C ONE DIG.? > P RF(Z) TC002 YES > P CWK A6,/12 END BUFF┆
0x61b6…6206 45 52 00 3e 00 dc 00 22 00 50 5c 52 46 28 5a 29 5c 54 43 30 30 32 5c 59 45 53 2c 41 4e 44 20 4f 4e 45 20 44 49 47 2e 20 00 3e 00 fa 00 1a 00 50 5c 53 55 4b 5c 41 31 2c 2f 33 30 5c 4f 4e 45 20 44 49 47 20 3f 20 00 3e 01 20 00 14 00 50 5c 52 ┆ER > " P RF(Z) TC002 YES,AND ONE DIG. > P SUK A1,/30 ONE DIG ? > P R┆
0x6206…6256 46 28 5a 29 5c 54 43 30 30 32 5c 59 45 53 00 3e 01 3e 00 2e 00 50 5c 53 55 4b 5c 41 31 2c 31 5c 43 48 45 43 4b 20 56 41 4c 49 44 49 54 59 20 4f 46 20 54 57 4f 20 44 49 47 2e 45 58 50 52 2e 20 00 3e 01 56 00 10 00 50 5c 52 46 28 50 29 5c 4e ┆F(Z) TC002 YES > > . P SUK A1,1 CHECK VALIDITY OF TWO DIG.EXPR. > V P RF(P) N┆
0x6256…62a6 (63, 0, 398) 4f 56 41 4c 00 3e 01 88 00 10 00 50 5c 53 55 4b 5c 41 36 2c 2f 33 35 20 00 3f 00 0c 00 10 00 50 5c 52 46 28 50 29 5c 4e 4f 56 41 4c 00 3f 00 20 00 10 00 50 5c 41 44 4b 5c 41 36 2c 2f 33 35 20 00 3f 00 34 00 10 00 50 5c 41 44 4b 5c 41 36 2c ┆OVAL > P SUK A6,/35 ? P RF(P) NOVAL ? P ADK A6,/35 ? 4 P ADK A6,┆
0x62a6…62f6 2f 31 41 20 00 3f 00 48 00 10 00 50 5c 53 43 5c 41 36 2c 30 2c 41 34 20 00 3f 00 5c 00 10 00 50 5c 4c 44 4b 5c 41 36 2c 2f 32 43 20 00 3f 00 70 00 10 00 50 5c 53 43 5c 41 36 2c 31 2c 41 34 20 00 3f 00 84 00 0e 00 50 5c 41 44 4b 5c 41 35 2c ┆/1A ? H P SC A6,0,A4 ? P LDK A6,/2C ? p P SC A6,1,A4 ? P ADK A5,┆
0x62f6…6346 31 20 00 3f 00 98 00 0e 00 50 5c 53 55 4b 5c 20 41 37 2c 31 00 3f 00 aa 00 1c 00 50 5c 43 57 52 5c 41 35 2c 41 39 5c 45 4e 44 20 4f 46 20 42 55 46 46 45 52 00 3f 00 bc 00 10 00 50 5c 52 46 28 5a 29 5c 54 43 45 4e 31 00 3f 00 dc 00 0e 00 50 ┆1 ? P SUK A7,1 ? P CWR A5,A9 END OF BUFFER ? P RF(Z) TCEN1 ? P┆
0x6346…6396 5c 41 44 4b 5c 41 35 2c 32 20 00 3f 00 f0 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 32 20 00 3f 01 02 00 0e 00 50 5c 52 42 5c 54 43 30 30 31 20 00 3f 01 14 00 10 00 50 54 43 30 30 32 5c 45 51 55 5c 2a 20 00 3f 01 26 00 1c 00 50 5c 53 55 4b 5c 41 ┆ ADK A5,2 ? P ADK A4,2 ? P RB TC001 ? PTC002 EQU * ? & P SUK A┆
0x6396…63e4 31 2c 2f 33 30 5c 54 45 53 54 20 49 46 20 5a 45 52 4f 00 3f 01 3a 00 10 00 50 5c 52 46 28 5a 29 5c 4e 4f 56 41 4c 00 3f 01 5a 00 10 00 50 5c 41 44 4b 5c 41 31 2c 2f 34 30 20 00 3f 01 6e 00 10 00 50 5c 53 43 5c 41 31 2c 30 2c 41 34 20 ┆1,/30 TEST IF ZERO ? : P RF(Z) NOVAL ? Z P ADK A1,/40 ? n P SC A1,0,A4 ┆
0x63e4…6434 (64, 0, 400) 00 3f 01 82 00 1c 00 50 5c 4c 44 4b 5c 41 31 2c 2f 32 43 5c 53 54 4f 52 45 20 43 4f 4d 4d 41 20 00 40 00 08 00 10 00 50 5c 53 43 5c 41 31 2c 31 2c 41 34 20 00 40 00 28 00 0e 00 50 5c 43 57 52 5c 41 35 2c 41 39 00 40 00 3c 00 10 00 50 5c 52 ┆ ? P LDK A1,/2C STORE COMMA @ P SC A1,1,A4 @ ( P CWR A5,A9 @ < P R┆
0x6434…6484 46 28 5a 29 5c 54 43 45 4e 31 00 40 00 4e 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 32 20 00 40 00 62 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 32 20 00 40 00 74 00 0e 00 50 5c 52 42 5c 54 43 30 30 31 20 00 40 00 86 00 10 00 50 4e 4f 56 41 4c 5c 45 51 ┆F(Z) TCEN1 @ N P ADK A5,2 @ b P ADK A4,2 @ t P RB TC001 @ PNOVAL EQ┆
0x6484…64d4 55 5c 2a 20 00 40 00 98 00 12 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 50 52 54 4e 00 40 00 ac 00 10 00 50 5c 44 41 54 41 5c 4b 3a 46 33 37 30 00 40 00 c2 00 12 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 31 30 00 40 00 d6 00 10 00 50 5c 41 44 4b ┆U * @ P CF A14,K:PRTN @ P DATA K:F370 @ P CF A14,K:LD10 @ P ADK┆
0x64d4…6524 4c 5c 41 31 34 2c 34 20 00 40 00 ec 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 31 20 00 40 01 00 00 0c 00 50 5c 52 46 5c 54 43 45 4e 00 40 01 12 00 10 00 50 54 43 45 4e 31 5c 45 51 55 5c 2a 20 00 40 01 22 00 24 00 50 5c 4c 44 5c 41 38 2c 4b 3a 45 ┆L A14,4 @ P LDK A1,1 @ P RF TCEN @ PTCEN1 EQU * @ " $ P LD A8,K:E┆
0x6524…6574 42 41 2c 41 38 5c 47 45 54 20 42 55 46 46 45 52 20 41 44 52 2e 20 00 40 01 36 00 22 00 50 5c 53 54 5c 41 37 2c 49 4e 50 42 4c 2c 41 38 5c 53 54 2e 4e 45 57 20 4c 45 4e 47 54 48 20 00 40 01 5e 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 ┆BA,A8 GET BUFFER ADR. @ 6 " P ST A7,INPBL,A8 ST.NEW LENGTH @ ^ P CF A14,K:LD┆
0x6574…65c4 (65, 2, 114) 31 30 5c 52 45 53 54 4f 52 45 20 52 45 47 2e 20 00 40 01 84 00 10 00 50 5c 41 44 4b 4c 5c 41 31 34 2c 34 20 00 41 00 18 00 0e 00 50 5c 53 55 52 5c 41 31 2c 41 31 00 41 00 2c 00 0e 00 50 54 43 45 4e 5c 45 51 55 5c 2a 00 41 00 3e 00 0e 00 50 ┆10 RESTORE REG. @ P ADKL A14,4 A P SUR A1,A1 A , PTCEN EQU * A > P┆
0x65c4…65e6 5c 41 42 52 2a 5c 41 31 34 20 00 41 00 50 00 08 00 50 5c 45 4e 44 00 41 00 62 40 04 00 00 00 41 00 6e ┆ ABR* A14 A P P END A b@ A n┆
0x65e6…65ee (66, 1, 8) 20 04 00 00 00 42 00 04 ┆ B ┆