|
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: 27752 (0x6c68)
Notes: pts_type(SC)
Names: »C:SUB.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/C:SUB.SC«
IDENT C:SUB CONPAC REL=1.0 DATE= 80.04.29 UPDATE #2 78.03.07 JES *************************************************************** * * CONCENTRATOR APPLICATION PACKAGE PEAB-T * * PROGRAMMER: PER OMAN / PAN * * * C : S U B * * * * * THIS MODULE CONTAINS COMMON SUBROUTINES IN THE CONCENTRATOR PACKAGE * * * * * THE MODULE CONTAINS THE SUBROUTINES: * * NAME REVDAT VERSION * * K:CKF 75-10-30 * K:ST X 751210 * K:LD X 751212 * K:CNT 760201 * K:TIME 78.03.07 * K:MOV 77.09.14 * **************************************************************** EJECT IDENT C:SUB * * * ENTRY ADDRESSES * *************************************************************** * * ENTRY DESCRIPTION * ENTRY K:CKF CHECK FORMAT * ENTRY K:ST10 10 REGS STORED ON A14 STACKER ENTRY K:ST8 8 " ENTRY K:ST6 6 " ENTRY K:ST4 4 " ENTRY K:ST2 2 " ENTRY K:ST12 12 " * ENTRY K:LD10 10 REGS ARE LOADED FROM A14 STACKER ENTRY K:LD8 8 " ENTRY K:LD6 6 " ENTRY K:LD4 4 " ENTRY K:LD2 2 " ENTRY K:LD12 12 " * ENTRY K:CNT ADD DIGIT TO ELEMENT * ENTRY K:TIME MOVE TIME TO ELEMENT * ENTRY K:MOV MOVE AREA EJECT IDENT C:SUB * * * EXTERNAL REFERENSES * *************************************************************** * * ADDRESS IN MODULE * * EXTRN T:OPA TOSSFUNK * EXTRN K:WBT C:WBS * EXTRN K:ID C:SET * * 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:SUB CONPAC REL=1.0 DATE= 80.04.29 «, t00=0x0000, t01=0x0004}
0x0034…0056 Head {h00=0x001e, h01=0x0050, text=» UPDATE #2 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 : S U B «, 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…01a4 Head {h00=0x004c, h01=0x0050, text=»* THIS MODULE CONTAINS COMMON SUBROUTINES IN THE CONCENTRATOR PACKAGE «, t00=0x0000, t01=0x0158}
0x01a4…01b2 Head {h00=0x000a, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0018}
0x01b2…01bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0026}
0x01bc…01c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0030}
0x01c6…01f4 Head {h00=0x002a, h01=0x0050, text=»* THE MODULE CONTAINS THE SUBROUTINES:«, t00=0x0001, t01=0x003a}
0x01f4…01fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…021c Head {h00=0x001a, h01=0x0050, text=»* NAME REVDAT VERSION «, t00=0x0001, t01=0x0072}
0x021c…0226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0090}
0x0226…023e Head {h00=0x0014, h01=0x0050, text=»* K:CKF 75-10-30«, t00=0x0001, t01=0x009a}
0x023e…0256 Head {h00=0x0014, h01=0x0050, text=»* K:ST X 751210 «, t00=0x0001, t01=0x00b2}
0x0256…026e Head {h00=0x0014, h01=0x0050, text=»* K:LD X 751212 «, t00=0x0001, t01=0x00ca}
0x026e…0284 Head {h00=0x0012, h01=0x0050, text=»* K:CNT 760201«, t00=0x0001, t01=0x00e2}
0x0284…029e Head {h00=0x0016, h01=0x0050, text=»* K:TIME 78.03.07 «, t00=0x0001, t01=0x00f8}
0x029e…02b6 Head {h00=0x0014, h01=0x0050, text=»* K:MOV 77.09.14«, t00=0x0001, t01=0x0112}
0x02b6…02c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02c0…0308 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x0134}
0x0308…0324 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:SUB «, t00=0x0001, t01=0x017c}
0x0324…032e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032e…0338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0012}
0x0338…0352 Head {h00=0x0016, h01=0x0050, text=»* ENTRY ADDRESSES «, t00=0x0002, t01=0x001c}
0x0352…035c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035c…03a4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0002, t01=0x0040}
0x03a4…03ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0088}
0x03ae…03ca Head {h00=0x0018, h01=0x0050, text=»* ENTRY DESCRIPTION«, t00=0x0002, t01=0x0092}
0x03ca…03d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ae}
0x03d4…03f6 Head {h00=0x001e, h01=0x0050, text=» ENTRY K:CKF CHECK FORMAT «, t00=0x0002, t01=0x00b8}
0x03f6…0400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00da}
0x0400…0434 Head {h00=0x0030, h01=0x0050, text=» ENTRY K:ST10 10 REGS STORED ON A14 STACKER «, t00=0x0002, t01=0x00e4}
0x0434…044e Head {h00=0x0016, h01=0x0050, text=» ENTRY K:ST8 8 "«, t00=0x0002, t01=0x0118}
0x044e…0468 Head {h00=0x0016, h01=0x0050, text=» ENTRY K:ST6 6 "«, t00=0x0002, t01=0x0132}
0x0468…0482 Head {h00=0x0016, h01=0x0050, text=» ENTRY K:ST4 4 "«, t00=0x0002, t01=0x014c}
0x0482…049c Head {h00=0x0016, h01=0x0050, text=» ENTRY K:ST2 2 "«, t00=0x0002, t01=0x0166}
0x049c…04b8 Head {h00=0x0018, h01=0x0050, text=» ENTRY K:ST12 12 " «, t00=0x0002, t01=0x0180}
0x04b8…04c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000c}
0x04c2…04fc Head {h00=0x0036, h01=0x0050, text=» ENTRY K:LD10 10 REGS ARE LOADED FROM A14 STACKER «, t00=0x0003, t01=0x0016}
0x04fc…0516 Head {h00=0x0016, h01=0x0050, text=» ENTRY K:LD8 8 "«, t00=0x0003, t01=0x0050}
0x0516…0530 Head {h00=0x0016, h01=0x0050, text=» ENTRY K:LD6 6 "«, t00=0x0003, t01=0x006a}
0x0530…054a Head {h00=0x0016, h01=0x0050, text=» ENTRY K:LD4 4 "«, t00=0x0003, t01=0x0084}
0x054a…0564 Head {h00=0x0016, h01=0x0050, text=» ENTRY K:LD2 2 "«, t00=0x0003, t01=0x009e}
0x0564…0580 Head {h00=0x0018, h01=0x0050, text=» ENTRY K:LD12 12 " «, t00=0x0003, t01=0x00b8}
0x0580…058a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d4}
0x058a…05b4 Head {h00=0x0026, h01=0x0050, text=» ENTRY K:CNT ADD DIGIT TO ELEMENT «, t00=0x0003, t01=0x00de}
0x05b4…05be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0108}
0x05be…05e8 Head {h00=0x0026, h01=0x0050, text=» ENTRY K:TIME MOVE TIME TO ELEMENT«, t00=0x0003, t01=0x0112}
0x05e8…05f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013c}
0x05f2…0610 Head {h00=0x001a, h01=0x0050, text=» ENTRY K:MOV MOVE AREA«, t00=0x0003, t01=0x0146}
0x0610…062c Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:SUB «, t00=0x0003, t01=0x0164}
0x062c…0636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0180}
0x0636…0640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018a}
0x0640…065e (4, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENSES «, t00=0x0004, t01=0x0004}
0x065e…0668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0022}
0x0668…06b0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0004, t01=0x002c}
0x06b0…06ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0074}
0x06ba…06d6 Head {h00=0x0018, h01=0x0050, text=»* ADDRESS IN MODULE«, t00=0x0004, t01=0x007e}
0x06d6…06e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009a}
0x06e0…06ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a4}
0x06ea…0708 Head {h00=0x001a, h01=0x0050, text=» EXTRN T:OPA TOSSFUNK «, t00=0x0004, t01=0x00ae}
0x0708…0712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00cc}
0x0712…072c Head {h00=0x0016, h01=0x0050, text=» EXTRN K:WBT C:WBS«, t00=0x0004, t01=0x00d6}
0x072c…0736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f0}
0x0736…0750 Head {h00=0x0016, h01=0x0050, text=» EXTRN K:ID C:SET «, t00=0x0004, t01=0x00fa}
0x0750…075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0114}
0x075a…07aa Head {h00=0x004c, h01=0x0050, text=»* HERE IS THE MODULE 'C:EQU' WITH COMMON EQUATES INCLUDED WITHOUT LIST «, t00=0x0004, t01=0x011e}
0x07aa…07b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016e}
0x07b4…07c2 Head {h00=0x000a, h01=0x0050, text=» NLIST«, t00=0x0004, t01=0x0178}
0x07c2…07cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07cc…07d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0190}
0x07d6…07e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000a}
0x07e0…07ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0014}
0x07ea…07f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001e}
0x07f4…07fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0028}
0x07fe…0808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0032}
0x0808…0812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003c}
0x0812…081c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0046}
0x081c…0826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0050}
0x0826…0830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005a}
0x0830…083a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0064}
0x083a…0844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006e}
0x0844…084e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0078}
0x084e…0858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0082}
0x0858…0862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008c}
0x0862…086c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0096}
0x086c…0876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a0}
0x0876…0880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x0880…088a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b4}
0x088a…0894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00be}
0x0894…089e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089e…08a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d2}
0x08a8…08b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00dc}
0x08b2…08bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08bc…08c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f0}
0x08c6…08d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fa}
0x08d0…08da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0104}
0x08da…08e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010e}
0x08e4…08ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0118}
0x08ee…08f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0122}
0x08f8…0902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012c}
0x0902…090c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0136}
0x090c…0916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0140}
0x0916…0920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014a}
0x0920…092a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0154}
0x092a…0934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015e}
0x0934…093e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0168}
0x093e…0948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0172}
0x0948…0952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x0952…095c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0186}
0x095c…0966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0190}
0x0966…0970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000a}
0x0970…097a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0014}
0x097a…0984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001e}
0x0984…098e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0028}
0x098e…0998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0032}
0x0998…09a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a2…09ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0046}
0x09ac…09b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0050}
0x09b6…09c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005a}
0x09c0…09ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0064}
0x09ca…09d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006e}
0x09d4…09de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09de…09e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0082}
0x09e8…09f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008c}
0x09f2…09fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0096}
0x09fc…0a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a0}
0x0a06…0a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00aa}
0x0a10…0a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b4}
0x0a1a…0a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00be}
0x0a24…0a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2e…0a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d2}
0x0a38…0a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00dc}
0x0a42…0a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e6}
0x0a4c…0a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f0}
0x0a56…0a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fa}
0x0a60…0a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a6a…0a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010e}
0x0a74…0a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0118}
0x0a7e…0a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0122}
0x0a88…0a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a92…0a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0136}
0x0a9c…0ace Head {h00=0x002e, h01=0x0050, text=» EJECT IDENT C:EQU **COMMON AREA FRAME** «, t00=0x0006, t01=0x0140}
0x0ace…0ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0172}
0x0ad8…0aee Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS «, t00=0x0006, t01=0x017c}
0x0aee…0af8 (7, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af8…0b0c Head {h00=0x0010, h01=0x0050, text=» EXTRN T:ADD«, t00=0x0007, t01=0x000e}
0x0b0c…0b22 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:ADDC «, t00=0x0007, t01=0x0022}
0x0b22…0b36 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:SUB«, t00=0x0007, t01=0x0038}
0x0b36…0b4c Head {h00=0x0012, h01=0x0050, text=» EXTRN T:SUBC «, t00=0x0007, t01=0x004c}
0x0b4c…0b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0062}
0x0b56…0b76 Head {h00=0x001c, h01=0x0050, text=» EXTRN T:MUL TOSS-MULDIV«, t00=0x0007, t01=0x006c}
0x0b76…0b8c Head {h00=0x0012, h01=0x0050, text=» EXTRN T:MULC «, t00=0x0007, t01=0x008c}
0x0b8c…0ba0 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:DIV«, t00=0x0007, t01=0x00a2}
0x0ba0…0bb6 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:DIVC «, t00=0x0007, t01=0x00b6}
0x0bb6…0bd2 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0007, t01=0x00cc}
0x0bd2…0bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e8}
0x0bdc…0bfe Head {h00=0x001e, h01=0x0050, text=»* FORMS FOR FORMAT CODES«, t00=0x0007, t01=0x00f2}
0x0bfe…0c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0114}
0x0c08…0c32 Head {h00=0x0026, h01=0x0050, text=»EOL FORM 8=1,8 END OF FORMAT LIST «, t00=0x0007, t01=0x011e}
0x0c32…0c56 Head {h00=0x0020, h01=0x0050, text=»EOR FORM 8=9,8 END OF RECORD«, t00=0x0007, t01=0x0148}
0x0c56…0c7c Head {h00=0x0022, h01=0x0050, text=»TXT FORM 8=/10,8 TEXT ELEMENT «, t00=0x0007, t01=0x016c}
0x0c7c…0cae (8, 0, 400) Head {h00=0x002e, h01=0x0050, text=»CONTXT FORM 8=/12,8 TEXT CONSTANT ELEMENT «, t00=0x0008, t01=0x0004}
0x0cae…0ce0 Head {h00=0x002e, h01=0x0050, text=»IMTXT FORM 8=/11,8 IMIDEATE TEXT CONSTANT «, t00=0x0008, t01=0x0036}
0x0ce0…0d0e Head {h00=0x002a, h01=0x0050, text=»ENDSUB FORM 16=/1700 END OF SUBFORMAT «, t00=0x0008, t01=0x0068}
0x0d0e…0d3a Head {h00=0x0028, h01=0x0050, text=»COND FORM 8=/1F,8 CONDITIONAL FORMAT«, t00=0x0008, t01=0x0096}
0x0d3a…0d58 Head {h00=0x001a, h01=0x0050, text=»FILLER FORM 8,8 FILLER«, t00=0x0008, t01=0x00c2}
0x0d58…0d78 Head {h00=0x001c, h01=0x0050, text=»SPACE FORM 8=/20,8 SPACE«, t00=0x0008, t01=0x00e0}
0x0d78…0d9a Head {h00=0x001e, h01=0x0050, text=»PICT FORM 1=1,7,8 PICTURE «, t00=0x0008, t01=0x0100}
0x0d9a…0dc4 Head {h00=0x0026, h01=0x0050, text=»PICREF FORM 8,8,16 GENERATE FORMS «, t00=0x0008, t01=0x0122}
0x0dc4…0dda Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0008, t01=0x014c}
0x0dda…0df2 Head {h00=0x0014, h01=0x0050, text=»BCD FORM 4=0,12 «, t00=0x0008, t01=0x0162}
0x0df2…0e0c Head {h00=0x0016, h01=0x0050, text=»ASCII FORM 4=8,12 «, t00=0x0008, t01=0x017a}
0x0e0c…0e32 (9, 0, 398) Head {h00=0x0022, h01=0x0050, text=»ADD FORM 16=/F6A1,16=T:ADD,8,8«, t00=0x0009, t01=0x0004}
0x0e32…0e5a Head {h00=0x0024, h01=0x0050, text=»ADDC FORM 16=/F6A1,16=T:ADDC,8,8«, t00=0x0009, t01=0x002a}
0x0e5a…0e80 Head {h00=0x0022, h01=0x0050, text=»SUB FORM 16=/F6A1,16=T:SUB,8,8«, t00=0x0009, t01=0x0052}
0x0e80…0ea8 Head {h00=0x0024, h01=0x0050, text=»SUBC FORM 16=/F6A1,16=T:SUBC,8,8«, t00=0x0009, t01=0x0078}
0x0ea8…0ed2 Head {h00=0x0026, h01=0x0050, text=»MUL FORM 16=/F6A1,16=T:MUL,8,8,8,8«, t00=0x0009, t01=0x00a0}
0x0ed2…0efe Head {h00=0x0028, h01=0x0050, text=»MULC FORM 16=/F6A1,16=T:MULC,8,8,8,8«, t00=0x0009, t01=0x00ca}
0x0efe…0f28 Head {h00=0x0026, h01=0x0050, text=»DIV FORM 16=/F6A1,16=T:DIV,8,8,8,8«, t00=0x0009, t01=0x00f6}
0x0f28…0f54 Head {h00=0x0028, h01=0x0050, text=»DIVC FORM 16=/F6A1,16=T:DIVC,8,8,8,8«, t00=0x0009, t01=0x0120}
0x0f54…0f70 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0009, t01=0x014c}
0x0f70…0f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0168}
0x0f7a…0f9a Head {h00=0x001c, h01=0x0050, text=»* CONSTANT TCA EQUATES«, t00=0x0009, t01=0x0172}
0x0f9a…0fa4 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa4…0fb8 Head {h00=0x0010, h01=0x0050, text=»CA1 EQU /10 «, t00=0x000a, t01=0x000e}
0x0fb8…0fcc Head {h00=0x0010, h01=0x0050, text=»CB1 EQU /20 «, t00=0x000a, t01=0x0022}
0x0fcc…0fe0 Head {h00=0x0010, h01=0x0050, text=»CB10 EQU /21«, t00=0x000a, t01=0x0036}
0x0fe0…0ff6 Head {h00=0x0012, h01=0x0050, text=»CB100 EQU /22 «, t00=0x000a, t01=0x004a}
0x0ff6…100c Head {h00=0x0012, h01=0x0050, text=»CB1000 EQU /23«, t00=0x000a, t01=0x0060}
0x100c…1022 Head {h00=0x0012, h01=0x0050, text=»CB32K EQU /24 «, t00=0x000a, t01=0x0076}
0x1022…1036 Head {h00=0x0010, h01=0x0050, text=»YEAR EQU /30«, t00=0x000a, t01=0x008c}
0x1036…104c Head {h00=0x0012, h01=0x0050, text=»MONTH EQU /31 «, t00=0x000a, t01=0x00a0}
0x104c…1060 Head {h00=0x0010, h01=0x0050, text=»DAY EQU /32 «, t00=0x000a, t01=0x00b6}
0x1060…1074 Head {h00=0x0010, h01=0x0050, text=»HOUR EQU /40«, t00=0x000a, t01=0x00ca}
0x1074…1088 Head {h00=0x0010, h01=0x0050, text=»MIN EQU /41 «, t00=0x000a, t01=0x00de}
0x1088…109c Head {h00=0x0010, h01=0x0050, text=»SEC EQU /42 «, t00=0x000a, t01=0x00f2}
0x109c…10a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0106}
0x10a6…10ca Head {h00=0x0020, h01=0x0050, text=»* LINE WORKBLOCKS EQUATES «, t00=0x000a, t01=0x0110}
0x10ca…10d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0134}
0x10d4…10f0 Head {h00=0x0018, h01=0x0050, text=»LIN EQU /10 LINE NBR«, t00=0x000a, t01=0x013e}
0x10f0…1112 Head {h00=0x001e, h01=0x0050, text=»LINBC EQU /11 BUSY COUNTER«, t00=0x000a, t01=0x015a}
0x1112…1136 Head {h00=0x0020, h01=0x0050, text=»LINTC EQU /12 TRANS COUNTER «, t00=0x000a, t01=0x017c}
0x1136…115a Head {h00=0x0020, h01=0x0050, text=»LINEC EQU /13 ERROR COUNTER «, t00=0x000b, t01=0x0010}
0x115a…1184 Head {h00=0x0026, h01=0x0050, text=»LINHUR EQU /14 TIME OF LAST TRANS «, t00=0x000b, t01=0x0034}
0x1184…119a Head {h00=0x0012, h01=0x0050, text=»LINMIN EQU /15«, t00=0x000b, t01=0x005e}
0x119a…11b0 Head {h00=0x0012, h01=0x0050, text=»LINSEC EQU /16«, t00=0x000b, t01=0x0074}
0x11b0…11ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008a}
0x11ba…11da Head {h00=0x001c, h01=0x0050, text=»* TC WORKBLOCK EQUATES«, t00=0x000b, t01=0x0094}
0x11da…11e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b4}
0x11e4…11f6 Head {h00=0x000e, h01=0x0050, text=»TC EQU /20«, t00=0x000b, t01=0x00be}
0x11f6…120a Head {h00=0x0010, h01=0x0050, text=»TCBC EQU /21«, t00=0x000b, t01=0x00d0}
0x120a…121e Head {h00=0x0010, h01=0x0050, text=»TCTC EQU /22«, t00=0x000b, t01=0x00e4}
0x121e…1232 Head {h00=0x0010, h01=0x0050, text=»TCEC EQU /23«, t00=0x000b, t01=0x00f8}
0x1232…1248 Head {h00=0x0012, h01=0x0050, text=»TCHUR EQU /24 «, t00=0x000b, t01=0x010c}
0x1248…125e Head {h00=0x0012, h01=0x0050, text=»TCMIN EQU /25 «, t00=0x000b, t01=0x0122}
0x125e…1274 Head {h00=0x0012, h01=0x0050, text=»TCSEC EQU /26 «, t00=0x000b, t01=0x0138}
0x1274…1290 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000b, t01=0x014e}
0x1290…129a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x129a…12c8 Head {h00=0x002a, h01=0x0050, text=»* CC WORKBLOCK RESPONSETIME EQUATES «, t00=0x000b, t01=0x0174}
0x12c8…12d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0012}
0x12d2…12e6 Head {h00=0x0010, h01=0x0050, text=»CC1 EQU /30 «, t00=0x000c, t01=0x001c}
0x12e6…12fa Head {h00=0x0010, h01=0x0050, text=»CC2 EQU /31 «, t00=0x000c, t01=0x0030}
0x12fa…130e Head {h00=0x0010, h01=0x0050, text=»CC3 EQU /32 «, t00=0x000c, t01=0x0044}
0x130e…1322 Head {h00=0x0010, h01=0x0050, text=»CC4 EQU /33 «, t00=0x000c, t01=0x0058}
0x1322…1336 Head {h00=0x0010, h01=0x0050, text=»CC5 EQU /34 «, t00=0x000c, t01=0x006c}
0x1336…134a Head {h00=0x0010, h01=0x0050, text=»CC6 EQU /35 «, t00=0x000c, t01=0x0080}
0x134a…135e Head {h00=0x0010, h01=0x0050, text=»CC7 EQU /36 «, t00=0x000c, t01=0x0094}
0x135e…1372 Head {h00=0x0010, h01=0x0050, text=»CC8 EQU /37 «, t00=0x000c, t01=0x00a8}
0x1372…1386 Head {h00=0x0010, h01=0x0050, text=»CC9 EQU /38 «, t00=0x000c, t01=0x00bc}
0x1386…139a Head {h00=0x0010, h01=0x0050, text=»CC10 EQU /39«, t00=0x000c, t01=0x00d0}
0x139a…13ae Head {h00=0x0010, h01=0x0050, text=»CC11 EQU /3A«, t00=0x000c, t01=0x00e4}
0x13ae…13c2 Head {h00=0x0010, h01=0x0050, text=»CC12 EQU /3B«, t00=0x000c, t01=0x00f8}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010c}
0x13cc…13ec Head {h00=0x001c, h01=0x0050, text=»* CC WORKBLOCK EQUATES«, t00=0x000c, t01=0x0116}
0x13ec…13f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0136}
0x13f6…141c Head {h00=0x0022, h01=0x0050, text=»CCTO EQU /40 TIME OUT COUNTER «, t00=0x000c, t01=0x0140}
0x141c…1430 Head {h00=0x0010, h01=0x0050, text=»CCTC EQU /41«, t00=0x000c, t01=0x0166}
0x1430…1444 Head {h00=0x0010, h01=0x0050, text=»CCEC EQU /42«, t00=0x000c, t01=0x017a}
0x1444…146e Head {h00=0x0026, h01=0x0050, text=»CCSUP EQU /43 SUPERV MSGS COUNTER «, t00=0x000c, t01=0x018e}
0x146e…1496 Head {h00=0x0024, h01=0x0050, text=»CCHUR EQU /44 TIME OF LAST REPLY«, t00=0x000d, t01=0x0028}
0x1496…14ac Head {h00=0x0012, h01=0x0050, text=»CCMIN EQU /45 «, t00=0x000d, t01=0x0050}
0x14ac…14c2 Head {h00=0x0012, h01=0x0050, text=»CCSEC EQU /46 «, t00=0x000d, t01=0x0066}
0x14c2…14de Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000d, t01=0x007c}
0x14de…14e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0098}
0x14e8…150e Head {h00=0x0022, h01=0x0050, text=»* NETWORK WORKBLOCK EQUATES«, t00=0x000d, t01=0x00a2}
0x150e…1518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c8}
0x1518…1546 Head {h00=0x002a, h01=0x0050, text=»NWTC EQU /5D ACCUMULATED TRANS COUNTER«, t00=0x000d, t01=0x00d2}
0x1546…156a Head {h00=0x0020, h01=0x0050, text=»NWEC EQU /5E ACC ERROR COUNT«, t00=0x000d, t01=0x0100}
0x156a…1574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0124}
0x1574…1596 Head {h00=0x001e, h01=0x0050, text=»PCNT1 EQU /50 % INTERVALS «, t00=0x000d, t01=0x012e}
0x1596…15ac Head {h00=0x0012, h01=0x0050, text=»PCNT2 EQU /51 «, t00=0x000d, t01=0x0150}
0x15ac…15c2 Head {h00=0x0012, h01=0x0050, text=»PCNT3 EQU /52 «, t00=0x000d, t01=0x0166}
0x15c2…15d8 Head {h00=0x0012, h01=0x0050, text=»PCNT4 EQU /53 «, t00=0x000d, t01=0x017c}
0x15d8…15ee (14, 0, 400) Head {h00=0x0012, h01=0x0050, text=»PCNT5 EQU /54 «, t00=0x000e, t01=0x0004}
0x15ee…1604 Head {h00=0x0012, h01=0x0050, text=»PCNT6 EQU /55 «, t00=0x000e, t01=0x001a}
0x1604…161a Head {h00=0x0012, h01=0x0050, text=»PCNT7 EQU /56 «, t00=0x000e, t01=0x0030}
0x161a…1630 Head {h00=0x0012, h01=0x0050, text=»PCNT8 EQU /57 «, t00=0x000e, t01=0x0046}
0x1630…1646 Head {h00=0x0012, h01=0x0050, text=»PCNT9 EQU /58 «, t00=0x000e, t01=0x005c}
0x1646…165c Head {h00=0x0012, h01=0x0050, text=»PCNT10 EQU /59«, t00=0x000e, t01=0x0072}
0x165c…1672 Head {h00=0x0012, h01=0x0050, text=»PCNT11 EQU /5A«, t00=0x000e, t01=0x0088}
0x1672…1688 Head {h00=0x0012, h01=0x0050, text=»PCNT12 EQU /5B«, t00=0x000e, t01=0x009e}
0x1688…1692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b4}
0x1692…16b6 Head {h00=0x0020, h01=0x0050, text=»RSPTIM EQU /5C RESPONSE TIME«, t00=0x000e, t01=0x00be}
0x16b6…16da Head {h00=0x0020, h01=0x0050, text=»PCNTW EQU /5F % WORK AREA 1 «, t00=0x000e, t01=0x00e2}
0x16da…16fe Head {h00=0x0020, h01=0x0050, text=»PCNTW2 EQU /6C %WORK AREA 2 «, t00=0x000e, t01=0x0106}
0x16fe…1708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012a}
0x1708…172c Head {h00=0x0020, h01=0x0050, text=»* CC TEXT-INTERVAL EQUATES «, t00=0x000e, t01=0x0134}
0x172c…1736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0158}
0x1736…174a Head {h00=0x0010, h01=0x0050, text=»IN1 EQU /60 «, t00=0x000e, t01=0x0162}
0x174a…175e Head {h00=0x0010, h01=0x0050, text=»IN2 EQU /61 «, t00=0x000e, t01=0x0176}
0x175e…1772 Head {h00=0x0010, h01=0x0050, text=»IN3 EQU /62 «, t00=0x000e, t01=0x018a}
0x1772…1786 Head {h00=0x0010, h01=0x0050, text=»IN4 EQU /63 «, t00=0x000f, t01=0x000e}
0x1786…179a Head {h00=0x0010, h01=0x0050, text=»IN5 EQU /64 «, t00=0x000f, t01=0x0022}
0x179a…17ae Head {h00=0x0010, h01=0x0050, text=»IN6 EQU /65 «, t00=0x000f, t01=0x0036}
0x17ae…17c2 Head {h00=0x0010, h01=0x0050, text=»IN7 EQU /66 «, t00=0x000f, t01=0x004a}
0x17c2…17d6 Head {h00=0x0010, h01=0x0050, text=»IN8 EQU /67 «, t00=0x000f, t01=0x005e}
0x17d6…17ea Head {h00=0x0010, h01=0x0050, text=»IN9 EQU /68 «, t00=0x000f, t01=0x0072}
0x17ea…17fe Head {h00=0x0010, h01=0x0050, text=»IN10 EQU /69«, t00=0x000f, t01=0x0086}
0x17fe…1812 Head {h00=0x0010, h01=0x0050, text=»IN11 EQU /6A«, t00=0x000f, t01=0x009a}
0x1812…1826 Head {h00=0x0010, h01=0x0050, text=»IN12 EQU /6B«, t00=0x000f, t01=0x00ae}
0x1826…1842 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x000f, t01=0x00c2}
0x1842…184c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x184c…187c Head {h00=0x002c, h01=0x0050, text=»CVTCLK EQU /98 ADDRESS TO MONITOR CLOCK «, t00=0x000f, t01=0x00e8}
0x187c…1886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0118}
0x1886…18b8 Head {h00=0x002e, h01=0x0050, text=»IDXBL EQU -4 INDEX IN CC-BUFFER TO LENGTH «, t00=0x000f, t01=0x0122}
0x18b8…18f6 Head {h00=0x003a, h01=0x0050, text=»ORIGIN EQU -4 INDEX TO COMMAND ORIGIN INDICATOR IN TCA«, t00=0x000f, t01=0x0154}
0x18f6…1928 (16, 0, 400) Head {h00=0x002e, h01=0x0050, text=»INPBL EQU -4 INDEX TO INPUT BUFFER LENGTH «, t00=0x0010, t01=0x0004}
0x1928…1932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1932…1952 Head {h00=0x001c, h01=0x0050, text=»K:EBA EQU 2 ECB EQUATES «, t00=0x0010, t01=0x0040}
0x1952…1966 Head {h00=0x0010, h01=0x0050, text=»K:ERL EQU 4 «, t00=0x0010, t01=0x0060}
0x1966…197a Head {h00=0x0010, h01=0x0050, text=»K:EEL EQU 6 «, t00=0x0010, t01=0x0074}
0x197a…198e Head {h00=0x0010, h01=0x0050, text=»K:ERC EQU 8 «, t00=0x0010, t01=0x0088}
0x198e…19a2 Head {h00=0x0010, h01=0x0050, text=»K:ECW EQU 10«, t00=0x0010, t01=0x009c}
0x19a2…19ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b0}
0x19ac…19b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ba}
0x19b6…19e2 Head {h00=0x0028, h01=0x0050, text=»TCAWBL EQU 6 INDEX IN TCA TO LINE WB«, t00=0x0010, t01=0x00c4}
0x19e2…1a0e Head {h00=0x0028, h01=0x0050, text=»TCAWBT EQU 10 INDEX IN TCA TO TC WB «, t00=0x0010, t01=0x00f0}
0x1a0e…1a2a Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:EQU «, t00=0x0010, t01=0x011c}
0x1a2a…1a6a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0010, t01=0x0138}
0x1a6a…1a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0178}
0x1a74…1a9a Head {h00=0x0022, h01=0x0050, text=»* SYSTEM ADAPTION PARAMETERS«, t00=0x0010, t01=0x0182}
0x1a9a…1aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0018}
0x1aa4…1ac4 Head {h00=0x001c, h01=0x0050, text=»* KEYBOARD KONTROL KEYS «, t00=0x0011, t01=0x0022}
0x1ac4…1ae6 Head {h00=0x001e, h01=0x0050, text=»K:KKEY EQU /2F ENTRY K KEY«, t00=0x0011, t01=0x0042}
0x1ae6…1b08 Head {h00=0x001e, h01=0x0050, text=»K:UKEY EQU /28 ENTER U KEY«, t00=0x0011, t01=0x0064}
0x1b08…1b30 Head {h00=0x0024, h01=0x0050, text=»K:EOR EQU /2A END OF RECORD KEY «, t00=0x0011, t01=0x0086}
0x1b30…1b52 Head {h00=0x001e, h01=0x0050, text=»CANCEL EQU /23 CANCEL KEY «, t00=0x0011, t01=0x00ae}
0x1b52…1b7a Head {h00=0x0024, h01=0x0050, text=»* TIME OUT VALUES OF TRUNK LINE «, t00=0x0011, t01=0x00d0}
0x1b7a…1bb4 Head {h00=0x0036, h01=0x0050, text=»K:WTIM EQU 60 CC WRITE REQUEST TIME OUT (X100 MS) «, t00=0x0011, t01=0x00f8}
0x1bb4…1bf2 Head {h00=0x003a, h01=0x0050, text=»K:QTIM EQU 600 CC EXCHANGE REQUEST TIME OUT (X100 MS) «, t00=0x0011, t01=0x0132}
0x1bf2…1c0a Head {h00=0x0014, h01=0x0050, text=»* BUFFER LENGTHS«, t00=0x0011, t01=0x0170}
0x1c0a…1c40 Head {h00=0x0032, h01=0x0050, text=»K:CCBL EQU 1150 CCWRITE BUFFER LENGTH (WORDS) «, t00=0x0011, t01=0x0188}
0x1c40…1c80 Head {h00=0x003c, h01=0x0050, text=»K:EDBL EQU 50 EDIT BUFFER LENGTH OF POOL K:OPED (WORDS) «, t00=0x0012, t01=0x002e}
0x1c80…1cb8 Head {h00=0x0034, h01=0x0050, text=»K:BLTC EQU 64 LENGTH OF CASSETTE BUFFER (WORDS) «, t00=0x0012, t01=0x006e}
0x1cb8…1ce4 Head {h00=0x0028, h01=0x0050, text=»K:KBL EQU 70 KB BUF LENGTH IN WORDS «, t00=0x0012, t01=0x00a6}
0x1ce4…1d0c Head {h00=0x0024, h01=0x0050, text=»K:KBBL EQU K:KBL+K:KBL IN CHARS «, t00=0x0012, t01=0x00d2}
0x1d0c…1d38 Head {h00=0x0028, h01=0x0050, text=»K:GPBL EQU 60 GP BUF LENGTH IN WORDS«, t00=0x0012, t01=0x00fa}
0x1d38…1d6e Head {h00=0x0032, h01=0x0050, text=»K:S0BL EQU 60 SIMULATED TERMINAL 0 BUF (WORDS)«, t00=0x0012, t01=0x0126}
0x1d6e…1dac Head {h00=0x003a, h01=0x0050, text=»K:INBL EQU 1150 TERMINAL LINE INPUT BUF LENGTH (WORDS)«, t00=0x0012, t01=0x015c}
0x1dac…1dba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x000a}
0x1dba…1e0e Head {h00=0x0050, h01=0x0050, text=»* COMMUNICATION ADDRESSES FOR TRUNK LINE. IF SPECIFIED AT SYSTEM GENERATION «, t00=0x0013, t01=0x0018}
0x1e0e…1e38 Head {h00=0x0026, h01=0x0050, text=»K:CCAD EQU 0 CONCENTRATOR ADDRESS «, t00=0x0013, t01=0x006c}
0x1e38…1e5c Head {h00=0x0020, h01=0x0050, text=» LEFT BYTE = SELECT ADDR. «, t00=0x0013, t01=0x0096}
0x1e5c…1e7e Head {h00=0x001e, h01=0x0050, text=» RIGHT BYTE = POLL ADDR.«, t00=0x0013, t01=0x00ba}
0x1e7e…1eba Head {h00=0x0038, h01=0x0050, text=»K:SIMZ EQU 0 SIM. TERM. FOR COMMANDS/SYSTEM MESSAGES«, t00=0x0013, t01=0x00dc}
0x1eba…1ed8 Head {h00=0x001a, h01=0x0050, text=» AND SYSTEM MESSAGES«, t00=0x0013, t01=0x0118}
0x1ed8…1f10 Head {h00=0x0034, h01=0x0050, text=»K:SIMS EQU 0 SIM. TERM. FOR SUPERVISORY MESSAGES«, t00=0x0013, t01=0x0136}
0x1f10…1f46 Head {h00=0x0032, h01=0x0050, text=»K:FCS EQU 0 DEVICE FILE CODE OF K:SIMS IF USED«, t00=0x0013, t01=0x016e}
0x1f46…1f4a Head {h00=0x0054, h01=0x0050}
0x1f4a…1f4e Head {h00=0x2a20, h01=0x5349}
0x1f4e…1f90 4d 55 4c 41 54 45 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 ┆MULATED TERMINAL ADDRESSES FOR INQUIRY. RIGHT BYTE. IF SPECIFIED A┆
0x1f90…1fe0 54 20 53 59 53 54 45 4d 20 47 00 14 00 14 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 14 00 6c 00 16 00 50 4b 3a 53 41 32 5c 45 51 55 5c 30 5c 4e 42 52 20 32 20 00 14 00 90 00 16 00 50 ┆T SYSTEM G PK:SA1 EQU 0 SIM. TERM. NBR 1 l PK:SA2 EQU 0 NBR 2 P┆
0x1fe0…2030 4b 3a 53 41 33 5c 45 51 55 5c 30 5c 4e 42 52 20 33 20 00 14 00 aa 00 16 00 50 4b 3a 53 41 34 5c 45 51 55 5c 30 5c 4e 42 52 20 34 20 00 14 00 c4 00 16 00 50 4b 3a 53 41 35 5c 45 51 55 5c 30 5c 4e 42 52 20 35 20 00 14 00 de 00 16 00 50 4b 3a ┆K:SA3 EQU 0 NBR 3 PK:SA4 EQU 0 NBR 4 PK:SA5 EQU 0 NBR 5 PK:┆
0x2030…2080 53 41 36 5c 45 51 55 5c 30 5c 4e 42 52 20 36 20 00 14 00 f8 00 16 00 50 4b 3a 53 41 37 5c 45 51 55 5c 30 5c 4e 42 52 20 37 20 00 14 01 12 00 16 00 50 4b 3a 53 41 38 5c 45 51 55 5c 30 5c 4e 42 52 20 38 20 00 14 01 2c 00 16 00 50 4b 3a 53 41 ┆SA6 EQU 0 NBR 6 PK:SA7 EQU 0 NBR 7 PK:SA8 EQU 0 NBR 8 , PK:SA┆
0x2080…20c6 39 5c 45 51 55 5c 30 5c 4e 42 52 20 39 20 00 14 01 46 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 14 01 60 00 18 00 50 4b 3a 53 41 31 31 5c 45 51 55 5c 30 5c 4e 42 52 20 31 31 20 ┆9 EQU 0 NBR 9 F PK:SA10 EQU 0 NBR 10 ` PK:SA11 EQU 0 NBR 11 ┆
0x20c6…2116 (21, 0, 400) 00 14 01 7c 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 15 00 08 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 00 24 00 18 00 50 4b 3a 53 41 31 34 5c 45 51 55 5c 30 5c 4e 42 52 ┆ | PK:SA12 EQU 0 NBR 12 PK:SA13 EQU 0 NBR 13 $ PK:SA14 EQU 0 NBR┆
0x2116…2166 20 31 34 20 00 15 00 40 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 15 00 5c 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 15 00 78 00 18 00 50 4b 3a 53 41 31 37 5c 45 51 55 5c 30 ┆ 14 @ PK:SA15 EQU 0 NBR 15 PK:SA16 EQU 0 NBR 16 x PK:SA17 EQU 0┆
0x2166…21b6 5c 4e 42 52 20 31 37 20 00 15 00 94 00 18 00 50 4b 3a 53 41 31 38 5c 45 51 55 5c 30 5c 4e 42 52 20 31 38 20 00 15 00 b0 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 15 00 cc 00 18 00 50 4b 3a 53 41 32 30 5c 45 ┆ NBR 17 PK:SA18 EQU 0 NBR 18 PK:SA19 EQU 0 NBR 19 PK:SA20 E┆
0x21b6…2206 51 55 5c 30 5c 4e 42 52 20 32 30 20 00 15 00 e8 00 18 00 50 4b 3a 53 41 32 31 5c 45 51 55 5c 30 5c 4e 42 52 20 32 31 20 00 15 01 04 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 15 01 20 00 18 00 50 4b 3a 53 41 ┆QU 0 NBR 20 PK:SA21 EQU 0 NBR 21 PK:SA22 EQU 0 NBR 22 PK:SA┆
0x2206…2256 32 33 5c 45 51 55 5c 30 5c 4e 42 52 20 32 33 20 00 15 01 3c 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 15 01 58 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 15 01 74 00 18 00 50 ┆23 EQU 0 NBR 23 < PK:SA24 EQU 0 NBR 24 X PK:SA25 EQU 0 NBR 25 t P┆
0x2256…22a6 (22, 0, 400) 4b 3a 53 41 32 36 5c 45 51 55 5c 30 5c 4e 42 52 20 32 36 20 00 15 01 90 00 0a 00 50 5c 45 4a 45 43 54 00 16 00 1c 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 ┆K:SA26 EQU 0 NBR 26 P EJECT < P**************************************┆
0x22a6…22f6 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 16 00 2a 00 06 00 50 2a 20 00 16 00 6a 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 16 00 74 ┆***************** * P* j , P* PARAMETERS FOR CONDITIONAL ASSEMBLY t┆
0x22f6…2346 00 28 00 50 2a 20 20 20 4f 46 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 50 41 43 4b 41 47 45 20 4d 4f 44 55 4c 45 53 20 00 16 00 a4 00 06 00 50 2a 20 00 16 00 d0 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 ┆ ( P* OF CONCENTRATOR PACKAGE MODULES P* < P**********************┆
0x2346…2396 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 16 00 da 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 16 01 1a 00 20 00 50 5c 5c 5c 4e 55 4d ┆********************************* PX:A EQU 2 * NLINE <=10 P NUM┆
0x2396…23e6 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 20 00 16 01 3a 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 16 01 5e 00 2e 00 50 5c 5c 5c 54 4f 54 41 4c 20 4e 55 4d 42 45 52 20 4f 46 20 54 ┆BER OF TERMINAL LINES : PX:B EQU 15 * NTC <=80 ^ . P TOTAL NUMBER OF T┆
0x23e6…2436 (23, 0, 398) 43 3a 53 20 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 20 00 16 01 7c 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 00 1e 00 24 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 53 49 4d 55 4c ┆C:S ON TERMINAL LINES | PX:C EQU 26 * NSIM <=26 $ P NUMBER OF SIMUL┆
0x2436…2486 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 53 00 17 00 3e 00 14 00 50 5c 5c 5c 46 4f 52 20 49 4e 51 55 49 52 49 45 53 00 17 00 66 00 16 00 50 58 3a 44 5c 45 51 55 5c 30 5c 2a 20 20 4c 4f 4f 50 20 00 17 00 7e 00 2e 00 50 5c 5c 5c 49 46 20 3d 20 ┆ATED TERMINALS > P FOR INQUIRIES f PX:D EQU 0 * LOOP ~ . P IF = ┆
0x2486…24d6 30 2e 20 4d 55 4c 54 49 50 4f 49 4e 54 20 43 4f 4e 46 49 47 2e 20 44 4f 57 4e 53 54 52 45 41 4d 53 20 00 17 00 98 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 ┆0. MULTIPOINT CONFIG. DOWNSTREAMS . P IF = 1. LOOP CONFIGURATION DOWNSTRE┆
0x24d6…2526 41 4d 53 20 00 17 00 ca 00 1c 00 50 58 3a 45 5c 45 51 55 5c 34 5c 2a 20 20 4e 53 50 4f 4f 4c 20 3c 3d 34 20 00 17 00 fc 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 ┆AMS PX:E EQU 4 * NSPOOL <=4 ( P NUMBER OF EDIT BUFFERS FOR SPOOL ┆
0x2526…2574 00 17 01 1c 00 22 00 50 5c 5c 5c 46 55 4e 43 54 49 4f 4e 20 54 4f 20 4f 50 45 52 41 54 4f 52 53 20 54 45 52 4d 2e 00 17 01 48 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 17 01 6e ┆ " P FUNCTION TO OPERATORS TERM. H PX:F EQU 4 * 0< NTPLIN <=40 n┆
0x2574…25c4 (24, 0, 400) 00 28 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 54 52 41 53 4b 53 20 49 4e 20 50 4f 4f 4c 20 27 54 50 4c 49 4e 27 20 00 18 00 04 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 ┆ ( P NUMBER OF TRASKS IN POOL 'TPLIN' & P HANDLING TRANSACTIONS FROM TC┆
0x25c4…2614 3a 53 00 18 00 30 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 00 18 00 5a 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 ┆:S 0 PX:G EQU 2 * 0< NTPSUP <=5 Z ( P NUMBER OF TRASKS IN POOL 'TPSUP' ┆
0x2614…2664 00 18 00 7c 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 4d 20 4d 41 49 4e 20 46 52 41 4d 45 00 18 00 a8 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 ┆ | , P HANDLING TRANSACTIONS FROM MAIN FRAME P OR OPERATORS TERMINAL┆
0x2664…26b4 00 18 00 d8 00 18 00 50 58 3a 48 5c 45 51 55 5c 31 5c 2a 20 20 4c 49 4e 54 53 54 20 00 18 00 f8 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 18 01 14 00 30 00 50 5c 5c 5c 49 ┆ PX:H EQU 1 * LINTST $ P IF = 0. NO LINE TEST COMMAND 0 P I┆
0x26b4…2704 46 20 3d 20 31 2e 20 4c 49 4e 45 20 54 45 53 54 20 46 41 43 49 4c 49 54 59 20 28 34 2d 57 49 52 45 20 4f 4e 4c 59 29 20 00 18 01 3c 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 18 01 70 00 24 00 50 5c 5c 5c 49 ┆F = 1. LINE TEST FACILITY (4-WIRE ONLY) < PX:I EQU 2 * ONLINE p $ P I┆
0x2704…2754 (25, 0, 400) 46 20 3d 20 30 2e 20 4f 46 46 20 4c 49 4e 45 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 00 18 01 8c 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 00 24 00 24 00 50 ┆F = 0. OFF LINE CONCENTRATOR ( P IF = 1. ON/OFF LINE CONCENTRATOR $ $ P┆
0x2754…27a4 5c 5c 5c 49 46 20 3d 20 32 2e 20 4f 4e 20 4c 49 4e 45 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 00 19 00 50 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 19 00 78 00 0a 00 50 5c 4c 49 53 54 20 00 19 00 94 00 36 ┆ IF = 2. ON LINE CONCENTRATOR P PX:K EQU 1 * SETADR x P LIST 6┆
0x27a4…27f4 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 45 4e 54 41 54 49 4f 4e 20 4f 46 20 44 41 54 45 00 19 00 a2 00 2c 00 50 5c 5c 5c 4f 4e 4c 59 20 46 4f 52 20 54 4f 53 53 20 52 45 4c ┆ PDATINC EQU 1 IF 1 AUTOMATIC INCREMENTATION OF DATE , P ONLY FOR TOSS REL┆
0x27f4…2844 45 41 53 45 20 38 2e 31 20 4f 52 20 47 52 45 41 54 45 52 20 00 19 00 dc 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 20 00 19 01 0c 00 42 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 ┆EASE 8.1 OR GREATER P EJECT IDENT C:SUB B P******************* K : ┆
0x2844…2894 43 20 4b 20 46 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 20 00 19 01 28 00 06 00 50 2a 20 00 19 01 6e 00 06 00 50 2a 20 00 19 01 78 00 1a 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 20 4b 20 ┆C K F ******************************* ( P* n P* x P*SUBROUTINE K ┆
0x2894…28e4 (26, 0, 400) 3a 20 43 20 4b 20 46 20 00 19 01 82 00 06 00 50 2a 20 00 1a 00 10 00 40 00 50 2a 43 48 45 43 4b 53 20 54 48 45 20 43 4f 4e 54 45 4e 54 53 20 4f 46 20 54 48 45 20 49 4e 50 55 54 20 42 55 46 46 45 52 20 41 47 41 49 4e 53 54 20 54 48 45 20 4c ┆: C K F P* @ P*CHECKS THE CONTENTS OF THE INPUT BUFFER AGAINST THE L┆
0x28e4…2934 41 59 4f 55 54 53 00 1a 00 1a 00 32 00 50 2a 41 44 44 52 45 53 53 45 44 20 49 4e 20 54 48 45 20 54 41 42 4c 45 20 28 46 4f 52 54 41 42 29 20 41 31 20 50 4f 49 4e 54 53 20 41 54 20 00 1a 00 5e 00 06 00 50 2a 20 00 1a 00 94 00 3e 00 50 2a 49 ┆AYOUTS 2 P*ADDRESSED IN THE TABLE (FORTAB) A1 POINTS AT ^ P* > P*I┆
0x2934…2984 46 20 54 48 45 20 42 55 46 46 45 52 43 4f 4e 54 45 4e 54 53 20 46 49 54 53 20 49 4e 20 41 20 4c 41 59 4f 55 54 20 54 48 45 20 49 4e 44 45 58 20 54 4f 20 54 48 41 54 20 00 1a 00 9e 00 2e 00 50 2a 4c 41 59 4f 55 54 41 44 44 52 45 53 53 20 49 ┆F THE BUFFERCONTENTS FITS IN A LAYOUT THE INDEX TO THAT . P*LAYOUTADDRESS I┆
0x2984…29d4 4e 20 46 4f 52 54 41 42 20 49 53 20 52 45 54 55 52 4e 45 44 20 49 4e 20 41 32 00 1a 00 e0 00 06 00 50 2a 20 00 1a 01 12 00 42 00 50 2a 49 46 20 54 48 45 20 42 55 46 46 45 52 43 4f 4e 54 45 4e 54 53 20 52 45 4d 41 49 4e 53 20 55 4e 52 45 43 ┆N FORTAB IS RETURNED IN A2 P* B P*IF THE BUFFERCONTENTS REMAINS UNREC┆
0x29d4…2a24 4f 47 4e 49 5a 45 44 2c 20 41 32 20 49 53 20 53 45 54 20 54 4f 20 5a 45 52 4f 00 1a 01 1c 00 3c 00 50 2a 41 4e 44 20 41 33 20 49 53 20 49 4e 44 45 58 20 54 4f 20 54 48 45 20 4c 41 53 54 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 4b 3a 4b 42 ┆OGNIZED, A2 IS SET TO ZERO < P*AND A3 IS INDEX TO THE LAST CHARACTER IN K:KB┆
0x2a24…2a74 (27, 0, 400) 42 20 46 49 54 54 49 4e 47 20 00 1a 01 62 00 10 00 50 2a 49 4e 20 41 20 4c 41 59 4f 55 54 00 1b 00 12 00 06 00 50 2a 20 00 1b 00 26 00 42 00 50 2a 54 48 45 20 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 46 4f 52 54 41 42 20 49 53 20 54 41 42 ┆B FITTING b P*IN A LAYOUT P* & B P*THE FIRST WORD IN FORTAB IS TAB┆
0x2a74…2ac4 4c 45 20 4c 45 4e 47 54 48 2e 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 57 4f 52 44 53 00 1b 00 30 00 1e 00 50 2a 43 4f 4e 54 41 49 4e 20 4c 41 59 4f 55 54 20 41 44 44 52 45 53 53 45 53 20 00 1b 00 76 00 06 00 50 2a 20 00 1b 00 98 00 38 ┆LE LENGTH. THE FOLLOWING WORDS 0 P*CONTAIN LAYOUT ADDRESSES v P* 8┆
0x2ac4…2b14 00 50 2a 54 48 45 20 4c 41 59 4f 55 54 53 20 43 4f 4e 54 41 49 4e 20 43 4f 4e 54 52 4f 4c 20 42 59 54 45 53 2c 20 43 48 41 52 2e 54 59 50 45 20 42 59 54 45 53 20 00 1b 00 a2 00 1a 00 50 2a 41 4e 44 20 41 53 43 49 49 20 43 48 41 52 20 42 59 ┆ P*THE LAYOUTS CONTAIN CONTROL BYTES, CHAR.TYPE BYTES P*AND ASCII CHAR BY┆
0x2b14…2b64 54 45 53 20 00 1b 00 de 00 1c 00 50 2a 54 48 45 20 43 4f 4e 54 52 4f 4c 20 42 59 54 45 53 20 41 52 45 3a 20 00 1b 00 fc 00 3a 00 50 2a 20 2d 20 2f 30 30 20 3d 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 43 48 41 52 41 43 54 45 52 20 54 59 ┆TES P*THE CONTROL BYTES ARE: : P* - /00 = THE FOLLOWING CHARACTER TY┆
0x2b64…2bb4 50 45 53 20 4d 55 53 54 20 42 45 20 49 4e 50 55 54 20 00 1b 01 1c 00 36 00 50 2a 20 2d 20 2f 30 31 20 3d 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 43 48 41 52 2e 54 59 50 45 53 20 4d 41 59 20 42 45 20 4f 4d 49 54 54 45 44 20 00 1b 01 5a ┆PES MUST BE INPUT 6 P* - /01 = THE FOLLOWING CHAR.TYPES MAY BE OMITTED Z┆
0x2bb4…2c04 (28, 0, 400) 00 40 00 50 2a 20 2d 20 2f 30 32 20 3d 20 4f 4e 45 20 4f 46 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 43 48 41 52 2e 54 59 50 45 20 53 45 54 53 20 4d 55 53 54 20 42 45 20 49 4e 50 55 54 20 00 1c 00 04 00 10 00 50 2a 20 2d 20 2f 30 35 20 ┆ @ P* - /02 = ONE OF THE FOLLOWING CHAR.TYPE SETS MUST BE INPUT P* - /05 ┆
0x2c04…2c54 3d 20 4f 52 00 1c 00 48 00 1c 00 50 2a 20 2d 20 2f 46 46 20 3d 20 45 4e 44 20 4f 46 20 4c 41 59 4f 55 54 20 00 1c 00 5c 00 22 00 50 2a 54 48 45 20 43 48 41 52 2e 54 59 50 45 20 43 48 41 52 41 43 54 45 52 53 20 41 52 45 3a 00 1c 00 7c 00 2a ┆= OR H P* - /FF = END OF LAYOUT " P*THE CHAR.TYPE CHARACTERS ARE: | *┆
0x2c54…2ca4 00 50 2a 20 2d 20 2f 31 30 20 3d 20 44 45 43 49 4d 41 4c 20 43 48 41 52 20 53 48 41 4c 4c 20 42 45 20 49 4e 50 55 54 20 00 1c 00 a2 00 28 00 50 2a 20 2d 20 2f 31 31 20 3d 20 48 45 58 41 44 45 43 20 20 20 22 20 20 20 22 20 20 20 20 20 22 20 ┆ P* - /10 = DECIMAL CHAR SHALL BE INPUT ( P* - /11 = HEXADEC " " " ┆
0x2ca4…2cf4 20 20 20 22 00 1c 00 d0 00 28 00 50 2a 20 2d 20 2f 31 32 20 3d 20 41 4c 46 41 4e 55 4d 45 52 49 43 20 43 48 41 52 20 22 20 20 22 20 20 20 20 22 00 1c 00 fc 00 28 00 50 2a 20 2d 20 2f 31 33 20 3d 20 41 4c 46 41 20 43 48 41 52 20 20 20 20 20 ┆ " ( P* - /12 = ALFANUMERIC CHAR " " " ( P* - /13 = ALFA CHAR ┆
0x2cf4…2d44 20 20 22 20 20 20 22 20 20 20 20 22 00 1c 01 28 00 38 00 50 2a 20 2d 20 2f 31 34 20 3d 20 41 4e 59 20 43 48 41 52 20 49 4e 20 41 53 43 49 49 20 43 4f 4c 55 4d 4e 20 32 2d 37 20 4d 41 59 20 42 45 20 49 4e 50 55 54 20 00 1c 01 54 00 06 00 50 ┆ " " " ( 8 P* - /14 = ANY CHAR IN ASCII COLUMN 2-7 MAY BE INPUT T P┆
0x2d44…2d94 (29, 0, 400) 2a 20 00 1c 01 90 00 40 00 50 2a 20 4e 4f 54 45 3a 5c 49 46 20 43 4f 4e 54 52 4f 4c 20 42 59 54 45 20 2f 30 32 20 49 53 20 46 4f 4c 4c 4f 57 45 44 20 42 59 20 41 20 4e 55 4d 42 45 52 20 4f 46 20 49 54 45 4d 53 00 1d 00 0a 00 3a 00 50 2a 5c ┆* @ P* NOTE: IF CONTROL BYTE /02 IS FOLLOWED BY A NUMBER OF ITEMS : P* ┆
0x2d94…2de4 42 45 47 49 4e 4e 49 4e 47 20 57 49 54 48 20 54 48 45 20 53 41 4d 45 20 43 48 41 52 28 53 29 20 53 45 50 41 52 41 54 45 44 20 42 59 20 2f 30 35 20 54 48 45 00 1d 00 4e 00 28 00 50 2a 5c 4c 4f 4e 47 45 53 54 20 53 48 41 4c 4c 20 42 45 20 53 ┆BEGINNING WITH THE SAME CHAR(S) SEPARATED BY /05 THE N ( P* LONGEST SHALL BE S┆
0x2de4…2e34 50 45 43 49 46 49 45 44 20 46 49 52 53 54 2e 20 00 1d 00 8c 00 1e 00 50 2a 5c 45 2e 47 2e 20 2f 30 32 2c 41 2c 42 2c 43 2c 2f 30 35 2c 41 2c 2f 46 46 00 1d 00 b8 00 06 00 50 2a 20 00 1d 00 da 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆PECIFIED FIRST. P* E.G. /02,A,B,C,/05,A,/FF P* D P************┆
0x2e34…2e84 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 1d 00 e4 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 20 ┆*************************************************** P EJECT IDENT C:SUB ┆
0x2e84…2ed4 00 1d 01 2c 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 1d 01 48 00 06 00 50 ┆ , D P*************************************************************** H P┆
0x2ed4…2ee0 (30, 0, 400) 2a 20 00 1d 01 90 00 06 00 50 2a 20 ┆* P* ┆
0x2ee0…2f30 00 1e 00 0a 00 06 00 50 2a 20 00 1e 00 14 00 06 00 50 2a 20 00 1e 00 1e 00 22 00 50 2a 20 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a 5c 43 46 20 20 41 31 34 2c 4b 3a 43 4b 46 00 1e 00 28 00 06 00 50 2a 20 00 1e 00 4e 00 2c 00 50 2a 20 20 20 ┆ P* P* " P* CALL SEQUENCE: CF A14,K:CKF ( P* N , P* ┆
0x2f30…2f4e 45 4e 54 52 59 20 50 41 52 41 4d 3a 5c 41 31 20 3d 20 41 44 44 52 45 53 53 20 54 4f 20 46 ┆ENTRY PARAM: A1 = ADDRESS TO F┆
0x2f4e…5c68 […elided…]
0x5c68…5c80 20 54 48 45 20 42 59 54 45 20 00 3b 00 2e 00 0e 00 50 5c 41 44 4b 5c 41 ┆ THE BYTE ; . P ADK A┆
0x5c80…5cd0 35 2c 31 20 00 3b 00 5c 00 1a 00 50 5c 53 43 52 5c 41 35 2c 41 36 5c 53 54 4f 52 45 20 44 49 47 49 54 00 3b 00 6e 00 0e 00 50 5c 52 46 5c 43 4e 54 45 4e 44 00 3b 00 8c 00 06 00 50 2a 20 00 3b 00 9e 00 1c 00 50 2a 20 20 20 43 41 52 52 49 45 ┆5,1 ; P SCR A5,A6 STORE DIGIT ; n P RF CNTEND ; P* ; P* CARRIE┆
0x5cd0…5d20 52 20 49 4e 53 49 44 45 20 42 59 54 45 20 00 3b 00 a8 00 06 00 50 2a 20 00 3b 00 c8 00 10 00 50 43 4e 54 31 35 30 5c 45 51 55 5c 2a 00 3b 00 d2 00 10 00 50 5c 41 4e 4b 5c 41 35 2c 2f 46 30 20 00 3b 00 e6 00 12 00 50 5c 43 43 4b 5c 41 35 2c ┆R INSIDE BYTE ; P* ; PCNT150 EQU * ; P ANK A5,/F0 ; P CCK A5,┆
0x5d20…5d70 2f 39 30 30 30 20 00 3b 00 fa 00 26 00 50 5c 52 46 28 45 29 5c 43 4e 54 31 36 30 5c 43 41 52 52 49 45 52 20 54 4f 20 4e 45 58 54 20 42 59 54 45 00 3b 01 10 00 10 00 50 5c 41 44 4b 5c 41 35 2c 2f 31 30 20 00 3b 01 3a 00 0e 00 50 5c 53 43 52 ┆/9000 ; & P RF(E) CNT160 CARRIER TO NEXT BYTE ; P ADK A5,/10 ; : P SCR┆
0x5d70…5dae 5c 41 35 2c 41 36 00 3b 01 4e 00 0e 00 50 5c 52 46 5c 43 4e 54 45 4e 44 00 3b 01 60 00 06 00 50 2a 20 00 3b 01 72 00 06 00 50 2a 20 00 3b 01 7c 00 10 00 50 43 4e 54 31 36 30 5c 45 51 55 ┆ A5,A6 ; N P RF CNTEND ; ` P* ; r P* ; | PCNT160 EQU┆
0x5dae…5dfe (60, 0, 400) 5c 2a 00 3b 01 86 00 0e 00 50 5c 4c 44 4b 5c 41 35 2c 30 20 00 3c 00 0a 00 0e 00 50 5c 52 42 5c 43 4e 54 31 30 30 00 3c 00 1c 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 20 00 3c 00 2e 00 06 00 50 2a 20 00 3c 00 4a ┆ * ; P LDK A5,0 < P RB CNT100 < P EJECT IDENT C:SUB < . P* < J┆
0x5dfe…5e4e 00 1c 00 50 2a 20 20 20 4f 56 45 52 46 4c 4f 57 20 49 4e 20 43 4f 55 4e 54 45 52 20 00 3c 00 54 00 06 00 50 2a 20 00 3c 00 74 00 10 00 50 43 4e 54 35 30 30 5c 45 51 55 5c 2a 00 3c 00 7e 00 2a 00 50 5c 4c 44 4b 5c 41 35 2c 2f 30 44 5c 49 4e ┆ P* OVERFLOW IN COUNTER < T P* < t PCNT500 EQU * < ~ * P LDK A5,/0D IN┆
0x5e4e…5e9e 44 49 43 41 54 45 20 4f 56 45 52 46 4c 4f 57 20 42 59 20 4d 49 4e 55 53 00 3c 00 92 00 0e 00 50 5c 53 43 52 5c 41 35 2c 41 34 00 3c 00 c0 00 06 00 50 2a 20 00 3c 00 d2 00 0e 00 50 2a 20 20 20 52 45 54 55 52 4e 00 3c 00 dc 00 06 00 50 2a 20 ┆DICATE OVERFLOW BY MINUS < P SCR A5,A4 < P* < P* RETURN < P* ┆
0x5e9e…5eee 00 3c 00 ee 00 10 00 50 43 4e 54 45 4e 44 5c 45 51 55 5c 2a 00 3c 00 f8 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 3c 01 0c 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 20 00 3c 01 1c 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a ┆ < PCNTEND EQU * < P RTN A14 < P EJECT IDENT C:SUB < J P********┆
0x5eee…5f3e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4b 20 3a 20 54 20 49 20 4d 20 45 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 3c 01 38 00 06 00 50 2a 20 00 3c 01 86 00 06 00 50 ┆*********** K : T I M E ************************************* < 8 P* < P┆
0x5f3e…5f8e (61, 0, 398) 2a 20 00 3c 01 90 00 06 00 50 2a 20 00 3d 00 0a 00 1c 00 50 2a 53 55 42 52 4f 55 54 49 4e 45 20 20 4b 20 3a 20 54 20 49 20 4d 20 45 00 3d 00 14 00 20 00 50 2a 4d 4f 56 45 53 20 54 49 4d 45 20 54 4f 20 45 4c 45 4d 45 4e 54 20 49 4e 20 41 37 ┆* < P* = P*SUBROUTINE K : T I M E = P*MOVES TIME TO ELEMENT IN A7┆
0x5f8e…5fde 00 3d 00 34 00 06 00 50 2a 20 00 3d 00 58 00 06 00 50 2a 20 00 3d 00 62 00 06 00 50 2a 20 00 3d 00 6c 00 22 00 50 2a 20 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a 5c 43 46 20 41 31 34 2c 4b 3a 54 49 4d 45 00 3d 00 76 00 06 00 50 2a 20 00 3d ┆ = 4 P* = X P* = b P* = l " P* CALL SEQUENCE: CF A14,K:TIME = v P* =┆
0x5fde…602e 00 9c 00 2a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 3a 5c 41 37 20 3d 20 45 4c 45 4d 45 4e 54 20 41 44 44 52 45 53 53 20 00 3d 00 a6 00 18 00 50 2a 5c 5c 41 31 33 3d 20 54 43 41 20 41 44 44 52 45 53 53 20 00 3d 00 d4 00 10 00 50 ┆ * P* ENTRY PARAM: A7 = ELEMENT ADDRESS = P* A13= TCA ADDRESS = P┆
0x602e…607e 2a 5c 5c 57 42 20 49 4e 20 54 43 41 00 3d 00 f0 00 06 00 50 2a 20 00 3d 01 04 00 24 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 5c 54 3a 4f 50 41 20 54 4f 53 53 46 55 4e 4b 20 00 3d 01 0e 00 12 00 50 2a 5c 5c 4b 3a 53 54 38 2c 4b ┆* WB IN TCA = P* = $ P* SUBROUTINES: T:OPA TOSSFUNK = P* K:ST8,K┆
0x607e…60cc 3a 4c 44 38 00 3d 01 36 00 14 00 50 2a 5c 5c 4b 3a 49 44 20 49 4e 20 43 3a 53 45 54 00 3d 01 4c 00 06 00 50 2a 20 00 3d 01 64 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 3d 01 6e 00 06 00 50 2a 20 ┆:LD8 = 6 P* K:ID IN C:SET = L P* = d P* RETURN PARAM: NONE = n P* ┆
0x60cc…611c (62, 0, 400) 00 3d 01 8c 00 1c 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 4f 44 2a 5c 56 49 41 20 41 31 34 00 3e 00 08 00 06 00 50 2a 20 00 3e 00 28 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 3e 00 32 00 06 00 50 ┆ = P* RETURN METOD* VIA A14 > P* > ( P* CHANGED REGS: NONE > 2 P┆
0x611c…616c 2a 20 00 3e 00 50 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 3e 00 5a 00 06 00 50 2a 20 00 3e 00 76 00 16 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 5c 20 00 3e 00 80 00 06 00 50 2a 20 00 3e 00 9a ┆* > P P* STACKER NEED: 14 > Z P* > v P* LIMITATIONS: > P* > ┆
0x616c…61bc 00 18 00 50 2a 20 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 3a 5c 41 4e 59 00 3e 00 a4 00 06 00 50 2a 20 00 3e 00 c0 00 06 00 50 2a 20 00 3e 00 ca 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 ┆ P* CALLING TASK: ANY > P* > P* > D P****************************┆
0x61bc…620c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 3e 00 d4 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 20 00 3e 01 1c 00 12 00 50 2a 5c 5c 4b 20 3a 20 54 ┆*********************************** > P EJECT IDENT C:SUB > P* K : T┆
0x620c…625c 20 49 20 4d 20 45 00 3e 01 38 00 06 00 50 2a 20 00 3e 01 4e 00 24 00 50 2a 20 20 20 47 45 54 20 50 48 59 53 49 43 41 4c 20 45 4c 45 4d 45 4e 54 20 41 44 44 52 45 53 53 00 3e 01 58 00 1e 00 50 2a 5c 41 36 3d 4c 41 53 54 20 42 59 54 45 20 49 ┆ I M E > 8 P* > N $ P* GET PHYSICAL ELEMENT ADDRESS > X P* A6=LAST BYTE I┆
0x625c…62ac (63, 0, 398) 4e 20 45 4c 45 4d 45 4e 54 20 00 3e 01 80 00 18 00 50 2a 5c 41 31 3d 4e 45 47 41 54 49 56 45 20 4c 45 4e 47 54 48 00 3f 00 12 00 06 00 50 2a 20 00 3f 00 2e 00 06 00 50 2a 20 00 3f 00 38 00 10 00 50 4b 3a 54 49 4d 45 5c 45 51 55 5c 2a 00 3f ┆N ELEMENT > P* A1=NEGATIVE LENGTH ? P* ? . P* ? 8 PK:TIME EQU * ?┆
0x62ac…62fc 00 42 00 1c 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 54 38 5c 53 41 56 45 20 41 31 2d 41 38 00 3f 00 56 00 12 00 50 5c 43 46 5c 41 31 34 2c 54 3a 4f 50 41 20 00 3f 00 76 00 0e 00 50 5c 4c 44 52 5c 41 38 2c 41 36 00 3f 00 8c 00 0e 00 50 5c 41 ┆ B P CF A14,K:ST8 SAVE A1-A8 ? V P CF A14,T:OPA ? v P LDR A8,A6 ? P A┆
0x62fc…634c 44 52 5c 41 38 2c 41 31 00 3f 00 9e 00 0e 00 50 5c 41 44 4b 4c 5c 41 38 2c 31 00 3f 00 b0 00 08 00 50 5c 4c 4b 4d 00 3f 00 c2 00 0c 00 50 5c 44 41 54 41 5c 31 32 00 3f 00 ce 00 12 00 50 5c 49 46 54 5c 44 41 54 49 4e 43 3d 31 20 00 3f 00 de ┆DR A8,A1 ? P ADKL A8,1 ? P LKM ? P DATA 12 ? P IFT DATINC=1 ? ┆
0x634c…639c 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 3f 00 f4 00 14 00 50 5c 52 46 28 5a 29 5c 54 49 4d 45 31 30 5c 4e 4f 00 3f 01 16 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 49 44 5c 49 4e 43 52 45 ┆ P LDR A7,A7 MIDNIGTH CARRY? ? P RF(Z) TIME10 NO ? P CF A14,K:ID INCRE┆
0x639c…63ea 4d 45 4e 54 20 44 41 54 45 20 00 3f 01 2e 00 10 00 50 54 49 4d 45 31 30 5c 45 51 55 5c 2a 00 3f 01 52 00 08 00 50 5c 58 49 46 00 3f 01 66 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 38 5c 52 45 53 54 4f 52 45 20 41 31 2d 41 38 20 ┆MENT DATE ? . PTIME10 EQU * ? R P XIF ? f P CF A14,K:LD8 RESTORE A1-A8 ┆
0x63ea…643a (64, 0, 400) 00 3f 01 72 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 40 00 08 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 20 00 40 00 18 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 4d 20 4f 20 ┆ ? r P RTN A14 @ P EJECT IDENT C:SUB @ H P******************* K : M O ┆
0x643a…648a 56 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 40 00 34 00 06 00 50 2a 20 00 40 00 80 00 06 00 50 2a 20 00 40 00 8a 00 06 00 50 2a 20 00 40 00 94 00 1a 00 50 2a 53 ┆V ************************************* @ 4 P* @ P* @ P* @ P*S┆
0x648a…64da 55 42 52 4f 55 54 49 4e 45 20 20 4b 20 3a 20 4d 20 4f 20 56 00 40 00 9e 00 3a 00 50 2a 4d 4f 56 45 53 20 54 48 45 20 4e 42 52 20 4f 46 20 42 59 54 45 53 20 53 50 45 43 49 46 49 45 44 20 49 4e 20 41 36 20 46 52 4f 4d 20 54 48 45 20 41 52 45 ┆UBROUTINE K : M O V @ : P*MOVES THE NBR OF BYTES SPECIFIED IN A6 FROM THE ARE┆
0x64da…652a 41 20 00 40 00 bc 00 3a 00 50 2a 42 45 47 49 4e 4e 49 4e 47 20 41 54 20 41 34 20 54 4f 20 41 4e 20 41 52 45 41 20 42 45 47 49 4e 4e 49 4e 47 20 41 54 20 41 35 2e 20 54 48 45 20 41 52 45 41 53 00 40 00 fa 00 2a 00 50 2a 4d 41 59 20 42 45 20 ┆A @ : P*BEGINNING AT A4 TO AN AREA BEGINNING AT A5. THE AREAS @ * P*MAY BE ┆
0x652a…657a 4f 56 45 52 4c 41 50 50 49 4e 47 20 49 4e 20 41 4e 59 20 44 49 52 45 43 54 49 4f 4e 2e 20 00 40 01 38 00 06 00 50 2a 20 00 40 01 66 00 06 00 50 2a 20 00 40 01 70 00 06 00 50 2a 20 00 40 01 7a 00 06 00 50 2a 20 00 40 01 84 00 24 00 50 2a 20 ┆OVERLAPPING IN ANY DIRECTION. @ 8 P* @ f P* @ p P* @ z P* @ $ P* ┆
0x657a…65ca (65, 0, 400) 43 41 4c 4c 20 53 45 51 55 45 4e 43 45 3a 5c 43 46 20 20 20 41 31 34 2c 4b 3a 4d 4f 56 20 00 40 01 8e 00 06 00 50 2a 20 00 41 00 26 00 44 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 3a 5c 41 34 3d 41 44 44 52 45 53 53 20 4f 46 20 41 ┆CALL SEQUENCE: CF A14,K:MOV @ P* A & D P* ENTRY PARAM: A4=ADDRESS OF A┆
0x65ca…661a 52 45 41 20 54 4f 20 42 45 20 4d 4f 56 45 44 20 28 4c 45 46 54 4d 4f 53 54 20 42 59 54 45 29 20 00 41 00 30 00 24 00 50 2a 5c 5c 41 35 3d 41 44 44 52 45 53 53 20 4f 46 20 52 45 43 45 49 56 49 4e 47 20 41 52 45 41 20 00 41 00 78 00 22 00 50 ┆REA TO BE MOVED (LEFTMOST BYTE) A 0 $ P* A5=ADDRESS OF RECEIVING AREA A x " P┆
0x661a…666a 2a 5c 5c 41 36 3d 4e 42 52 20 4f 46 20 42 59 54 45 53 20 54 4f 20 42 45 20 4d 4f 56 45 44 00 41 00 a0 00 06 00 50 2a 20 00 41 00 c6 00 28 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 5c 4b 3a 53 54 36 2c 4b 3a 4c 44 36 20 20 43 3a ┆* A6=NBR OF BYTES TO BE MOVED A P* A ( P* SUBROUTINES: K:ST6,K:LD6 C:┆
0x666a…66ba 53 55 42 20 00 41 00 d0 00 06 00 50 2a 20 00 41 00 fc 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 41 01 06 00 06 00 50 2a 20 00 41 01 24 00 18 00 50 2a 20 20 52 45 54 55 52 4e 20 4d 45 54 4f 44 3a 5c 41 ┆SUB A P* A P* RETURN PARAM: NONE A P* A $ P* RETURN METOD: A┆
0x66ba…670a 31 34 00 41 01 2e 00 06 00 50 2a 20 00 41 01 4a 00 1a 00 50 2a 20 4d 4f 44 49 46 49 45 44 20 44 41 54 41 3a 5c 4e 4f 4e 45 20 00 41 01 54 00 06 00 50 2a 20 00 41 01 72 00 1a 00 50 2a 20 20 43 48 41 4e 47 45 44 20 52 45 47 53 3a 5c 4e 4f 4e ┆14 A . P* A J P* MODIFIED DATA: NONE A T P* A r P* CHANGED REGS: NON┆
0x670a…675a (66, 0, 398) 45 20 00 41 01 7c 00 06 00 50 2a 20 00 42 00 0a 00 16 00 50 2a 20 20 53 54 41 43 4b 45 52 20 4e 45 45 44 3a 5c 38 00 42 00 14 00 06 00 50 2a 20 00 42 00 2e 00 16 00 50 2a 20 20 20 4c 49 4d 49 54 41 54 49 4f 4e 53 3a 5c 20 00 42 00 38 00 06 ┆E A | P* B P* STACKER NEED: 8 B P* B . P* LIMITATIONS: B 8 ┆
0x675a…67aa 00 50 2a 20 00 42 00 52 00 18 00 50 2a 20 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 3a 5c 41 4e 59 00 42 00 5c 00 06 00 50 2a 20 00 42 00 78 00 06 00 50 2a 20 00 42 00 82 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* B R P* CALLING TASK: ANY B P* B x P* B D P********************┆
0x67aa…67fa 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 42 00 8c 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 20 00 42 00 d4 00 06 00 50 ┆******************************************* B P EJECT IDENT C:SUB B P┆
0x67fa…684a 2a 20 00 42 00 f0 00 34 00 50 2a 20 20 20 43 4f 4d 50 41 52 45 20 41 52 45 41 20 41 44 44 52 45 53 53 45 53 20 54 4f 20 41 56 4f 49 44 20 4f 56 45 52 57 52 49 54 49 4e 47 20 00 42 00 fa 00 1c 00 50 2a 20 20 20 49 46 20 4f 56 45 52 4c 41 50 ┆* B 4 P* COMPARE AREA ADDRESSES TO AVOID OVERWRITING B P* IF OVERLAP┆
0x684a…6898 50 49 4e 47 20 41 52 45 41 53 00 42 01 32 00 06 00 50 2a 5c 00 42 01 52 00 10 00 50 4b 3a 4d 4f 56 5c 45 51 55 5c 2a 20 00 42 01 5c 00 1e 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 53 54 36 5c 53 41 56 45 20 36 20 52 45 47 53 20 00 42 01 70 ┆PING AREAS B 2 P* B R PK:MOV EQU * B P CF A14,K:ST6 SAVE 6 REGS B p┆
0x6898…68e8 (67, 0, 400) 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 34 00 43 00 04 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 35 00 43 00 16 00 0e 00 50 5c 53 52 4c 5c 41 31 2c 31 20 00 43 00 28 00 0e 00 50 5c 53 52 4c 5c 41 32 2c 31 20 00 43 00 3a 00 2e 00 50 5c 43 57 52 ┆ P LDR A1,A4 C P LDR A2,A5 C P SRL A1,1 C ( P SRL A2,1 C : . P CWR┆
0x68e8…6938 5c 41 31 2c 41 32 5c 43 4f 4d 50 41 52 45 20 41 44 44 52 45 53 53 45 53 20 57 49 54 48 4f 55 54 20 53 49 47 4e 20 00 43 00 4c 00 26 00 50 5c 52 46 28 4c 29 5c 4d 4f 56 32 30 30 5c 53 54 41 52 54 20 57 49 54 48 20 4c 41 53 54 20 53 49 47 4e ┆ A1,A2 COMPARE ADDRESSES WITHOUT SIGN C L & P RF(L) MOV200 START WITH LAST SIGN┆
0x6938…6988 00 43 00 7e 00 28 00 50 5c 52 46 28 47 29 5c 4d 4f 56 31 30 30 5c 53 54 41 52 54 20 57 49 54 48 20 46 49 52 53 54 20 43 48 41 52 20 00 43 00 a8 00 26 00 50 5c 43 57 52 5c 41 34 2c 41 35 5c 43 4f 4d 50 41 52 45 20 41 52 45 41 20 41 44 44 52 ┆ C ~ ( P RF(G) MOV100 START WITH FIRST CHAR C & P CWR A4,A5 COMPARE AREA ADDR┆
0x6988…69d8 45 53 53 45 53 20 00 43 00 d4 00 2c 00 50 5c 52 46 28 45 29 5c 4d 4f 56 45 4e 44 5c 4d 4f 56 45 20 4f 50 45 52 41 54 49 4f 4e 20 55 4e 4e 45 53 53 45 53 41 52 59 00 43 00 fe 00 26 00 50 5c 52 46 28 4c 29 5c 4d 4f 56 32 30 30 5c 53 54 41 52 ┆ESSES C , P RF(E) MOVEND MOVE OPERATION UNNESSESARY C & P RF(L) MOV200 STAR┆
0x69d8…6a28 54 20 57 49 54 48 20 4c 41 53 54 20 43 48 41 52 00 43 01 2e 00 06 00 50 2a 20 00 43 01 58 00 20 00 50 2a 20 20 20 4d 4f 56 45 20 4c 45 46 54 4d 4f 53 54 20 43 48 41 52 20 46 49 52 53 54 00 43 01 62 00 06 00 50 2a 20 00 43 01 86 00 10 00 50 ┆T WITH LAST CHAR C . P* C X P* MOVE LEFTMOST CHAR FIRST C b P* C P┆
0x6a28…6a78 (68, 0, 398) 4d 4f 56 31 30 30 5c 45 51 55 5c 2a 00 43 01 90 00 0e 00 50 5c 4c 43 52 5c 41 31 2c 41 34 00 44 00 14 00 0e 00 50 5c 53 43 52 5c 41 31 2c 41 35 00 44 00 26 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 31 20 00 44 00 38 00 0e 00 50 5c 41 44 4b 5c 41 ┆MOV100 EQU * C P LCR A1,A4 D P SCR A1,A5 D & P ADK A4,1 D 8 P ADK A┆
0x6a78…6ac8 35 2c 31 20 00 44 00 4a 00 0e 00 50 5c 53 55 4b 5c 41 36 2c 31 20 00 44 00 5c 00 22 00 50 5c 52 42 28 50 29 5c 4d 4f 56 31 30 30 5c 4e 4f 54 20 45 4e 44 20 4f 46 20 41 52 45 41 20 00 44 00 6e 00 0e 00 50 5c 52 46 5c 4d 4f 56 45 4e 44 00 44 ┆5,1 D J P SUK A6,1 D " P RB(P) MOV100 NOT END OF AREA D n P RF MOVEND D┆
0x6ac8…6b18 00 94 00 1a 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 24 24 20 00 44 00 a6 00 06 00 50 2a 20 00 44 00 c4 00 38 00 50 2a 20 20 20 4d 4f 56 45 20 52 49 47 48 54 4d 4f 53 54 20 43 48 41 52 20 46 49 52 53 54 20 54 4f 20 50 ┆ P EJECT IDENT C:SUB$$ D P* D 8 P* MOVE RIGHTMOST CHAR FIRST TO P┆
0x6b18…6b68 52 45 56 45 4e 54 20 4f 56 45 52 57 52 49 54 49 4e 47 00 44 00 ce 00 06 00 50 2a 20 00 44 01 0a 00 10 00 50 4d 4f 56 32 30 30 5c 45 51 55 5c 2a 00 44 01 14 00 0e 00 50 5c 41 44 52 5c 41 34 2c 41 36 00 44 01 28 00 0e 00 50 5c 41 44 52 5c 41 ┆REVENT OVERWRITING D P* D PMOV200 EQU * D P ADR A4,A6 D ( P ADR A┆
0x6b68…6bb6 35 2c 41 36 00 44 01 3a 00 10 00 50 4d 4f 56 32 31 30 5c 45 51 55 5c 2a 00 44 01 4c 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 20 00 44 01 60 00 0e 00 50 5c 53 55 4b 5c 41 35 2c 31 20 00 44 01 72 00 0e 00 50 5c 4c 43 52 5c 41 31 2c 41 34 ┆5,A6 D : PMOV210 EQU * D L P SUK A4,1 D ` P SUK A5,1 D r P LCR A1,A4┆
0x6bb6…6c06 (69, 2, 170) 00 44 01 84 00 0e 00 50 5c 53 43 52 5c 41 31 2c 41 35 00 45 00 08 00 0e 00 50 5c 53 55 4b 5c 41 36 2c 31 20 00 45 00 1a 00 22 00 50 5c 52 42 28 50 29 5c 4d 4f 56 32 31 30 5c 4e 4f 54 20 45 4e 44 20 4f 46 20 41 52 45 41 20 00 45 00 2c 00 10 ┆ D P SCR A1,A5 E P SUK A6,1 E " P RB(P) MOV210 NOT END OF AREA E , ┆
0x6c06…6c56 00 50 4d 4f 56 45 4e 44 5c 45 51 55 5c 2a 00 45 00 52 00 20 00 50 5c 43 46 5c 41 31 34 2c 4b 3a 4c 44 36 5c 52 45 53 54 4f 52 45 20 36 20 52 45 47 53 00 45 00 66 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 45 00 8a 00 08 00 50 5c 45 4e 44 00 45 ┆ PMOVEND EQU * E R P CF A14,K:LD6 RESTORE 6 REGS E f P RTN A14 E P END E┆
0x6c56…6c60 00 9a 40 04 00 00 00 45 00 a6 ┆ @ E ┆
0x6c60…6c68 (70, 1, 8) 20 04 00 00 00 46 00 04 ┆ F ┆