|
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: 20458 (0x4fea)
Notes: pts_type(SC)
Names: »DCADDR.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DCADDR.SC«
IDENT DCADDR REL 11.0 81-04-15 870105041100 =1, DEFDTE 810126 * *********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DC:ADR : ADDRESS TRANSLATION ROUTINES FOR * DATA COMMUNICATION SOFTWARE * ************************************************ * EJECT * *********************************************** * * PROGRAM DESCRIPTION * * FOLLOWING SUBROUTINES CAN BE FOUND IN THIS MODULE : * * FNDDNA : FINDS A DTE NETWORK ADDRESS FROM A * SYMBOLIC DTE ADDRESS * * FNDDNT : FINDS A DTE NETWORK ADDRESS FROM A * SYMBOLIC DTE ADDRESS OF A SPECIFIED TYPE * * GETDNA : TRANSLATES A SYMBOLIC DTE ADDRESS INTO A * DTE NETWORK ADDRESS * * GETDNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A * SPECIFIED TYPE INTO A DTE NETWORK ADDRESS * * GETDSA : TRANSLATES A DTE NETWORK ADDRESS INTO A * SYMBOLIC DTE ADDRESS * EJECT * * GETDST : TRANSLATES A DTE NETWORK ADDRESS OF A SPECIFIED * TYPE INTO A SYMBOLIC DTE ADDRESS * * GETSNA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A * SYMBOLIC SUB-ADDRESS INTO A NETWORK SUB-ADDRESS * * GETSNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A * SPECIFIED TYPE AND A SYMBOLIC SUB-ADDRESS * INTO A NETWORK SUB-ADDRESS * * GETSSA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A * NETWORK SUB-ADDRESS INTO A SYMBOLIC SUB-ADDRESS * * GETSST : TRANSLATES A SYMBOLIC DTE ADDRESS OF A SPECIFIED * TYPE AND A NETWORK SUB-ADDRESS INTO A SYMBOLIC * SUB-ADDRESS * * DEFDTE : RE-DEFINES ALREADY EXISTING DTE-NUMBERS IN THE =1 * DC DTE-TABLE POINTED TO BY S C T D C T (AKAN) =1 * =1 ********************************************************** * EJECT * * ENTRIES * ENTRY FNDDNA ENTRY FNDDNT ENTRY GETDNA ENTRY GETDNT ENTRY GETDSA ENTRY GETDST ENTRY GETSNA ENTRY GETSNT ENTRY GETSSA ENTRY GETSST ENTRY DEFDTE . =1 * * * EXTERNALS * EXTRN SCTDCT DC TABLE DISP. IN SYSTEM CONTROL TABLE EXTRN SAVE8 SAVE REG. A1-A8 ON SYSTEM STACK EXTRN RETUR8 RELOAD A1-A8 AND RETURN EXTRN IHRET8 RELOAD A1-A8 AND RETURN INHIBIT EXTRN MOVUS MOVE USERDATA TO SYSTEM-AREA =1 EXTRN DWTTAB TTAB OFFSET IN DWT'S =1 * EJECT * * CONDITIONAL ASSEMBLY PARAMETERS * X:A EQU 1 SUB-ADDRESSING SUPPORTED ? SUBADR EQU X:A 0=NO 1=YES * CPU852 EQU 1 EXTENDED INSTRUCTION SET IF ZERO * * * SYSTEM EQUATES * DS EQU 0 ENTRY INDICATORS DN EQU 1 SS EQU 2 SN EQU 3 * EJECT * . =1 * * EQUATES FOR D E F D T E =1 * . =1 NUME EQU 2 NUMBER OF ENTRIES =1 PCHAR EQU 4 PREVIOUS CHAR. & ELEN EQU 5 ENTRY LENGTH CODE EQU 6 ASCII/BCD CODE-FLAG BLEN EQU 8 BUFFER-LENGTH =1 EJECT * * * ROUTINES TO GET A SYMBOLIC DTE ADDRESS FROM A * DTE NETWORK ADDRESS (AND TYPE) * ************************************************* * * INPUT PARAMETERS : * A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS * A2 = BUFFER CONTAINING DTE NETWORK ADDRESS * A3 = TYPE (ONLY FOR GETDST ENTRY) * * CALLING SEQUENCES : * CF A15,GETDSA * CF A15,GETDST * * OUTPUT PARAMETERS : * A1 = SYMBOLIC DTE ADDRESS(OR -1 IF INVALID ADDRESS OR TYPE) * A3 = TYPE INDEX (IF GETDST ENTRY,OTHERWISE NOT CHANGED) * GETDSA EQU * IFT CPU852=0 MSR 8,A15 SAVE REG. A1-A8 XIF IFT CPU852=1 CF A15,SAVE8 SAVE REG. A1-A8 XIF SUR A3,A3 CLEAR TYPE INDICATOR RF GET090 GETDST EQU * IFT CPU852=0 MSR 8,A15 XIF IFT CPU852=1 CF A15,SAVE8 XIF EJECT * GET090 EQU * LDK A4,DS ENTRY INDICATOR GET100 EQU * LDKL A5,-1 RESET TYPE COUNTER LDKL A8,SCTDCT POINTER TO DC ADDRESS TABLE ENTRY GET110 EQU * LDR* A8,A8 MORE ENTRIES ? RF(Z) GET330 NO ADK A3,0 TYPE SPECIFIED ? RF(Z) GET120 NO CW A3,4,A8 TYPE FOUND ? RB(NE) GET110 NO ADK A5,1 STEP TYPE COUNTER * * TEST ON ENTRY * GET120 EQU * ADK A4,DS GETDSA/GETDST ENTRY ? RF(NZ) GET220 NO * * TEST ON ADDRESS LENGTH * CC A1,6,A8 SAME ? RB(NE) GET110 NO,TAKE NEXT * EJECT * * GET ADDRESS PARAMETERS * ADK A1,1 CONVERT.. SRC A1,1 ..LENGTH.. LDR A4,A1 ..INTO.. ANK A1,/7F ..OCTETS LDR A6,A8 GET ADDRESS WHERE TO.. ADK A6,7 ..FIND LAST OCTET OF.. ADR A6,A1 ..NETWORK ADDRESS ADR A2,A1 POINTER TO LAST OCTET IN BUFFER LDR A7,A1 SAVE LENGTH * * COMPARE DTE NETWORK ADDRESS * GET130 EQU * SUK A1,1 LAST ONE ? RF(N) GET160 YES SUK A2,1 NEXT OCTET SUK A6,1 POINTER TO NEXT OCTET LCR A4,A6 GET ONE DC ADDRESS TABLE OCTET CCR A4,A2 COMPARE WITH DRIVER BUFFER RB(E) GET130 EQUAL * EJECT * * COMPARED OCTETS NOT EQUAL * GET140 EQU * SUR A7,A1 FIRST ONE ? SUK A7,1 . RF(NZ) GET150 NO ADK A4,0 SEMI-OCTET BOUNDARY ? RF(N) GET150 NO ANK A4,/F0 MASK DRIVER SEMI-OCTET LCR A1,A2 GET DC ADDRESS TABLE OCTET ANK A1,/F0 MAKE IT SEMI-OCTET CWR A4,A1 EQUAL ? RF(E) GET160 YES GET150 EQU * LC A1,6,A8 RELOAD LENGTH LDK A4,DS RELOAD ENTRY INDICATOR RB GET110 TRY NEXT * * COMMON EXIT ROUTINE * GET160 EQU * LD A1,2,A8 GET SYMBOLIC DTE ADDRESS GET170 EQU * LDR A3,A3 TYPE TESTED ? RF(Z) GET180 NO ST A5,12,A15 SAVE TYPE COUNTER IN A3 GET180 EQU * ST A1,16,A15 SAVE A1 IFT CPU852=0 ABL RETUR8 RETURN TO CALLER XIF IFT CPU852=1 LD A1,18,A15 GET PSW ANK A1,/40 ENABLE MODE ? ABL(NZ) RETUR8 YES ABL IHRET8 RETURN INHIBIT TO CALLER XIF * EJECT * * * ROUTINES TO FIND OR GET A DTE NETWORK ADDRESS FROM A * SYMBOLIC NETWORK ADDRESS (AND TYPE) * ****************************************************** * * INPUT PARAMETERS : * A1 = SYMBOLIC DTE ADDRESS * A2 = BUFFER (ONLY IF GET... ENTRY) * A3 = TYPE (ONLY IF ...DNT ENTRY) * * CALLING SEQUENCES : * CF A15,FNDDNA * CF A15,FNDDNT * CF A15,GETDNA * CF A15,GETDNT * * OUTPUT PARAMETERS : * A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS * (OR -1 IF ILLEGAL SYMBOLIC DTE ADDRESS OR TYPE) * A2 = NEXT FREE ADDRESS IN BUFFER (IF GET... ENTRY) * A2 = POINTER TO NETWORK ADDRESS (IF FND... ENTRY) * A3 = TYPE INDEX (IF ...DNT ENTRY,OTHERWISE NOT CHANGED) * FNDDNT EQU * IFT CPU852=0 MSR 8,A15 SAVE REG. A1-A8 XIF IFT CPU852=1 CF A15,SAVE8 SAVE REG. A1-A8 XIF SUR A2,A2 CLEAR BUFFER ADDRESS RF GET210 * EJECT * FNDDNA EQU * IFT CPU852=0 MSR 8,A15 XIF IFT CPU852=1 CF A15,SAVE8 XIF SUR A2,A2 CLEAR BUFFER ADDRESS RF GET200 GETDNT EQU * IFT CPU852=0 MSR 8,A15 XIF IFT CPU852=1 CF A15,SAVE8 XIF RF GET210 GETDNA EQU * IFT CPU852=0 MSR 8,A15 XIF IFT CPU852=1 CF A15,SAVE8 XIF GET200 EQU * SUR A3,A3 CLEAR TYPE INDICATOR GET210 EQU * LDK A4,DN SET ENTRY INDICATOR RB GET100 RUN * EJECT * * TEST ON SYMBOLIC ADDRESS * GET220 EQU * CW A1,2,A8 FOUND ? RB(NE) GET110 NO * * GET ADDRESS PARAMETERS * LDK A1,0 LC A1,6,A8 GET DTE NETWORK ADDRESS LENGTH LDR A7,A1 GET LENGTH ADK A7,1 CONVERT LENGTH.. SRC A7,1 ..INTO.. ANK A7,/7F ..OCTETS LDR A6,A8 GET ADDRESS WHERE TO FIND.. ADK A6,7 ..NETWORK ADDRESS IFT SUBADR=1 * * TEST ON ENTRY * SUK A4,SS ...DNA/...DNT ENTRY ? RF(NN) GET310 NO XIF LDR A2,A2 NETWORK ADDRESS WANTED ? RF(NZ) GET240 YES LDR A2,A6 * EJECT * * SAVE PARAMETERS * GET230 EQU * ST A2,14,A15 SAVE NEXT ADDRESS RB GET170 EXIT * * GET NETWORK ADDRESS * GET240 EQU * SUK A7,1 READY ? RB(N) GET230 YES LCR A4,A6 MOVE ONE.. SCR A4,A2 ..OCTET ADK A2,1 ADK A6,1 RB GET240 TAKE NEXT * IFT SUBADR=1 EJECT * * * ROUTINES TO GET A SYMBOLIC SUB-ADDRESS FROM A * SYMBOLIC DTE ADDRESS (OF A SPECIFIED TYPE) AND A * NETWORK SUB-ADDRESS * **************************************************** * * INPUT PARAMETERS : * A1 = SYMBOLIC DTE ADDRESS * A2 = NETWORK SUB-ADDRESS * A3 = TYPE (ONLY IF GETSST ENTRY) * * CALLING SEQUENCE : * CF A15,GETSSA * CF A15,GETSST * * OUTPUT PARAMETERS : * A1 = SYMBOLIC SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC * DTE ADDRESS,TYPE OR NETWORK SUB-ADDRESS) * A3 = TYPE INDEX (ONLY IF GETSST ENTRY,OTHERWISE NOT CHANGED) * GETSST EQU * IFT CPU852=0 MSR 8,A15 XIF IFT SUBADR=1 IFT CPU852=1 CF A15,SAVE8 SAVE REG. A1-A8 XIF IFT SUBADR=1 RF GET300 * EJECT * GETSSA EQU * IFT CPU852=0 MSR 8,A15 XIF IFT SUBADR=1 IFT CPU852=1 CF A15,SAVE8 XIF IFT SUBADR=1 SUR A3,A3 CLEAR TYPE INDICATION GET300 EQU * LDK A4,SS SET ENTRY INDICATOR GET305 EQU * RB GET100 RUN * * TEST ON ENTRY * GET310 EQU * ADR A6,A7 GET # OF ENTRIES IN LCR A7,A6 ..SUB-ADDRESS TABLE LDR A4,A4 RF(NZ) GET410 NOT GETSSA/GETSST ENTRY * * GET SYMBOLIC SUB-ADDRESS * LDK A1,/30 RESET SYMBOLIC SUB-ADDRESS INDICATOR GET320 EQU * ADK A6,1 NEXT ENTRY CCR A2,A6 COMPARE NETWORK SUB-ADDRESSES RB(E) GET170 EXIT ! ADK A1,1 STEP SYMBOLIC SUB-ADDRESS SUK A7,1 MORE ENTRIES ? RB(P) GET320 YES XIF * EJECT * * INCORRECT PARAMETERS * IFT SUBADR=0 GETSNA EQU * DUMMY ENTRIES GETSNT EQU * GETSSA EQU * GETSST EQU * XIF GET330 EQU * LDKL A1,-1 ERROR INDICATION RB GET180 EXIT * IFT SUBADR=1 EJECT * * * ROUTINES TO GET A NETWORK SUB-ADDRESS FROM A * SYMBOLIC DTE ADDRESS (OF SPECIFIED TYPE) AND A * SYMBOLIC SUB-ADDRESS * *************************************************** * * INPUT PARAMETERS : * A1 = SYMBOLIC DTE ADDRESS * A2 = SYMBOLIC SUB-ADDRESS * A3 = TYPE (ONLY IF GETSNT ENTRY) * * CALLING SEQUENCES : * CF A15,GETSNA * CF A15,GETSNT * * OUTPUT PARAMETERS : * A1 = NETWORK SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC * DTE ADDRESS,TYPE OR SYMBOLIC SUB-ADDRESS) * A3 = TYPE INDEX (ONLY IF GETSNT ENTRY,OTHERWISE NOT CHANGED) * GETSNT EQU * IFT CPU852=0 MSR 8,A15 SAVE REG. A1-A8 XIF IFT SUBADR=1 IFT CPU852=1 CF A15,SAVE8 SAVE REG. A1-A8 XIF IFT SUBADR=1 RF GET400 * EJECT * GETSNA EQU * IFT CPU852=0 MSR 8,A15 XIF IFT SUBADR=1 IFT CPU852=1 CF A15,SAVE8 XIF IFT SUBADR=1 SUR A3,A3 CLEAR TYPE INDICATOR GET400 EQU * LDK A4,SN SET ENTRY INDICATOR RB GET305 RUN * * GET NETWORK SUB-ADDRESS * GET410 EQU * ANK A2,/FF ONLY ONE BYTE SIGNIFICANT SUK A2,/2F RB(NP) GET330 INVALID SYMBOLIC SUB-ADDRESS SUR A7,A2 SYMBOLIC SUB-ADDRESS WITHIN TABLE ? RB(N) GET330 NO ADR A6,A2 SET POINTER(INDEX STARTS WITH /30) LCR A1,A6 GET NETWORK SUB-ADDRESS RB GET170 EXIT * XIF EJECT * TO END =1 * * D E F D T E * * RE-DEFINES ALREADY EXISTING DTE-NUMBERS IN DC DTE-TABLE * IN THE SYSTEM-AREA POINTED TO BY S C T D C T. - * - THE OLD NETWORKADDRESS(ES) IS (ARE) SUBSTITUTED BY THE * NEW ONE(S) IN THE BUFFER GIVEN IN THE CALL TO D E F D T E * (AKAN) * *********************************************************************** * * CALLING SEQUENCE: * * CF A15,DEFDTE * * * INPUT PARAMETERS: * * A1 = ADDRESS TO USER-TASK NUMBERTABLE * A2 = USER BUFFER ADDR. (TEMP.) * A4 = BUFFER LENGTH * A6 = DWT ADDRESS * * OUTPUT PARAMETERS: * * A1 = 0 SUCCESSFUL REQUEST COMPLETION * A1 = 1 ENTRY LENGTH ERROR, BUFFER OVERFLOW * A1 =-1 INVALID SYMB DTE ADDR/TYPE * *********************************************************************** EJECT DEFDTE EQU * IFT CPU852=0 MSR 8,A15 SAVE 8-REG'S XIF IFT CPU852=1 CF A15,SAVE8 SAVE 8-REG'S XIF EJECT * * MOVE HEAD OF USER BUFFER TO WORKAREA (TEMP.) * LDK A3,6 LD A5,DWTTAB,A6 TTAB-ADDRESS OF TASK CF A15,MOVUS MOVE FROM USER- TO SYSTEM- AREA LDR A7,A1 SAVE USER BUFFER-ADDR SUK A2,6 LDR A8,A2 POINTER TO HEAD LDR* A1,A2 GET SYMB. DTE-ADDR LC A3,PCHAR,A8 ST A3,CODE,A8 MOVE ASCII/BCD-FLAG LDK A3,/FF ANS A3,ELEN,A8 STRIP FLAG FROM ENTRY LENGTH LDKL A3,'RC' CF A15,FNDDNT GET POINTER TO FIRST NETW NUMB ABL(N) GET180 INVALID SYMB DTE-ADDR OR TYPE CW A1,ELEN,A8 ABL(NE) DEFD90 ENTRY LENGTHS DIFFER ! STR A2,A8 SAVE DC-TABLE ADDR AT HEAD LD A2,NUME,A8 * NGR A2,A2 * NEGATE NO. OF ENTRIES ST A2,NUME,A8 * SUK A4,10 ST A4,BLEN,A8 SAVE LENGTH OF WORK-BUFFER LDR A3,A1 ENTRY LENGTH LDR A1,A7 USER BUFFER POINTER EJECT * * MOVE PORTION OF USER NUMBER-TABLE TO WORK-BUFFER * DEFD05 EQU * LDK A4,1 SET "FIRST NIBBLE"-FLAG DEFD10 EQU * LDR A3,A3 RF(P) DEFD15 OLD ENTRY IM NUME,A8 RF(Z) DEFD80 NO MORE ENTRIES LDK A2,7 * STEP POINTER TO ADR* A2,A8 * NEXT ENTRY ORK A2,1 STR A2,A8 REM. ENTRY ON WORD ADDR LDR* A7,A2 SRL A7,8 KEEP ENTRY LENGTH CC A7,ELEN,A8 RF(NE) DEFD90 ENTRY LENGTHS DIFFER LD A7,-7,A2 RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE DEFD15 EQU * LDR A7,A3 LDR A2,A8 ADK A2,10 FIX TO-ADDRESS FOR MOVE LD A3,BLEN,A8 LENGTH OF WORK-BUFFER LD A5,DWTTAB,A6 TTAB-ADDR CF A15,MOVUS MOVE FROM USER TO SYSTEM SU A2,BLEN,A8 POINT AT TOP OF WORK-BUFFER AGAIN LDR A3,A7 RF(NZ) DEFD20 STILL OLD ENTRY LC A3,ELEN,A8 ENTRY LENGTH DEFD20 EQU * LD A7,CODE,A8 RF(Z) DEFD50 BCD-NUMBERS TO MOVE LD A7,BLEN,A8 WORK-BUFFER LENGTH EJECT * * CONVERT ASCII-NUMBERS TO BCD WHILE MOVING INTO * DC DTE-TABLE ENTRIES * DEFD25 EQU * LCR A5,A2 GET ASCII CCK A5,/2000 RF(NE) DEFD30 NO "SPACE" LDK A5,/0F FIX PAD DEFD30 EQU * CCK A5,/2E00 RF(NE) DEFD35 NO "." LDK A5,/0E ABBR CALL PREFIX DEFD35 EQU * ANK A5,/0F MASK ONE NIBBLE ADK A2,1 * SUK A3,1 * BUMP POINTER AND COUNTERS SUK A7,1 * NGR A4,A4 LEFT/RIGHT NIBBLE FLIP-FLOP RF(P) DEFD45 SECOND NIBBLE SLL A5,4 SC A5,PCHAR,A8 SAVE NIBBLE TEMP LDR A7,A7 RB(Z) DEFD10 END OF BUFFER - MOVE AGAIN DEFD40 EQU * LDR A3,A3 RB(P) DEFD25 NOT END OF ENTRY EJECT DEFD45 EQU * SLL A5,8 * OR A5,PCHAR,A8 * MERGE LAST CHAR WITH PREVIOUS SRL A5,8 * SC* A5,0,A8 SAVE IN DC DTE-TABLE IMR A8 * LDR A7,A7 RB(Z) DEFD05 END OF BUFFER LDR A3,A3 RB(P) DEFD25 NOT END OF ENTRY * * END OF ENTRY * IM NUME,A8 RF(Z) DEFD80 NO MORE ENTRIES LDK A5,7 * STEP POINTER TO ADR* A5,A8 * NEXT ENTRY ORK A5,1 STR A5,A8 REM. ENTRY - WORD ADDR LDR* A3,A5 SRL A3,8 KEEP ENTRY LENGTH CC A3,ELEN,A8 RF(NE) DEFD90 LENGTHS DIFFER ! LD A5,-7,A5 RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE RB DEFD25 NEXT ENTRY MOVE EJECT * * MOVE BCD-NUMBER INTO DC DTE-TABLE * DEFD50 EQU * LD A7,BLEN,A8 WORK-BUFFER LENGTH DEFD55 EQU * LCR A5,A2 GET TWO BCD'S (NIBBLES) SC* A5,0,A8 SAVE'M IN DC DTE-TABLE IMR A8 * ADK A2,1 * SUK A3,2 * BUMP POINTER AND COUNTERS SUK A7,1 * RB(Z) DEFD10 END OF BUFFER LDR A3,A3 RB(P) DEFD55 NOT END OF ENTRY IM NUME,A8 RF(Z) DEFD80 NO MORE ENTRIES LDK A5,7 * STEP POINTER TO ADR* A5,A8 * NEXT ENTRY ORK A5,1 STR A5,A8 REM. ENTRY - WORD ADDR LDR* A3,A5 SRL A3,8 KEEP ENTRY LENGTH CC A3,ELEN,A8 RF(NE) DEFD90 LENGTHS DIFFER ! LD A5,-7,A5 RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE RB DEFD55 NEXT ENTRY MOVE EJECT DEFD80 EQU * SUR A1,A1 RETURN OK RF DEFD95 DEFD90 EQU * LDK A1,1 INVALID ENTRY LENGTH DEFD95 EQU * ABL GET180 EXIT TO CALLER END
0x0000…0034 (0, 0, 398) Head {h00=0x0030, h01=0x0050, text=» IDENT DCADDR REL 11.0 81-04-15 870105041100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0052 Head {h00=0x0012, h01=0x0050, text=» =1, DEFDTE «, t00=0x0000, t01=0x0040}
0x0052…0064 Head {h00=0x000e, h01=0x0050, text=» 810126 «, t00=0x0000, t01=0x0056}
0x0064…006e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0068}
0x006e…00a6 Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0000, t01=0x0072}
0x00a6…00b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00aa}
0x00b0…00d6 Head {h00=0x0022, h01=0x001d, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00b4}
0x00d6…00e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00da}
0x00e0…0114 Head {h00=0x0030, h01=0x0050, text=»* DC:ADR : ADDRESS TRANSLATION ROUTINES FOR «, t00=0x0000, t01=0x00e4}
0x0114…0142 Head {h00=0x002a, h01=0x0026, text=»* DATA COMMUNICATION SOFTWARE«, t00=0x0000, t01=0x0118}
0x0142…014c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0146}
0x014c…0184 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x0000, t01=0x0150}
0x0184…018e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0188}
0x018e…019c (1, 0, 400) Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0001, t01=0x0004}
0x019c…01a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0012}
0x01a6…01de Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0001, t01=0x001c}
0x01de…01e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0054}
0x01e8…0206 Head {h00=0x001a, h01=0x0015, text=»* PROGRAM DESCRIPTION «, t00=0x0001, t01=0x005e}
0x0206…0210 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x007c}
0x0210…024e Head {h00=0x003a, h01=0x0035, text=»* FOLLOWING SUBROUTINES CAN BE FOUND IN THIS MODULE : «, t00=0x0001, t01=0x0086}
0x024e…0258 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00c4}
0x0258…028e Head {h00=0x0032, h01=0x002d, text=»* FNDDNA : FINDS A DTE NETWORK ADDRESS FROM A «, t00=0x0001, t01=0x00ce}
0x028e…02b6 Head {h00=0x0024, h01=0x0050, text=»* SYMBOLIC DTE ADDRESS «, t00=0x0001, t01=0x0104}
0x02b6…02c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x012c}
0x02c0…02f6 Head {h00=0x0032, h01=0x002d, text=»* FNDDNT : FINDS A DTE NETWORK ADDRESS FROM A «, t00=0x0001, t01=0x0136}
0x02f6…0332 Head {h00=0x0038, h01=0x0050, text=»* SYMBOLIC DTE ADDRESS OF A SPECIFIED TYPE «, t00=0x0001, t01=0x016c}
0x0332…033c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0018}
0x033c…0378 Head {h00=0x0038, h01=0x0050, text=»* GETDNA : TRANSLATES A SYMBOLIC DTE ADDRESS INTO A «, t00=0x0002, t01=0x0022}
0x0378…039e Head {h00=0x0022, h01=0x001e, text=»* DTE NETWORK ADDRESS«, t00=0x0002, t01=0x005e}
0x039e…03a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0084}
0x03a8…03e2 Head {h00=0x0036, h01=0x0050, text=»* GETDNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A «, t00=0x0002, t01=0x008e}
0x03e2…041e Head {h00=0x0038, h01=0x0034, text=»* SPECIFIED TYPE INTO A DTE NETWORK ADDRESS«, t00=0x0002, t01=0x00c8}
0x041e…0428 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0104}
0x0428…0462 Head {h00=0x0036, h01=0x0032, text=»* GETDSA : TRANSLATES A DTE NETWORK ADDRESS INTO A«, t00=0x0002, t01=0x010e}
0x0462…048a Head {h00=0x0024, h01=0x0050, text=»* SYMBOLIC DTE ADDRESS «, t00=0x0002, t01=0x0148}
0x048a…0494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0170}
0x0494…04a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x017a}
0x04a2…04ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0188}
0x04ac…04ee (3, 0, 400) Head {h00=0x003e, h01=0x003a, text=»* GETDST : TRANSLATES A DTE NETWORK ADDRESS OF A SPECIFIED«, t00=0x0003, t01=0x0004}
0x04ee…0522 Head {h00=0x0030, h01=0x0050, text=»* TYPE INTO A SYMBOLIC DTE ADDRESS «, t00=0x0003, t01=0x0046}
0x0522…052c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x007a}
0x052c…0566 Head {h00=0x0036, h01=0x0050, text=»* GETSNA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A«, t00=0x0003, t01=0x0084}
0x0566…05a8 Head {h00=0x003e, h01=0x003a, text=»* SYMBOLIC SUB-ADDRESS INTO A NETWORK SUB-ADDRESS«, t00=0x0003, t01=0x00be}
0x05a8…05b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0100}
0x05b2…05ec Head {h00=0x0036, h01=0x0050, text=»* GETSNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A «, t00=0x0003, t01=0x010a}
0x05ec…0628 Head {h00=0x0038, h01=0x0034, text=»* SPECIFIED TYPE AND A SYMBOLIC SUB-ADDRESS«, t00=0x0003, t01=0x0144}
0x0628…0656 Head {h00=0x002a, h01=0x0025, text=»* INTO A NETWORK SUB-ADDRESS «, t00=0x0003, t01=0x0180}
0x0656…0660 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x001e}
0x0660…069a Head {h00=0x0036, h01=0x0050, text=»* GETSSA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A«, t00=0x0004, t01=0x0028}
0x069a…06dc Head {h00=0x003e, h01=0x003a, text=»* NETWORK SUB-ADDRESS INTO A SYMBOLIC SUB-ADDRESS«, t00=0x0004, t01=0x0062}
0x06dc…06e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00a4}
0x06e6…072a Head {h00=0x0040, h01=0x003b, text=»* GETSST : TRANSLATES A SYMBOLIC DTE ADDRESS OF A SPECIFIED «, t00=0x0004, t01=0x00ae}
0x072a…076c Head {h00=0x003e, h01=0x0039, text=»* TYPE AND A NETWORK SUB-ADDRESS INTO A SYMBOLIC «, t00=0x0004, t01=0x00f2}
0x076c…078a Head {h00=0x001a, h01=0x0016, text=»* SUB-ADDRESS«, t00=0x0004, t01=0x0134}
0x078a…0794 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0152}
0x0794…07e0 Head {h00=0x0048, h01=0x0050, text=»* DEFDTE : RE-DEFINES ALREADY EXISTING DTE-NUMBERS IN THE =1 «, t00=0x0004, t01=0x015c}
0x07e0…082c Head {h00=0x0048, h01=0x0050, text=»* DC DTE-TABLE POINTED TO BY S C T D C T (AKAN) =1 «, t00=0x0005, t01=0x0018}
0x082c…083a Head {h00=0x000a, h01=0x0050, text=»* =1«, t00=0x0005, t01=0x0064}
0x083a…087c Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x0005, t01=0x0072}
0x087c…0886 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00b4}
0x0886…0894 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0005, t01=0x00be}
0x0894…089e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00cc}
0x089e…08b0 Head {h00=0x000e, h01=0x0009, text=»* ENTRIES «, t00=0x0005, t01=0x00d6}
0x08b0…08ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00e8}
0x08ba…08d0 Head {h00=0x0012, h01=0x000d, text=» ENTRY FNDDNA «, t00=0x0005, t01=0x00f2}
0x08d0…08e6 Head {h00=0x0012, h01=0x000d, text=» ENTRY FNDDNT «, t00=0x0005, t01=0x0108}
0x08e6…08fc Head {h00=0x0012, h01=0x000d, text=» ENTRY GETDNA «, t00=0x0005, t01=0x011e}
0x08fc…0912 Head {h00=0x0012, h01=0x000d, text=» ENTRY GETDNT «, t00=0x0005, t01=0x0134}
0x0912…0928 Head {h00=0x0012, h01=0x000d, text=» ENTRY GETDSA «, t00=0x0005, t01=0x014a}
0x0928…093e Head {h00=0x0012, h01=0x000d, text=» ENTRY GETDST «, t00=0x0005, t01=0x0160}
0x093e…0954 Head {h00=0x0012, h01=0x000d, text=» ENTRY GETSNA «, t00=0x0005, t01=0x0176}
0x0954…096a Head {h00=0x0012, h01=0x000d, text=» ENTRY GETSNT «, t00=0x0005, t01=0x018c}
0x096a…0980 Head {h00=0x0012, h01=0x000d, text=» ENTRY GETSSA «, t00=0x0006, t01=0x0012}
0x0980…0996 Head {h00=0x0012, h01=0x000d, text=» ENTRY GETSST «, t00=0x0006, t01=0x0028}
0x0996…09b0 Head {h00=0x0016, h01=0x0050, text=» ENTRY DEFDTE . =1«, t00=0x0006, t01=0x003e}
0x09b0…09ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0058}
0x09ba…09c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c4…09d8 Head {h00=0x0010, h01=0x000b, text=»* EXTERNALS «, t00=0x0006, t01=0x006c}
0x09d8…09e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0080}
0x09e2…0a1e Head {h00=0x0038, h01=0x0050, text=» EXTRN SCTDCT DC TABLE DISP. IN SYSTEM CONTROL TABLE«, t00=0x0006, t01=0x008a}
0x0a1e…0a52 Head {h00=0x0030, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8 ON SYSTEM STACK«, t00=0x0006, t01=0x00c6}
0x0a52…0a80 Head {h00=0x002a, h01=0x0050, text=» EXTRN RETUR8 RELOAD A1-A8 AND RETURN «, t00=0x0006, t01=0x00fa}
0x0a80…0ab6 Head {h00=0x0032, h01=0x0050, text=» EXTRN IHRET8 RELOAD A1-A8 AND RETURN INHIBIT «, t00=0x0006, t01=0x0128}
0x0ab6…0aea Head {h00=0x0030, h01=0x0050, text=» EXTRN MOVUS MOVE USERDATA TO SYSTEM-AREA =1«, t00=0x0006, t01=0x015e}
0x0aea…0b18 (7, 0, 400) Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTTAB TTAB OFFSET IN DWT'S =1 «, t00=0x0007, t01=0x0004}
0x0b18…0b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b22…0b30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x003c}
0x0b30…0b3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x004a}
0x0b3a…0b64 Head {h00=0x0026, h01=0x0021, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0007, t01=0x0054}
0x0b64…0b6e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x007e}
0x0b6e…0b9a Head {h00=0x0028, h01=0x0024, text=»X:A EQU 1 SUB-ADDRESSING SUPPORTED ?«, t00=0x0007, t01=0x0088}
0x0b9a…0bbc Head {h00=0x001e, h01=0x0019, text=»SUBADR EQU X:A 0=NO 1=YES «, t00=0x0007, t01=0x00b4}
0x0bbc…0bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d6}
0x0bc6…0bfc Head {h00=0x0032, h01=0x0050, text=»CPU852 EQU 1 EXTENDED INSTRUCTION SET IF ZERO «, t00=0x0007, t01=0x00e0}
0x0bfc…0c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c06…0c10 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0120}
0x0c10…0c28 Head {h00=0x0014, h01=0x0010, text=»* SYSTEM EQUATES«, t00=0x0007, t01=0x012a}
0x0c28…0c32 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0142}
0x0c32…0c54 Head {h00=0x001e, h01=0x0019, text=»DS EQU 0 ENTRY INDICATORS «, t00=0x0007, t01=0x014c}
0x0c54…0c64 Head {h00=0x000c, h01=0x0008, text=»DN EQU 1«, t00=0x0007, t01=0x016e}
0x0c64…0c74 Head {h00=0x000c, h01=0x0008, text=»SS EQU 2«, t00=0x0007, t01=0x017e}
0x0c74…0c84 Head {h00=0x000c, h01=0x0008, text=»SN EQU 3«, t00=0x0007, t01=0x018e}
0x0c84…0c8e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x000e}
0x0c8e…0c9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0018}
0x0c9c…0cac Head {h00=0x000c, h01=0x0050, text=»* . =1«, t00=0x0008, t01=0x0026}
0x0cac…0cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0036}
0x0cb6…0ce2 Head {h00=0x0028, h01=0x0050, text=»* EQUATES FOR D E F D T E =1 «, t00=0x0008, t01=0x0040}
0x0ce2…0cf2 Head {h00=0x000c, h01=0x0050, text=»* . =1«, t00=0x0008, t01=0x006c}
0x0cf2…0d1a Head {h00=0x0024, h01=0x0050, text=»NUME EQU 2 NUMBER OF ENTRIES =1 «, t00=0x0008, t01=0x007c}
0x0d1a…0d3e Head {h00=0x0020, h01=0x0050, text=»PCHAR EQU 4 PREVIOUS CHAR. &«, t00=0x0008, t01=0x00a4}
0x0d3e…0d5e Head {h00=0x001c, h01=0x0050, text=»ELEN EQU 5 ENTRY LENGTH «, t00=0x0008, t01=0x00c8}
0x0d5e…0d84 Head {h00=0x0022, h01=0x0050, text=»CODE EQU 6 ASCII/BCD CODE-FLAG«, t00=0x0008, t01=0x00e8}
0x0d84…0da8 Head {h00=0x0020, h01=0x0050, text=»BLEN EQU 8 BUFFER-LENGTH =1 «, t00=0x0008, t01=0x010e}
0x0da8…0db6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x0132}
0x0db6…0dc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0140}
0x0dc0…0dca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x014a}
0x0dca…0e02 Head {h00=0x0034, h01=0x002f, text=»* ROUTINES TO GET A SYMBOLIC DTE ADDRESS FROM A «, t00=0x0008, t01=0x0154}
0x0e02…0e2a Head {h00=0x0024, h01=0x0020, text=»* DTE NETWORK ADDRESS (AND TYPE)«, t00=0x0008, t01=0x018c}
0x0e2a…0e34 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0024}
0x0e34…0e6e Head {h00=0x0036, h01=0x0031, text=»************************************************* «, t00=0x0009, t01=0x002e}
0x0e6e…0e78 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0068}
0x0e78…0e94 Head {h00=0x0018, h01=0x0014, text=»* INPUT PARAMETERS :«, t00=0x0009, t01=0x0072}
0x0e94…0ed0 Head {h00=0x0038, h01=0x0034, text=»* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS«, t00=0x0009, t01=0x008e}
0x0ed0…0f06 Head {h00=0x0032, h01=0x0050, text=»* A2 = BUFFER CONTAINING DTE NETWORK ADDRESS «, t00=0x0009, t01=0x00ca}
0x0f06…0f32 Head {h00=0x0028, h01=0x0024, text=»* A3 = TYPE (ONLY FOR GETDST ENTRY)«, t00=0x0009, t01=0x0100}
0x0f32…0f3c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x012c}
0x0f3c…0f5a Head {h00=0x001a, h01=0x0015, text=»* CALLING SEQUENCES : «, t00=0x0009, t01=0x0136}
0x0f5a…0f72 Head {h00=0x0014, h01=0x0010, text=»* CF A15,GETDSA«, t00=0x0009, t01=0x0154}
0x0f72…0f8a Head {h00=0x0014, h01=0x0010, text=»* CF A15,GETDST«, t00=0x0009, t01=0x016c}
0x0f8a…0f94 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0184}
0x0f94…0fb2 Head {h00=0x001a, h01=0x0015, text=»* OUTPUT PARAMETERS : «, t00=0x0009, t01=0x018e}
0x0fb2…0ff8 Head {h00=0x0042, h01=0x0050, text=»* A1 = SYMBOLIC DTE ADDRESS(OR -1 IF INVALID ADDRESS OR TYPE)«, t00=0x000a, t01=0x001c}
0x0ff8…103a Head {h00=0x003e, h01=0x003a, text=»* A3 = TYPE INDEX (IF GETDST ENTRY,OTHERWISE NOT CHANGED)«, t00=0x000a, t01=0x0062}
0x103a…1044 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00a4}
0x1044…1058 Head {h00=0x0010, h01=0x000c, text=»GETDSA EQU *«, t00=0x000a, t01=0x00ae}
0x1058…106e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000a, t01=0x00c2}
0x106e…1090 Head {h00=0x001e, h01=0x0050, text=» MSR 8,A15 SAVE REG. A1-A8«, t00=0x000a, t01=0x00d8}
0x1090…109c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00fa}
0x109c…10b2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000a, t01=0x0106}
0x10b2…10d8 Head {h00=0x0022, h01=0x001d, text=» CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x000a, t01=0x011c}
0x10d8…10e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0142}
0x10e4…110c Head {h00=0x0024, h01=0x001f, text=» SUR A3,A3 CLEAR TYPE INDICATOR «, t00=0x000a, t01=0x014e}
0x110c…111e Head {h00=0x000e, h01=0x000a, text=» RF GET090«, t00=0x000a, t01=0x0176}
0x111e…1132 Head {h00=0x0010, h01=0x000c, text=»GETDST EQU *«, t00=0x000a, t01=0x0188}
0x1132…1148 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000b, t01=0x000c}
0x1148…115a Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x000b, t01=0x0022}
0x115a…1166 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0034}
0x1166…117c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000b, t01=0x0040}
0x117c…1192 Head {h00=0x0012, h01=0x000d, text=» CF A15,SAVE8 «, t00=0x000b, t01=0x0056}
0x1192…119e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x006c}
0x119e…11ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0078}
0x11ac…11b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0086}
0x11b6…11ca Head {h00=0x0010, h01=0x000c, text=»GET090 EQU *«, t00=0x000b, t01=0x0090}
0x11ca…11ec Head {h00=0x001e, h01=0x001a, text=» LDK A4,DS ENTRY INDICATOR«, t00=0x000b, t01=0x00a4}
0x11ec…1200 Head {h00=0x0010, h01=0x000c, text=»GET100 EQU *«, t00=0x000b, t01=0x00c6}
0x1200…1226 Head {h00=0x0022, h01=0x001e, text=» LDKL A5,-1 RESET TYPE COUNTER«, t00=0x000b, t01=0x00da}
0x1226…1260 Head {h00=0x0036, h01=0x0050, text=» LDKL A8,SCTDCT POINTER TO DC ADDRESS TABLE ENTRY «, t00=0x000b, t01=0x0100}
0x1260…1274 Head {h00=0x0010, h01=0x000c, text=»GET110 EQU *«, t00=0x000b, t01=0x013a}
0x1274…1296 Head {h00=0x001e, h01=0x001a, text=» LDR* A8,A8 MORE ENTRIES ?«, t00=0x000b, t01=0x014e}
0x1296…12ae Head {h00=0x0014, h01=0x0010, text=» RF(Z) GET330 NO«, t00=0x000b, t01=0x0170}
0x12ae…12d0 Head {h00=0x001e, h01=0x001a, text=» ADK A3,0 TYPE SPECIFIED ?«, t00=0x000b, t01=0x0188}
0x12d0…12e8 Head {h00=0x0014, h01=0x0010, text=» RF(Z) GET120 NO«, t00=0x000c, t01=0x001a}
0x12e8…1308 Head {h00=0x001c, h01=0x0018, text=» CW A3,4,A8 TYPE FOUND ?«, t00=0x000c, t01=0x0032}
0x1308…1322 Head {h00=0x0016, h01=0x0011, text=» RB(NE) GET110 NO «, t00=0x000c, t01=0x0052}
0x1322…1346 Head {h00=0x0020, h01=0x001b, text=» ADK A5,1 STEP TYPE COUNTER «, t00=0x000c, t01=0x006c}
0x1346…1350 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0090}
0x1350…1368 Head {h00=0x0014, h01=0x000f, text=»* TEST ON ENTRY «, t00=0x000c, t01=0x009a}
0x1368…1372 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00b2}
0x1372…1386 Head {h00=0x0010, h01=0x0050, text=»GET120 EQU *«, t00=0x000c, t01=0x00bc}
0x1386…13ae Head {h00=0x0024, h01=0x0050, text=» ADK A4,DS GETDSA/GETDST ENTRY ?«, t00=0x000c, t01=0x00d0}
0x13ae…13c8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GET220 NO «, t00=0x000c, t01=0x00f8}
0x13c8…13d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0112}
0x13d2…13f2 Head {h00=0x001c, h01=0x0050, text=»* TEST ON ADDRESS LENGTH«, t00=0x000c, t01=0x011c}
0x13f2…13fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013c}
0x13fc…1416 Head {h00=0x0016, h01=0x0050, text=» CC A1,6,A8 SAME ?«, t00=0x000c, t01=0x0146}
0x1416…143a Head {h00=0x0020, h01=0x0050, text=» RB(NE) GET110 NO,TAKE NEXT «, t00=0x000c, t01=0x0160}
0x143a…1444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0184}
0x1444…1452 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x018e}
0x1452…145c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x000c}
0x145c…147c Head {h00=0x001c, h01=0x0050, text=»* GET ADDRESS PARAMETERS«, t00=0x000d, t01=0x0016}
0x147c…1486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0036}
0x1486…14a2 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 CONVERT.. «, t00=0x000d, t01=0x0040}
0x14a2…14be Head {h00=0x0018, h01=0x0050, text=» SRC A1,1 ..LENGTH..«, t00=0x000d, t01=0x005c}
0x14be…14da Head {h00=0x0018, h01=0x0050, text=» LDR A4,A1 ..INTO.. «, t00=0x000d, t01=0x0078}
0x14da…14f6 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/7F ..OCTETS«, t00=0x000d, t01=0x0094}
0x14f6…1520 Head {h00=0x0026, h01=0x0050, text=» LDR A6,A8 GET ADDRESS WHERE TO.. «, t00=0x000d, t01=0x00b0}
0x1520…1548 Head {h00=0x0024, h01=0x0050, text=» ADK A6,7 ..FIND LAST OCTET OF..«, t00=0x000d, t01=0x00da}
0x1548…156c Head {h00=0x0020, h01=0x0050, text=» ADR A6,A1 ..NETWORK ADDRESS«, t00=0x000d, t01=0x0102}
0x156c…159e Head {h00=0x002e, h01=0x0050, text=» ADR A2,A1 POINTER TO LAST OCTET IN BUFFER«, t00=0x000d, t01=0x0126}
0x159e…15bc Head {h00=0x001a, h01=0x0050, text=» LDR A7,A1 SAVE LENGTH«, t00=0x000d, t01=0x0158}
0x15bc…15c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x15c6…15ec Head {h00=0x0022, h01=0x001d, text=»* COMPARE DTE NETWORK ADDRESS «, t00=0x000d, t01=0x0180}
0x15ec…15f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0016}
0x15f6…160a Head {h00=0x0010, h01=0x000c, text=»GET130 EQU *«, t00=0x000e, t01=0x0020}
0x160a…1626 Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 LAST ONE ?«, t00=0x000e, t01=0x0034}
0x1626…1640 Head {h00=0x0016, h01=0x0050, text=» RF(N) GET160 YES «, t00=0x000e, t01=0x0050}
0x1640…165c Head {h00=0x0018, h01=0x0050, text=» SUK A2,1 NEXT OCTET«, t00=0x000e, t01=0x006a}
0x165c…1684 Head {h00=0x0024, h01=0x001f, text=» SUK A6,1 POINTER TO NEXT OCTET «, t00=0x000e, t01=0x0086}
0x1684…16b6 Head {h00=0x002e, h01=0x0050, text=» LCR A4,A6 GET ONE DC ADDRESS TABLE OCTET «, t00=0x000e, t01=0x00ae}
0x16b6…16e4 Head {h00=0x002a, h01=0x0050, text=» CCR A4,A2 COMPARE WITH DRIVER BUFFER «, t00=0x000e, t01=0x00e0}
0x16e4…1700 Head {h00=0x0018, h01=0x0050, text=» RB(E) GET130 EQUAL «, t00=0x000e, t01=0x010e}
0x1700…170a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012a}
0x170a…1718 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0134}
0x1718…1722 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0142}
0x1722…1746 Head {h00=0x0020, h01=0x001b, text=»* COMPARED OCTETS NOT EQUAL «, t00=0x000e, t01=0x014c}
0x1746…1750 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0170}
0x1750…1764 Head {h00=0x0010, h01=0x0050, text=»GET140 EQU *«, t00=0x000e, t01=0x017a}
0x1764…1782 Head {h00=0x001a, h01=0x0050, text=» SUR A7,A1 FIRST ONE ?«, t00=0x000e, t01=0x018e}
0x1782…1796 Head {h00=0x0010, h01=0x0050, text=» SUK A7,1 . «, t00=0x000f, t01=0x001c}
0x1796…17b0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GET150 NO «, t00=0x000f, t01=0x0030}
0x17b0…17d8 Head {h00=0x0024, h01=0x0050, text=» ADK A4,0 SEMI-OCTET BOUNDARY ? «, t00=0x000f, t01=0x004a}
0x17d8…17f0 Head {h00=0x0014, h01=0x0050, text=» RF(N) GET150 NO«, t00=0x000f, t01=0x0072}
0x17f0…181a Head {h00=0x0026, h01=0x0050, text=» ANK A4,/F0 MASK DRIVER SEMI-OCTET«, t00=0x000f, t01=0x008a}
0x181a…1848 Head {h00=0x002a, h01=0x0050, text=» LCR A1,A2 GET DC ADDRESS TABLE OCTET «, t00=0x000f, t01=0x00b4}
0x1848…186e Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F0 MAKE IT SEMI-OCTET«, t00=0x000f, t01=0x00e2}
0x186e…1888 Head {h00=0x0016, h01=0x0050, text=» CWR A4,A1 EQUAL ?«, t00=0x000f, t01=0x0108}
0x1888…18a2 Head {h00=0x0016, h01=0x0050, text=» RF(E) GET160 YES «, t00=0x000f, t01=0x0122}
0x18a2…18b6 Head {h00=0x0010, h01=0x0050, text=»GET150 EQU *«, t00=0x000f, t01=0x013c}
0x18b6…18d8 Head {h00=0x001e, h01=0x0050, text=» LC A1,6,A8 RELOAD LENGTH «, t00=0x000f, t01=0x0150}
0x18d8…1902 Head {h00=0x0026, h01=0x0021, text=» LDK A4,DS RELOAD ENTRY INDICATOR «, t00=0x000f, t01=0x0172}
0x1902…191e Head {h00=0x0018, h01=0x0013, text=» RB GET110 TRY NEXT «, t00=0x0010, t01=0x000c}
0x191e…1928 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0028}
0x1928…1946 Head {h00=0x001a, h01=0x0015, text=»* COMMON EXIT ROUTINE «, t00=0x0010, t01=0x0032}
0x1946…1950 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0050}
0x1950…1964 Head {h00=0x0010, h01=0x0050, text=»GET160 EQU *«, t00=0x0010, t01=0x005a}
0x1964…1990 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET SYMBOLIC DTE ADDRESS«, t00=0x0010, t01=0x006e}
0x1990…19a4 Head {h00=0x0010, h01=0x0050, text=»GET170 EQU *«, t00=0x0010, t01=0x009a}
0x19a4…19c4 Head {h00=0x001c, h01=0x0018, text=» LDR A3,A3 TYPE TESTED ?«, t00=0x0010, t01=0x00ae}
0x19c4…19dc Head {h00=0x0014, h01=0x0050, text=» RF(Z) GET180 NO«, t00=0x0010, t01=0x00ce}
0x19dc…1a0a Head {h00=0x002a, h01=0x0025, text=» ST A5,12,A15 SAVE TYPE COUNTER IN A3 «, t00=0x0010, t01=0x00e6}
0x1a0a…1a1e Head {h00=0x0010, h01=0x0050, text=»GET180 EQU *«, t00=0x0010, t01=0x0114}
0x1a1e…1a3c Head {h00=0x001a, h01=0x0015, text=» ST A1,16,A15 SAVE A1 «, t00=0x0010, t01=0x0128}
0x1a3c…1a52 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0010, t01=0x0146}
0x1a52…1a76 Head {h00=0x0020, h01=0x0050, text=» ABL RETUR8 RETURN TO CALLER«, t00=0x0010, t01=0x015c}
0x1a76…1a82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0180}
0x1a82…1a98 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0010, t01=0x018c}
0x1a98…1ab6 Head {h00=0x001a, h01=0x0050, text=» LD A1,18,A15 GET PSW «, t00=0x0011, t01=0x0012}
0x1ab6…1ad8 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/40 ENABLE MODE ? «, t00=0x0011, t01=0x0030}
0x1ad8…1af4 Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) RETUR8 YES «, t00=0x0011, t01=0x0052}
0x1af4…1b20 Head {h00=0x0028, h01=0x0050, text=» ABL IHRET8 RETURN INHIBIT TO CALLER«, t00=0x0011, t01=0x006e}
0x1b20…1b2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x009a}
0x1b2c…1b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a6}
0x1b36…1b44 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0011, t01=0x00b0}
0x1b44…1b4e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00be}
0x1b4e…1b58 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00c8}
0x1b58…1b96 Head {h00=0x003a, h01=0x0036, text=»* ROUTINES TO FIND OR GET A DTE NETWORK ADDRESS FROM A«, t00=0x0011, t01=0x00d2}
0x1b96…1bc4 Head {h00=0x002a, h01=0x0025, text=»* SYMBOLIC NETWORK ADDRESS (AND TYPE) «, t00=0x0011, t01=0x0110}
0x1bc4…1bce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x013e}
0x1bce…1c0c Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x0011, t01=0x0148}
0x1c0c…1c16 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0186}
0x1c16…1c32 Head {h00=0x0018, h01=0x0014, text=»* INPUT PARAMETERS :«, t00=0x0011, t01=0x0190}
0x1c32…1c56 Head {h00=0x0020, h01=0x001c, text=»* A1 = SYMBOLIC DTE ADDRESS«, t00=0x0012, t01=0x001c}
0x1c56…1c84 Head {h00=0x002a, h01=0x0025, text=»* A2 = BUFFER (ONLY IF GET... ENTRY) «, t00=0x0012, t01=0x0040}
0x1c84…1cb0 Head {h00=0x0028, h01=0x0023, text=»* A3 = TYPE (ONLY IF ...DNT ENTRY) «, t00=0x0012, t01=0x006e}
0x1cb0…1cba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x009a}
0x1cba…1cd8 Head {h00=0x001a, h01=0x0015, text=»* CALLING SEQUENCES : «, t00=0x0012, t01=0x00a4}
0x1cd8…1cf0 Head {h00=0x0014, h01=0x0010, text=»* CF A15,FNDDNA«, t00=0x0012, t01=0x00c2}
0x1cf0…1d08 Head {h00=0x0014, h01=0x0010, text=»* CF A15,FNDDNT«, t00=0x0012, t01=0x00da}
0x1d08…1d20 Head {h00=0x0014, h01=0x0010, text=»* CF A15,GETDNA«, t00=0x0012, t01=0x00f2}
0x1d20…1d38 Head {h00=0x0014, h01=0x0010, text=»* CF A15,GETDNT«, t00=0x0012, t01=0x010a}
0x1d38…1d42 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0122}
0x1d42…1d60 Head {h00=0x001a, h01=0x0015, text=»* OUTPUT PARAMETERS : «, t00=0x0012, t01=0x012c}
0x1d60…1d9c Head {h00=0x0038, h01=0x0034, text=»* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS«, t00=0x0012, t01=0x014a}
0x1d9c…1ddc Head {h00=0x003c, h01=0x0050, text=»* (OR -1 IF ILLEGAL SYMBOLIC DTE ADDRESS OR TYPE) «, t00=0x0012, t01=0x0186}
0x1ddc…1e1a Head {h00=0x003a, h01=0x0050, text=»* A2 = NEXT FREE ADDRESS IN BUFFER (IF GET... ENTRY) «, t00=0x0013, t01=0x0036}
0x1e1a…1e56 Head {h00=0x0038, h01=0x0050, text=»* A2 = POINTER TO NETWORK ADDRESS (IF FND... ENTRY)«, t00=0x0013, t01=0x0074}
0x1e56…1e98 Head {h00=0x003e, h01=0x003a, text=»* A3 = TYPE INDEX (IF ...DNT ENTRY,OTHERWISE NOT CHANGED)«, t00=0x0013, t01=0x00b0}
0x1e98…1ea2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00f2}
0x1ea2…1eb6 Head {h00=0x0010, h01=0x000c, text=»FNDDNT EQU *«, t00=0x0013, t01=0x00fc}
0x1eb6…1ecc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x0110}
0x1ecc…1eee Head {h00=0x001e, h01=0x0050, text=» MSR 8,A15 SAVE REG. A1-A8«, t00=0x0013, t01=0x0126}
0x1eee…1efa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0148}
0x1efa…1f10 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x0154}
0x1f10…1f36 Head {h00=0x0022, h01=0x001d, text=» CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x0013, t01=0x016a}
0x1f36…1f42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0190}
0x1f42…1f6a Head {h00=0x0024, h01=0x001f, text=» SUR A2,A2 CLEAR BUFFER ADDRESS «, t00=0x0014, t01=0x000c}
0x1f6a…1f7c Head {h00=0x000e, h01=0x000a, text=» RF GET210«, t00=0x0014, t01=0x0034}
0x1f7c…1f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0046}
0x1f86…1f94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0050}
0x1f94…1f9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005e}
0x1f9e…1fb2 Head {h00=0x0010, h01=0x000c, text=»FNDDNA EQU *«, t00=0x0014, t01=0x0068}
0x1fb2…1fc8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0014, t01=0x007c}
0x1fc8…1fda Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0014, t01=0x0092}
0x1fda…1fe6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00a4}
0x1fe6…1ffc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0014, t01=0x00b0}
0x1ffc…2012 Head {h00=0x0012, h01=0x000d, text=» CF A15,SAVE8 «, t00=0x0014, t01=0x00c6}
0x2012…201e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00dc}
0x201e…2046 Head {h00=0x0024, h01=0x0050, text=» SUR A2,A2 CLEAR BUFFER ADDRESS «, t00=0x0014, t01=0x00e8}
0x2046…2058 Head {h00=0x000e, h01=0x000a, text=» RF GET200«, t00=0x0014, t01=0x0110}
0x2058…206c Head {h00=0x0010, h01=0x000c, text=»GETDNT EQU *«, t00=0x0014, t01=0x0122}
0x206c…2082 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0014, t01=0x0136}
0x2082…2094 Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0014, t01=0x014c}
0x2094…20a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x015e}
0x20a0…20b6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0014, t01=0x016a}
0x20b6…20cc Head {h00=0x0012, h01=0x000d, text=» CF A15,SAVE8 «, t00=0x0014, t01=0x0180}
0x20cc…20d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0008}
0x20d8…20ea Head {h00=0x000e, h01=0x000a, text=» RF GET210«, t00=0x0015, t01=0x0014}
0x20ea…20fe Head {h00=0x0010, h01=0x000c, text=»GETDNA EQU *«, t00=0x0015, t01=0x0026}
0x20fe…2114 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0015, t01=0x003a}
0x2114…2126 Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0015, t01=0x0050}
0x2126…2132 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0062}
0x2132…2148 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0015, t01=0x006e}
0x2148…215e Head {h00=0x0012, h01=0x000d, text=» CF A15,SAVE8 «, t00=0x0015, t01=0x0084}
0x215e…216a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x009a}
0x216a…217e Head {h00=0x0010, h01=0x000c, text=»GET200 EQU *«, t00=0x0015, t01=0x00a6}
0x217e…21a6 Head {h00=0x0024, h01=0x001f, text=» SUR A3,A3 CLEAR TYPE INDICATOR «, t00=0x0015, t01=0x00ba}
0x21a6…21ba Head {h00=0x0010, h01=0x000c, text=»GET210 EQU *«, t00=0x0015, t01=0x00e2}
0x21ba…21e0 Head {h00=0x0022, h01=0x001e, text=» LDK A4,DN SET ENTRY INDICATOR«, t00=0x0015, t01=0x00f6}
0x21e0…21f6 Head {h00=0x0012, h01=0x000e, text=» RB GET100 RUN«, t00=0x0015, t01=0x011c}
0x21f6…2200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0132}
0x2200…220e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x013c}
0x220e…2218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014a}
0x2218…223a Head {h00=0x001e, h01=0x001a, text=»* TEST ON SYMBOLIC ADDRESS«, t00=0x0015, t01=0x0154}
0x223a…2244 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0176}
0x2244…2258 Head {h00=0x0010, h01=0x000c, text=»GET220 EQU *«, t00=0x0015, t01=0x0180}
0x2258…2274 (22, 0, 400) Head {h00=0x0018, h01=0x0013, text=» CW A1,2,A8 FOUND ? «, t00=0x0016, t01=0x0004}
0x2274…228e Head {h00=0x0016, h01=0x0011, text=» RB(NE) GET110 NO «, t00=0x0016, t01=0x0020}
0x228e…2298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x003a}
0x2298…22b8 Head {h00=0x001c, h01=0x0050, text=»* GET ADDRESS PARAMETERS«, t00=0x0016, t01=0x0044}
0x22b8…22c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0064}
0x22c2…22d4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0016, t01=0x006e}
0x22d4…2306 Head {h00=0x002e, h01=0x0050, text=» LC A1,6,A8 GET DTE NETWORK ADDRESS LENGTH«, t00=0x0016, t01=0x0080}
0x2306…2324 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A1 GET LENGTH «, t00=0x0016, t01=0x00b2}
0x2324…2346 Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 CONVERT LENGTH..«, t00=0x0016, t01=0x00d0}
0x2346…2360 Head {h00=0x0016, h01=0x0050, text=» SRC A7,1 ..INTO..«, t00=0x0016, t01=0x00f2}
0x2360…237c Head {h00=0x0018, h01=0x0050, text=» ANK A7,/7F ..OCTETS«, t00=0x0016, t01=0x010c}
0x237c…23aa Head {h00=0x002a, h01=0x0050, text=» LDR A6,A8 GET ADDRESS WHERE TO FIND..«, t00=0x0016, t01=0x0128}
0x23aa…23ce Head {h00=0x0020, h01=0x0050, text=» ADK A6,7 ..NETWORK ADDRESS «, t00=0x0016, t01=0x0156}
0x23ce…23e4 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0016, t01=0x017a}
0x23e4…23ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0190}
0x23ee…2406 Head {h00=0x0014, h01=0x000f, text=»* TEST ON ENTRY «, t00=0x0017, t01=0x000a}
0x2406…2410 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0022}
0x2410…2438 Head {h00=0x0024, h01=0x0050, text=» SUK A4,SS ...DNA/...DNT ENTRY ?«, t00=0x0017, t01=0x002c}
0x2438…2452 Head {h00=0x0016, h01=0x0011, text=» RF(NN) GET310 NO «, t00=0x0017, t01=0x0054}
0x2452…245e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x006e}
0x245e…248a Head {h00=0x0028, h01=0x0023, text=» LDR A2,A2 NETWORK ADDRESS WANTED ? «, t00=0x0017, t01=0x007a}
0x248a…24a4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GET240 YES«, t00=0x0017, t01=0x00a6}
0x24a4…24b6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0017, t01=0x00c0}
0x24b6…24c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d2}
0x24c0…24ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00dc}
0x24ce…24d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ea}
0x24d8…24f2 Head {h00=0x0016, h01=0x0050, text=»* SAVE PARAMETERS «, t00=0x0017, t01=0x00f4}
0x24f2…24fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010e}
0x24fc…2510 Head {h00=0x0010, h01=0x0050, text=»GET230 EQU *«, t00=0x0017, t01=0x0118}
0x2510…2538 Head {h00=0x0024, h01=0x0050, text=» ST A2,14,A15 SAVE NEXT ADDRESS «, t00=0x0017, t01=0x012c}
0x2538…2550 Head {h00=0x0014, h01=0x0050, text=» RB GET170 EXIT «, t00=0x0017, t01=0x0154}
0x2550…255a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016c}
0x255a…2578 Head {h00=0x001a, h01=0x0015, text=»* GET NETWORK ADDRESS «, t00=0x0017, t01=0x0176}
0x2578…2582 (24, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0004}
0x2582…2596 Head {h00=0x0010, h01=0x0050, text=»GET240 EQU *«, t00=0x0018, t01=0x000e}
0x2596…25b0 Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 READY ? «, t00=0x0018, t01=0x0022}
0x25b0…25ca Head {h00=0x0016, h01=0x0050, text=» RB(N) GET230 YES «, t00=0x0018, t01=0x003c}
0x25ca…25e8 Head {h00=0x001a, h01=0x0050, text=» LCR A4,A6 MOVE ONE.. «, t00=0x0018, t01=0x0056}
0x25e8…2602 Head {h00=0x0016, h01=0x0050, text=» SCR A4,A2 ..OCTET«, t00=0x0018, t01=0x0074}
0x2602…2614 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0018, t01=0x008e}
0x2614…2626 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0018, t01=0x00a0}
0x2626…2642 Head {h00=0x0018, h01=0x0050, text=» RB GET240 TAKE NEXT«, t00=0x0018, t01=0x00b2}
0x2642…264c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x00ce}
0x264c…2662 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0018, t01=0x00d8}
0x2662…2670 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0018, t01=0x00ee}
0x2670…267a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x00fc}
0x267a…2684 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0106}
0x2684…26bc Head {h00=0x0034, h01=0x002f, text=»* ROUTINES TO GET A SYMBOLIC SUB-ADDRESS FROM A «, t00=0x0018, t01=0x0110}
0x26bc…26f6 Head {h00=0x0036, h01=0x0032, text=»* SYMBOLIC DTE ADDRESS (OF A SPECIFIED TYPE) AND A«, t00=0x0018, t01=0x0148}
0x26f6…2714 Head {h00=0x001a, h01=0x0015, text=»* NETWORK SUB-ADDRESS «, t00=0x0018, t01=0x0182}
0x2714…271e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0010}
0x271e…275a Head {h00=0x0038, h01=0x0034, text=»****************************************************«, t00=0x0019, t01=0x001a}
0x275a…2764 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0056}
0x2764…2780 Head {h00=0x0018, h01=0x0014, text=»* INPUT PARAMETERS :«, t00=0x0019, t01=0x0060}
0x2780…27a4 Head {h00=0x0020, h01=0x001c, text=»* A1 = SYMBOLIC DTE ADDRESS«, t00=0x0019, t01=0x007c}
0x27a4…27c8 Head {h00=0x0020, h01=0x001b, text=»* A2 = NETWORK SUB-ADDRESS «, t00=0x0019, t01=0x00a0}
0x27c8…27f4 Head {h00=0x0028, h01=0x0023, text=»* A3 = TYPE (ONLY IF GETSST ENTRY) «, t00=0x0019, t01=0x00c4}
0x27f4…27fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x00f0}
0x27fe…281a Head {h00=0x0018, h01=0x0014, text=»* CALLING SEQUENCE :«, t00=0x0019, t01=0x00fa}
0x281a…2832 Head {h00=0x0014, h01=0x0010, text=»* CF A15,GETSSA«, t00=0x0019, t01=0x0116}
0x2832…284a Head {h00=0x0014, h01=0x0010, text=»* CF A15,GETSST«, t00=0x0019, t01=0x012e}
0x284a…2854 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0146}
0x2854…2872 Head {h00=0x001a, h01=0x0015, text=»* OUTPUT PARAMETERS : «, t00=0x0019, t01=0x0150}
0x2872…28b0 Head {h00=0x003a, h01=0x0050, text=»* A1 = SYMBOLIC SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC«, t00=0x0019, t01=0x016e}
0x28b0…28e8 Head {h00=0x0034, h01=0x0050, text=»* DTE ADDRESS,TYPE OR NETWORK SUB-ADDRESS)«, t00=0x001a, t01=0x001c}
0x28e8…2930 Head {h00=0x0044, h01=0x003f, text=»* A3 = TYPE INDEX (ONLY IF GETSST ENTRY,OTHERWISE NOT CHANGED) «, t00=0x001a, t01=0x0054}
0x2930…293a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x009c}
0x293a…294e Head {h00=0x0010, h01=0x000c, text=»GETSST EQU *«, t00=0x001a, t01=0x00a6}
0x294e…2964 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001a, t01=0x00ba}
0x2964…2976 Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x001a, t01=0x00d0}
0x2976…2982 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00e2}
0x2982…2998 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001a, t01=0x00ee}
0x2998…29ae Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001a, t01=0x0104}
0x29ae…29d4 Head {h00=0x0022, h01=0x001d, text=» CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x001a, t01=0x011a}
0x29d4…29e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0140}
0x29e0…29f6 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001a, t01=0x014c}
0x29f6…2a08 Head {h00=0x000e, h01=0x000a, text=» RF GET300«, t00=0x001a, t01=0x0162}
0x2a08…2a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0174}
0x2a12…2a20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x017e}
0x2a20…2a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018c}
0x2a2a…2a3e Head {h00=0x0010, h01=0x000c, text=»GETSSA EQU *«, t00=0x001b, t01=0x0008}
0x2a3e…2a54 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001b, t01=0x001c}
0x2a54…2a66 Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x001b, t01=0x0032}
0x2a66…2a72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0044}
0x2a72…2a88 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001b, t01=0x0050}
0x2a88…2a9e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001b, t01=0x0066}
0x2a9e…2ab4 Head {h00=0x0012, h01=0x000d, text=» CF A15,SAVE8 «, t00=0x001b, t01=0x007c}
0x2ab4…2ac0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0092}
0x2ac0…2ad6 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001b, t01=0x009e}
0x2ad6…2afe Head {h00=0x0024, h01=0x0020, text=» SUR A3,A3 CLEAR TYPE INDICATION«, t00=0x001b, t01=0x00b4}
0x2afe…2b12 Head {h00=0x0010, h01=0x000c, text=»GET300 EQU *«, t00=0x001b, t01=0x00dc}
0x2b12…2b38 Head {h00=0x0022, h01=0x001e, text=» LDK A4,SS SET ENTRY INDICATOR«, t00=0x001b, t01=0x00f0}
0x2b38…2b4c Head {h00=0x0010, h01=0x0050, text=»GET305 EQU *«, t00=0x001b, t01=0x0116}
0x2b4c…2b62 Head {h00=0x0012, h01=0x000e, text=» RB GET100 RUN«, t00=0x001b, t01=0x012a}
0x2b62…2b6c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0140}
0x2b6c…2b84 Head {h00=0x0014, h01=0x000f, text=»* TEST ON ENTRY «, t00=0x001b, t01=0x014a}
0x2b84…2b8e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0162}
0x2b8e…2ba2 Head {h00=0x0010, h01=0x000c, text=»GET310 EQU *«, t00=0x001b, t01=0x016c}
0x2ba2…2bc8 Head {h00=0x0022, h01=0x0050, text=» ADR A6,A7 GET # OF ENTRIES IN«, t00=0x001b, t01=0x0180}
0x2bc8…2bee Head {h00=0x0022, h01=0x0050, text=» LCR A7,A6 ..SUB-ADDRESS TABLE«, t00=0x001c, t01=0x0016}
0x2bee…2c00 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x001c, t01=0x003c}
0x2c00…2c2e Head {h00=0x002a, h01=0x0050, text=» RF(NZ) GET410 NOT GETSSA/GETSST ENTRY«, t00=0x001c, t01=0x004e}
0x2c2e…2c38 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x007c}
0x2c38…2c5a Head {h00=0x001e, h01=0x001a, text=»* GET SYMBOLIC SUB-ADDRESS«, t00=0x001c, t01=0x0086}
0x2c5a…2c64 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x00a8}
0x2c64…2c9c Head {h00=0x0034, h01=0x0050, text=» LDK A1,/30 RESET SYMBOLIC SUB-ADDRESS INDICATOR«, t00=0x001c, t01=0x00b2}
0x2c9c…2cb0 Head {h00=0x0010, h01=0x000c, text=»GET320 EQU *«, t00=0x001c, t01=0x00ea}
0x2cb0…2ccc Head {h00=0x0018, h01=0x0014, text=» ADK A6,1 NEXT ENTRY«, t00=0x001c, t01=0x00fe}
0x2ccc…2cfc Head {h00=0x002c, h01=0x0028, text=» CCR A2,A6 COMPARE NETWORK SUB-ADDRESSES«, t00=0x001c, t01=0x011a}
0x2cfc…2d18 Head {h00=0x0018, h01=0x0050, text=» RB(E) GET170 EXIT !«, t00=0x001c, t01=0x014a}
0x2d18…2d44 Head {h00=0x0028, h01=0x0023, text=» ADK A1,1 STEP SYMBOLIC SUB-ADDRESS «, t00=0x001c, t01=0x0166}
0x2d44…2d64 (29, 0, 398) Head {h00=0x001c, h01=0x0050, text=» SUK A7,1 MORE ENTRIES ?«, t00=0x001d, t01=0x0004}
0x2d64…2d7e Head {h00=0x0016, h01=0x0011, text=» RB(P) GET320 YES «, t00=0x001d, t01=0x0024}
0x2d7e…2d8a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x003e}
0x2d8a…2d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004a}
0x2d94…2da2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0054}
0x2da2…2dac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0062}
0x2dac…2dca Head {h00=0x001a, h01=0x0016, text=»* INCORRECT PARAMETERS«, t00=0x001d, t01=0x006c}
0x2dca…2dd4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x008a}
0x2dd4…2dea Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=0 «, t00=0x001d, t01=0x0094}
0x2dea…2e0c Head {h00=0x001e, h01=0x0050, text=»GETSNA EQU * DUMMY ENTRIES«, t00=0x001d, t01=0x00aa}
0x2e0c…2e20 Head {h00=0x0010, h01=0x0050, text=»GETSNT EQU *«, t00=0x001d, t01=0x00cc}
0x2e20…2e34 Head {h00=0x0010, h01=0x0050, text=»GETSSA EQU *«, t00=0x001d, t01=0x00e0}
0x2e34…2e48 Head {h00=0x0010, h01=0x0050, text=»GETSST EQU *«, t00=0x001d, t01=0x00f4}
0x2e48…2e54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0108}
0x2e54…2e68 Head {h00=0x0010, h01=0x000c, text=»GET330 EQU *«, t00=0x001d, t01=0x0114}
0x2e68…2e8c Head {h00=0x0020, h01=0x001c, text=» LDKL A1,-1 ERROR INDICATION«, t00=0x001d, t01=0x0128}
0x2e8c…2ea4 Head {h00=0x0014, h01=0x0050, text=» RB GET180 EXIT «, t00=0x001d, t01=0x014c}
0x2ea4…2eae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0164}
0x2eae…2ec4 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001d, t01=0x016e}
0x2ec4…2ed2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001d, t01=0x0184}
0x2ed2…2edc (30, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0004}
0x2edc…2ee6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x000e}
0x2ee6…2f1c Head {h00=0x0032, h01=0x002e, text=»* ROUTINES TO GET A NETWORK SUB-ADDRESS FROM A«, t00=0x001e, t01=0x0018}
0x2f1c…2f54 Head {h00=0x0034, h01=0x0030, text=»* SYMBOLIC DTE ADDRESS (OF SPECIFIED TYPE) AND A«, t00=0x001e, t01=0x004e}
0x2f54…2f72 Head {h00=0x001a, h01=0x0016, text=»* SYMBOLIC SUB-ADDRESS«, t00=0x001e, t01=0x0086}
0x2f72…2f7c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x00a4}
0x2f7c…2fb8 Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x001e, t01=0x00ae}
0x2fb8…2fc2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x00ea}
0x2fc2…2fde Head {h00=0x0018, h01=0x0014, text=»* INPUT PARAMETERS :«, t00=0x001e, t01=0x00f4}
0x2fde…3002 Head {h00=0x0020, h01=0x001c, text=»* A1 = SYMBOLIC DTE ADDRESS«, t00=0x001e, t01=0x0110}
0x3002…3026 Head {h00=0x0020, h01=0x001c, text=»* A2 = SYMBOLIC SUB-ADDRESS«, t00=0x001e, t01=0x0134}
0x3026…3052 Head {h00=0x0028, h01=0x0023, text=»* A3 = TYPE (ONLY IF GETSNT ENTRY) «, t00=0x001e, t01=0x0158}
0x3052…305c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0184}
0x305c…307a Head {h00=0x001a, h01=0x0015, text=»* CALLING SEQUENCES : «, t00=0x001e, t01=0x018e}
0x307a…3092 Head {h00=0x0014, h01=0x0010, text=»* CF A15,GETSNA«, t00=0x001f, t01=0x001c}
0x3092…30aa Head {h00=0x0014, h01=0x0010, text=»* CF A15,GETSNT«, t00=0x001f, t01=0x0034}
0x30aa…30b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x004c}
0x30b4…30d2 Head {h00=0x001a, h01=0x0015, text=»* OUTPUT PARAMETERS : «, t00=0x001f, t01=0x0056}
0x30d2…3110 Head {h00=0x003a, h01=0x0050, text=»* A1 = NETWORK SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC «, t00=0x001f, t01=0x0074}
0x3110…314a Head {h00=0x0036, h01=0x0050, text=»* DTE ADDRESS,TYPE OR SYMBOLIC SUB-ADDRESS) «, t00=0x001f, t01=0x00b2}
0x314a…3192 Head {h00=0x0044, h01=0x003f, text=»* A3 = TYPE INDEX (ONLY IF GETSNT ENTRY,OTHERWISE NOT CHANGED) «, t00=0x001f, t01=0x00ec}
0x3192…319c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0134}
0x319c…31b0 Head {h00=0x0010, h01=0x000c, text=»GETSNT EQU *«, t00=0x001f, t01=0x013e}
0x31b0…31c6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001f, t01=0x0152}
0x31c6…31e8 Head {h00=0x001e, h01=0x0050, text=» MSR 8,A15 SAVE REG. A1-A8«, t00=0x001f, t01=0x0168}
0x31e8…31f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x018a}
0x31f4…320a Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0020, t01=0x0008}
0x320a…3220 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0020, t01=0x001e}
0x3220…3246 Head {h00=0x0022, h01=0x001d, text=» CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x0020, t01=0x0034}
0x3246…3252 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x005a}
0x3252…3268 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0020, t01=0x0066}
0x3268…327a Head {h00=0x000e, h01=0x000a, text=» RF GET400«, t00=0x0020, t01=0x007c}
0x327a…3284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008e}
0x3284…3292 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0098}
0x3292…329c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00a6}
0x329c…32b0 Head {h00=0x0010, h01=0x0050, text=»GETSNA EQU *«, t00=0x0020, t01=0x00b0}
0x32b0…32c6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0020, t01=0x00c4}
0x32c6…32d8 Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0020, t01=0x00da}
0x32d8…32e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00ec}
0x32e4…32fa Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0020, t01=0x00f8}
0x32fa…3310 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0020, t01=0x010e}
0x3310…3326 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0020, t01=0x0124}
0x3326…3332 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x013a}
0x3332…3348 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0020, t01=0x0146}
0x3348…3370 Head {h00=0x0024, h01=0x001f, text=» SUR A3,A3 CLEAR TYPE INDICATOR «, t00=0x0020, t01=0x015c}
0x3370…3384 Head {h00=0x0010, h01=0x000c, text=»GET400 EQU *«, t00=0x0020, t01=0x0184}
0x3384…33aa Head {h00=0x0022, h01=0x001e, text=» LDK A4,SN SET ENTRY INDICATOR«, t00=0x0021, t01=0x0008}
0x33aa…33c0 Head {h00=0x0012, h01=0x0050, text=» RB GET305 RUN«, t00=0x0021, t01=0x002e}
0x33c0…33ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0044}
0x33ca…33ec Head {h00=0x001e, h01=0x0019, text=»* GET NETWORK SUB-ADDRESS «, t00=0x0021, t01=0x004e}
0x33ec…33f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0070}
0x33f6…340a Head {h00=0x0010, h01=0x000c, text=»GET410 EQU *«, t00=0x0021, t01=0x007a}
0x340a…3438 Head {h00=0x002a, h01=0x0050, text=» ANK A2,/FF ONLY ONE BYTE SIGNIFICANT «, t00=0x0021, t01=0x008e}
0x3438…344c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/2F «, t00=0x0021, t01=0x00bc}
0x344c…3480 Head {h00=0x0030, h01=0x0050, text=» RB(NP) GET330 INVALID SYMBOLIC SUB-ADDRESS «, t00=0x0021, t01=0x00d0}
0x3480…34b6 Head {h00=0x0032, h01=0x0050, text=» SUR A7,A2 SYMBOLIC SUB-ADDRESS WITHIN TABLE ?«, t00=0x0021, t01=0x0104}
0x34b6…34ce Head {h00=0x0014, h01=0x0010, text=» RB(N) GET330 NO«, t00=0x0021, t01=0x013a}
0x34ce…3504 Head {h00=0x0032, h01=0x0050, text=» ADR A6,A2 SET POINTER(INDEX STARTS WITH /30) «, t00=0x0021, t01=0x0152}
0x3504…352e Head {h00=0x0026, h01=0x0050, text=» LCR A1,A6 GET NETWORK SUB-ADDRESS«, t00=0x0021, t01=0x0188}
0x352e…3546 Head {h00=0x0014, h01=0x0050, text=» RB GET170 EXIT «, t00=0x0022, t01=0x0022}
0x3546…3550 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x003a}
0x3550…355c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0044}
0x355c…356a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0050}
0x356a…3580 Head {h00=0x0012, h01=0x0050, text=»* TO END =1 «, t00=0x0022, t01=0x005e}
0x3580…358a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0074}
0x358a…35a0 Head {h00=0x0012, h01=0x0050, text=»* D E F D T E«, t00=0x0022, t01=0x007e}
0x35a0…35aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0094}
0x35aa…35ec Head {h00=0x003e, h01=0x0050, text=»* RE-DEFINES ALREADY EXISTING DTE-NUMBERS IN DC DTE-TABLE«, t00=0x0022, t01=0x009e}
0x35ec…3628 Head {h00=0x0038, h01=0x0050, text=»* IN THE SYSTEM-AREA POINTED TO BY S C T D C T. - «, t00=0x0022, t01=0x00e0}
0x3628…366c Head {h00=0x0040, h01=0x0050, text=»* - THE OLD NETWORKADDRESS(ES) IS (ARE) SUBSTITUTED BY THE «, t00=0x0022, t01=0x011c}
0x366c…36b2 Head {h00=0x0042, h01=0x0050, text=»* NEW ONE(S) IN THE BUFFER GIVEN IN THE CALL TO D E F D T E «, t00=0x0022, t01=0x0160}
0x36b2…36c4 Head {h00=0x000e, h01=0x0050, text=»* (AKAN) «, t00=0x0023, t01=0x0016}
0x36c4…36ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0028}
0x36ce…371e Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0023, t01=0x0032}
0x371e…3728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0082}
0x3728…3744 Head {h00=0x0018, h01=0x0050, text=»* CALLING SEQUENCE: «, t00=0x0023, t01=0x008c}
0x3744…374e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a8}
0x374e…3770 Head {h00=0x001e, h01=0x0050, text=»* CF A15,DEFDTE «, t00=0x0023, t01=0x00b2}
0x3770…377a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d4}
0x377a…3784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00de}
0x3784…37a0 Head {h00=0x0018, h01=0x0050, text=»* INPUT PARAMETERS: «, t00=0x0023, t01=0x00e8}
0x37a0…37aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0104}
0x37aa…37e2 Head {h00=0x0034, h01=0x0050, text=»* A1 = ADDRESS TO USER-TASK NUMBERTABLE «, t00=0x0023, t01=0x010e}
0x37e2…3812 Head {h00=0x002c, h01=0x0050, text=»* A2 = USER BUFFER ADDR. (TEMP.)«, t00=0x0023, t01=0x0146}
0x3812…3836 Head {h00=0x0020, h01=0x0050, text=»* A4 = BUFFER LENGTH«, t00=0x0023, t01=0x0176}
0x3836…3858 Head {h00=0x001e, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0024, t01=0x000a}
0x3858…3862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002c}
0x3862…387e Head {h00=0x0018, h01=0x0050, text=»* OUTPUT PARAMETERS:«, t00=0x0024, t01=0x0036}
0x387e…3888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0052}
0x3888…38be Head {h00=0x0032, h01=0x0050, text=»* A1 = 0 SUCCESSFUL REQUEST COMPLETION«, t00=0x0024, t01=0x005c}
0x38be…38fa Head {h00=0x0038, h01=0x0050, text=»* A1 = 1 ENTRY LENGTH ERROR, BUFFER OVERFLOW«, t00=0x0024, t01=0x0092}
0x38fa…392e Head {h00=0x0030, h01=0x0050, text=»* A1 =-1 INVALID SYMB DTE ADDR/TYPE «, t00=0x0024, t01=0x00ce}
0x392e…3938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0102}
0x3938…3988 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0024, t01=0x010c}
0x3988…3996 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x015c}
0x3996…399e Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x016a}
0x399e…39b2 Head {h00=0x0010, h01=0x0050, text=»DEFDTE EQU *«, t00=0x0024, t01=0x0172}
0x39b2…39c8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0024, t01=0x0186}
0x39c8…39e8 Head {h00=0x001c, h01=0x0050, text=» MSR 8,A15 SAVE 8-REG'S «, t00=0x0025, t01=0x000c}
0x39e8…39f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x002c}
0x39f4…3a0a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0025, t01=0x0038}
0x3a0a…3a2c Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8-REG'S«, t00=0x0025, t01=0x004e}
0x3a2c…3a38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0070}
0x3a38…3a46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x007c}
0x3a46…3a4e Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x008a}
0x3a4e…3a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0092}
0x3a58…3a8e Head {h00=0x0032, h01=0x0050, text=»* MOVE HEAD OF USER BUFFER TO WORKAREA (TEMP.)«, t00=0x0025, t01=0x009c}
0x3a8e…3a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d2}
0x3a98…3aa0 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00dc}
0x3aa0…3ab2 Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0025, t01=0x00e4}
0x3ab2…3ae0 Head {h00=0x002a, h01=0x0050, text=» LD A5,DWTTAB,A6 TTAB-ADDRESS OF TASK «, t00=0x0025, t01=0x00f6}
0x3ae0…3b16 Head {h00=0x0032, h01=0x0050, text=» CF A15,MOVUS MOVE FROM USER- TO SYSTEM- AREA «, t00=0x0025, t01=0x0124}
0x3b16…3b3e Head {h00=0x0024, h01=0x0050, text=» LDR A7,A1 SAVE USER BUFFER-ADDR«, t00=0x0025, t01=0x015a}
0x3b3e…3b50 Head {h00=0x000e, h01=0x0050, text=» SUK A2,6 «, t00=0x0025, t01=0x0182}
0x3b50…3b72 (38, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDR A8,A2 POINTER TO HEAD«, t00=0x0026, t01=0x0004}
0x3b72…3b98 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A2 GET SYMB. DTE-ADDR«, t00=0x0026, t01=0x0026}
0x3b98…3bb0 Head {h00=0x0014, h01=0x0050, text=» LC A3,PCHAR,A8 «, t00=0x0026, t01=0x004c}
0x3bb0…3bda Head {h00=0x0026, h01=0x0050, text=» ST A3,CODE,A8 MOVE ASCII/BCD-FLAG«, t00=0x0026, t01=0x0064}
0x3bda…3bee Head {h00=0x0010, h01=0x0050, text=» LDK A3,/FF «, t00=0x0026, t01=0x008e}
0x3bee…3c22 Head {h00=0x0030, h01=0x0050, text=» ANS A3,ELEN,A8 STRIP FLAG FROM ENTRY LENGTH«, t00=0x0026, t01=0x00a2}
0x3c22…3c38 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,'RC' «, t00=0x0026, t01=0x00d6}
0x3c38…3c6e Head {h00=0x0032, h01=0x0050, text=» CF A15,FNDDNT GET POINTER TO FIRST NETW NUMB «, t00=0x0026, t01=0x00ec}
0x3c6e…3ca2 Head {h00=0x0030, h01=0x0050, text=» ABL(N) GET180 INVALID SYMB DTE-ADDR OR TYPE«, t00=0x0026, t01=0x0122}
0x3ca2…3cb8 Head {h00=0x0012, h01=0x0050, text=» CW A1,ELEN,A8«, t00=0x0026, t01=0x0156}
0x3cb8…3ce6 Head {h00=0x002a, h01=0x0050, text=» ABL(NE) DEFD90 ENTRY LENGTHS DIFFER !«, t00=0x0026, t01=0x016c}
0x3ce6…3d14 Head {h00=0x002a, h01=0x0050, text=» STR A2,A8 SAVE DC-TABLE ADDR AT HEAD «, t00=0x0027, t01=0x000a}
0x3d14…3d2c Head {h00=0x0014, h01=0x0050, text=» LD A2,NUME,A8 *«, t00=0x0027, t01=0x0038}
0x3d2c…3d56 Head {h00=0x0026, h01=0x0050, text=» NGR A2,A2 * NEGATE NO. OF ENTRIES«, t00=0x0027, t01=0x0050}
0x3d56…3d6e Head {h00=0x0014, h01=0x0050, text=» ST A2,NUME,A8 *«, t00=0x0027, t01=0x007a}
0x3d6e…3d80 Head {h00=0x000e, h01=0x0050, text=» SUK A4,10«, t00=0x0027, t01=0x0092}
0x3d80…3db2 Head {h00=0x002e, h01=0x0050, text=» ST A4,BLEN,A8 SAVE LENGTH OF WORK-BUFFER «, t00=0x0027, t01=0x00a4}
0x3db2…3dd2 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A1 ENTRY LENGTH «, t00=0x0027, t01=0x00d6}
0x3dd2…3df8 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A7 USER BUFFER POINTER«, t00=0x0027, t01=0x00f6}
0x3df8…3e06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x011c}
0x3e06…3e0e Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x012a}
0x3e0e…3e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0132}
0x3e18…3e52 Head {h00=0x0036, h01=0x0050, text=»* MOVE PORTION OF USER NUMBER-TABLE TO WORK-BUFFER«, t00=0x0027, t01=0x013c}
0x3e52…3e5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0176}
0x3e5c…3e64 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0180}
0x3e64…3e78 Head {h00=0x0010, h01=0x0050, text=»DEFD05 EQU *«, t00=0x0027, t01=0x0188}
0x3e78…3ea2 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 SET "FIRST NIBBLE"-FLAG «, t00=0x0028, t01=0x000c}
0x3ea2…3eb6 Head {h00=0x0010, h01=0x0050, text=»DEFD10 EQU *«, t00=0x0028, t01=0x0036}
0x3eb6…3ec8 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0028, t01=0x004a}
0x3ec8…3ee8 Head {h00=0x001c, h01=0x0050, text=» RF(P) DEFD15 OLD ENTRY «, t00=0x0028, t01=0x005c}
0x3ee8…3efc Head {h00=0x0010, h01=0x0050, text=» IM NUME,A8 «, t00=0x0028, t01=0x007c}
0x3efc…3f22 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DEFD80 NO MORE ENTRIES «, t00=0x0028, t01=0x0090}
0x3f22…3f46 Head {h00=0x0020, h01=0x0050, text=» LDK A2,7 * STEP POINTER TO «, t00=0x0028, t01=0x00b6}
0x3f46…3f66 Head {h00=0x001c, h01=0x0050, text=» ADR* A2,A8 * NEXT ENTRY«, t00=0x0028, t01=0x00da}
0x3f66…3f78 Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x0028, t01=0x00fa}
0x3f78…3fa2 Head {h00=0x0026, h01=0x0050, text=» STR A2,A8 REM. ENTRY ON WORD ADDR«, t00=0x0028, t01=0x010c}
0x3fa2…3fb6 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A2 «, t00=0x0028, t01=0x0136}
0x3fb6…3fda Head {h00=0x0020, h01=0x0050, text=» SRL A7,8 KEEP ENTRY LENGTH «, t00=0x0028, t01=0x014a}
0x3fda…3ff0 Head {h00=0x0012, h01=0x0050, text=» CC A7,ELEN,A8«, t00=0x0028, t01=0x016e}
0x3ff0…401c Head {h00=0x0028, h01=0x0050, text=» RF(NE) DEFD90 ENTRY LENGTHS DIFFER «, t00=0x0028, t01=0x0184}
0x401c…4030 Head {h00=0x0010, h01=0x0050, text=» LD A7,-7,A2«, t00=0x0029, t01=0x0020}
0x4030…4066 Head {h00=0x0032, h01=0x0050, text=» RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE «, t00=0x0029, t01=0x0034}
0x4066…406e Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x006a}
0x406e…4082 Head {h00=0x0010, h01=0x0050, text=»DEFD15 EQU *«, t00=0x0029, t01=0x0072}
0x4082…4094 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A3«, t00=0x0029, t01=0x0086}
0x4094…40a6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A8«, t00=0x0029, t01=0x0098}
0x40a6…40d0 Head {h00=0x0026, h01=0x0050, text=» ADK A2,10 FIX TO-ADDRESS FOR MOVE«, t00=0x0029, t01=0x00aa}
0x40d0…40fc Head {h00=0x0028, h01=0x0050, text=» LD A3,BLEN,A8 LENGTH OF WORK-BUFFER«, t00=0x0029, t01=0x00d4}
0x40fc…411e Head {h00=0x001e, h01=0x0050, text=» LD A5,DWTTAB,A6 TTAB-ADDR«, t00=0x0029, t01=0x0100}
0x411e…414c Head {h00=0x002a, h01=0x0050, text=» CF A15,MOVUS MOVE FROM USER TO SYSTEM«, t00=0x0029, t01=0x0122}
0x414c…4184 Head {h00=0x0034, h01=0x0050, text=» SU A2,BLEN,A8 POINT AT TOP OF WORK-BUFFER AGAIN«, t00=0x0029, t01=0x0150}
0x4184…4196 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0029, t01=0x0188}
0x4196…41bc Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DEFD20 STILL OLD ENTRY«, t00=0x002a, t01=0x000a}
0x41bc…41e0 Head {h00=0x0020, h01=0x0050, text=» LC A3,ELEN,A8 ENTRY LENGTH «, t00=0x002a, t01=0x0030}
0x41e0…41f4 Head {h00=0x0010, h01=0x0050, text=»DEFD20 EQU *«, t00=0x002a, t01=0x0054}
0x41f4…420a Head {h00=0x0012, h01=0x0050, text=» LD A7,CODE,A8«, t00=0x002a, t01=0x0068}
0x420a…4234 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DEFD50 BCD-NUMBERS TO MOVE «, t00=0x002a, t01=0x007e}
0x4234…425e Head {h00=0x0026, h01=0x0050, text=» LD A7,BLEN,A8 WORK-BUFFER LENGTH «, t00=0x002a, t01=0x00a8}
0x425e…426c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00d2}
0x426c…4274 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00e0}
0x4274…427e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e8}
0x427e…42b6 Head {h00=0x0034, h01=0x0050, text=»* CONVERT ASCII-NUMBERS TO BCD WHILE MOVING INTO«, t00=0x002a, t01=0x00f2}
0x42b6…42d4 Head {h00=0x001a, h01=0x0050, text=»* DC DTE-TABLE ENTRIES«, t00=0x002a, t01=0x012a}
0x42d4…42de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0148}
0x42de…42e6 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0152}
0x42e6…42fa Head {h00=0x0010, h01=0x0050, text=»DEFD25 EQU *«, t00=0x002a, t01=0x015a}
0x42fa…4316 Head {h00=0x0018, h01=0x0050, text=» LCR A5,A2 GET ASCII«, t00=0x002a, t01=0x016e}
0x4316…432c Head {h00=0x0012, h01=0x0050, text=» CCK A5,/2000 «, t00=0x002a, t01=0x018a}
0x432c…434e Head {h00=0x001e, h01=0x0050, text=» RF(NE) DEFD30 NO "SPACE" «, t00=0x002b, t01=0x0010}
0x434e…436a Head {h00=0x0018, h01=0x0050, text=» LDK A5,/0F FIX PAD «, t00=0x002b, t01=0x0032}
0x436a…437e Head {h00=0x0010, h01=0x0050, text=»DEFD30 EQU *«, t00=0x002b, t01=0x004e}
0x437e…4394 Head {h00=0x0012, h01=0x0050, text=» CCK A5,/2E00 «, t00=0x002b, t01=0x0062}
0x4394…43b2 Head {h00=0x001a, h01=0x0050, text=» RF(NE) DEFD35 NO "." «, t00=0x002b, t01=0x0078}
0x43b2…43d6 Head {h00=0x0020, h01=0x0050, text=» LDK A5,/0E ABBR CALL PREFIX«, t00=0x002b, t01=0x0096}
0x43d6…43ea Head {h00=0x0010, h01=0x0050, text=»DEFD35 EQU *«, t00=0x002b, t01=0x00ba}
0x43ea…440e Head {h00=0x0020, h01=0x0050, text=» ANK A5,/0F MASK ONE NIBBLE «, t00=0x002b, t01=0x00ce}
0x440e…4422 Head {h00=0x0010, h01=0x0050, text=» ADK A2,1 * «, t00=0x002b, t01=0x00f2}
0x4422…4450 Head {h00=0x002a, h01=0x0050, text=» SUK A3,1 * BUMP POINTER AND COUNTERS «, t00=0x002b, t01=0x0106}
0x4450…4464 Head {h00=0x0010, h01=0x0050, text=» SUK A7,1 * «, t00=0x002b, t01=0x0134}
0x4464…4492 Head {h00=0x002a, h01=0x0050, text=» NGR A4,A4 LEFT/RIGHT NIBBLE FLIP-FLOP«, t00=0x002b, t01=0x0148}
0x4492…44b6 Head {h00=0x0020, h01=0x0050, text=» RF(P) DEFD45 SECOND NIBBLE «, t00=0x002b, t01=0x0176}
0x44b6…44c8 Head {h00=0x000e, h01=0x0050, text=» SLL A5,4 «, t00=0x002c, t01=0x000a}
0x44c8…44f0 Head {h00=0x0024, h01=0x0050, text=» SC A5,PCHAR,A8 SAVE NIBBLE TEMP«, t00=0x002c, t01=0x001c}
0x44f0…4502 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x002c, t01=0x0044}
0x4502…4532 Head {h00=0x002c, h01=0x0050, text=» RB(Z) DEFD10 END OF BUFFER - MOVE AGAIN«, t00=0x002c, t01=0x0056}
0x4532…4546 Head {h00=0x0010, h01=0x0050, text=»DEFD40 EQU *«, t00=0x002c, t01=0x0086}
0x4546…4558 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x002c, t01=0x009a}
0x4558…457e Head {h00=0x0022, h01=0x0050, text=» RB(P) DEFD25 NOT END OF ENTRY«, t00=0x002c, t01=0x00ac}
0x457e…458c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00d2}
0x458c…4594 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x00e0}
0x4594…45a8 Head {h00=0x0010, h01=0x0050, text=»DEFD45 EQU *«, t00=0x002c, t01=0x00e8}
0x45a8…45bc Head {h00=0x0010, h01=0x0050, text=» SLL A5,8 * «, t00=0x002c, t01=0x00fc}
0x45bc…45f4 Head {h00=0x0034, h01=0x0050, text=» OR A5,PCHAR,A8 * MERGE LAST CHAR WITH PREVIOUS «, t00=0x002c, t01=0x0110}
0x45f4…4608 Head {h00=0x0010, h01=0x0050, text=» SRL A5,8 * «, t00=0x002c, t01=0x0148}
0x4608…4632 Head {h00=0x0026, h01=0x0050, text=» SC* A5,0,A8 SAVE IN DC DTE-TABLE «, t00=0x002c, t01=0x015c}
0x4632…4644 Head {h00=0x000e, h01=0x0050, text=» IMR A8 * «, t00=0x002c, t01=0x0186}
0x4644…4656 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x002d, t01=0x0008}
0x4656…467a Head {h00=0x0020, h01=0x0050, text=» RB(Z) DEFD05 END OF BUFFER «, t00=0x002d, t01=0x001a}
0x467a…468c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x002d, t01=0x003e}
0x468c…46b2 Head {h00=0x0022, h01=0x0050, text=» RB(P) DEFD25 NOT END OF ENTRY«, t00=0x002d, t01=0x0050}
0x46b2…46bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0076}
0x46bc…46d2 Head {h00=0x0012, h01=0x0050, text=»* END OF ENTRY«, t00=0x002d, t01=0x0080}
0x46d2…46dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0096}
0x46dc…46e4 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x00a0}
0x46e4…46f8 Head {h00=0x0010, h01=0x0050, text=» IM NUME,A8 «, t00=0x002d, t01=0x00a8}
0x46f8…471e Head {h00=0x0022, h01=0x0050, text=» RF(Z) DEFD80 NO MORE ENTRIES «, t00=0x002d, t01=0x00bc}
0x471e…4742 Head {h00=0x0020, h01=0x0050, text=» LDK A5,7 * STEP POINTER TO «, t00=0x002d, t01=0x00e2}
0x4742…4762 Head {h00=0x001c, h01=0x0050, text=» ADR* A5,A8 * NEXT ENTRY«, t00=0x002d, t01=0x0106}
0x4762…4774 Head {h00=0x000e, h01=0x0050, text=» ORK A5,1 «, t00=0x002d, t01=0x0126}
0x4774…479e Head {h00=0x0026, h01=0x0050, text=» STR A5,A8 REM. ENTRY - WORD ADDR «, t00=0x002d, t01=0x0138}
0x479e…47b2 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A5 «, t00=0x002d, t01=0x0162}
0x47b2…47d6 Head {h00=0x0020, h01=0x0050, text=» SRL A3,8 KEEP ENTRY LENGTH «, t00=0x002d, t01=0x0176}
0x47d6…47ec Head {h00=0x0012, h01=0x0050, text=» CC A3,ELEN,A8«, t00=0x002e, t01=0x000a}
0x47ec…4814 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DEFD90 LENGTHS DIFFER ! «, t00=0x002e, t01=0x0020}
0x4814…4828 Head {h00=0x0010, h01=0x0050, text=» LD A5,-7,A5«, t00=0x002e, t01=0x0048}
0x4828…485e Head {h00=0x0032, h01=0x0050, text=» RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE «, t00=0x002e, t01=0x005c}
0x485e…4880 Head {h00=0x001e, h01=0x0050, text=» RB DEFD25 NEXT ENTRY MOVE«, t00=0x002e, t01=0x0092}
0x4880…488e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00b4}
0x488e…4896 Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00c2}
0x4896…48a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ca}
0x48a0…48cc Head {h00=0x0028, h01=0x0050, text=»* MOVE BCD-NUMBER INTO DC DTE-TABLE «, t00=0x002e, t01=0x00d4}
0x48cc…48d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0100}
0x48d6…48de Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x010a}
0x48de…48f2 Head {h00=0x0010, h01=0x0050, text=»DEFD50 EQU *«, t00=0x002e, t01=0x0112}
0x48f2…491c Head {h00=0x0026, h01=0x0050, text=» LD A7,BLEN,A8 WORK-BUFFER LENGTH «, t00=0x002e, t01=0x0126}
0x491c…4930 Head {h00=0x0010, h01=0x0050, text=»DEFD55 EQU *«, t00=0x002e, t01=0x0150}
0x4930…495a Head {h00=0x0026, h01=0x0050, text=» LCR A5,A2 GET TWO BCD'S (NIBBLES)«, t00=0x002e, t01=0x0164}
0x495a…4986 Head {h00=0x0028, h01=0x0050, text=» SC* A5,0,A8 SAVE'M IN DC DTE-TABLE «, t00=0x002e, t01=0x018e}
0x4986…4998 Head {h00=0x000e, h01=0x0050, text=» IMR A8 * «, t00=0x002f, t01=0x002a}
0x4998…49ac Head {h00=0x0010, h01=0x0050, text=» ADK A2,1 * «, t00=0x002f, t01=0x003c}
0x49ac…49da Head {h00=0x002a, h01=0x0050, text=» SUK A3,2 * BUMP POINTER AND COUNTERS «, t00=0x002f, t01=0x0050}
0x49da…49ee Head {h00=0x0010, h01=0x0050, text=» SUK A7,1 * «, t00=0x002f, t01=0x007e}
0x49ee…4a12 Head {h00=0x0020, h01=0x0050, text=» RB(Z) DEFD10 END OF BUFFER «, t00=0x002f, t01=0x0092}
0x4a12…4a24 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x002f, t01=0x00b6}
0x4a24…4a4a Head {h00=0x0022, h01=0x0050, text=» RB(P) DEFD55 NOT END OF ENTRY«, t00=0x002f, t01=0x00c8}
0x4a4a…4a5e Head {h00=0x0010, h01=0x0050, text=» IM NUME,A8 «, t00=0x002f, t01=0x00ee}
0x4a5e…4a84 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DEFD80 NO MORE ENTRIES «, t00=0x002f, t01=0x0102}
0x4a84…4aa8 Head {h00=0x0020, h01=0x0050, text=» LDK A5,7 * STEP POINTER TO «, t00=0x002f, t01=0x0128}
0x4aa8…4ac8 Head {h00=0x001c, h01=0x0050, text=» ADR* A5,A8 * NEXT ENTRY«, t00=0x002f, t01=0x014c}
0x4ac8…4ada Head {h00=0x000e, h01=0x0050, text=» ORK A5,1 «, t00=0x002f, t01=0x016c}
0x4ada…4b04 Head {h00=0x0026, h01=0x0050, text=» STR A5,A8 REM. ENTRY - WORD ADDR «, t00=0x002f, t01=0x017e}
0x4b04…4b18 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A5 «, t00=0x0030, t01=0x0018}
0x4b18…4b3c Head {h00=0x0020, h01=0x0050, text=» SRL A3,8 KEEP ENTRY LENGTH «, t00=0x0030, t01=0x002c}
0x4b3c…4b52 Head {h00=0x0012, h01=0x0050, text=» CC A3,ELEN,A8«, t00=0x0030, t01=0x0050}
0x4b52…4b7a Head {h00=0x0024, h01=0x0050, text=» RF(NE) DEFD90 LENGTHS DIFFER ! «, t00=0x0030, t01=0x0066}
0x4b7a…4b8e Head {h00=0x0010, h01=0x0050, text=» LD A5,-7,A5«, t00=0x0030, t01=0x008e}
0x4b8e…4bc4 Head {h00=0x0032, h01=0x0050, text=» RF(Z) DEFD90 NO MORE ENTRIES IN DC DTE-TABLE «, t00=0x0030, t01=0x00a2}
0x4bc4…4be6 Head {h00=0x001e, h01=0x0050, text=» RB DEFD55 NEXT ENTRY MOVE«, t00=0x0030, t01=0x00d8}
0x4be6…4bf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00fa}
0x4bf4…4bfc Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0108}
0x4bfc…4c10 Head {h00=0x0010, h01=0x0050, text=»DEFD80 EQU *«, t00=0x0030, t01=0x0110}
0x4c10…4c2c Head {h00=0x0018, h01=0x0050, text=» SUR A1,A1 RETURN OK«, t00=0x0030, t01=0x0124}
0x4c2c…4c3e Head {h00=0x000e, h01=0x0050, text=» RF DEFD95«, t00=0x0030, t01=0x0140}
0x4c3e…4c52 Head {h00=0x0010, h01=0x0050, text=»DEFD90 EQU *«, t00=0x0030, t01=0x0152}
0x4c52…4c78 Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INVALID ENTRY LENGTH«, t00=0x0030, t01=0x0166}
0x4c78…4c8c Head {h00=0x0010, h01=0x0050, text=»DEFD95 EQU *«, t00=0x0030, t01=0x018c}
0x4c8c…4cae Head {h00=0x001e, h01=0x0050, text=» ABL GET180 EXIT TO CALLER«, t00=0x0031, t01=0x0010}
0x4cae…4cba Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0031, t01=0x0032}
0x4cba…4cbe Head {h00=0x4004, h01=0x0000}
0x4cbe…4cc2 00 31 00 3e ┆ 1 >┆
0x4cc2…4cca (50, 1, 8) 20 04 00 00 00 32 00 04 ┆ 2 ┆
0x4cca…4d1a (51, 0, 400) 55 46 46 45 52 20 55 53 45 52 5c 20 00 72 01 76 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 36 20 00 73 00 14 00 38 00 50 5c 43 46 5c 41 31 35 2c 52 52 42 55 46 5c 52 45 4c 45 41 53 45 20 52 45 43 20 42 55 46 46 45 52 20 57 48 45 4e 20 44 43 3a 4d ┆UFFER USER r v P SUK A4,6 s 8 P CF A15,RRBUF RELEASE REC BUFFER WHEN DC:M┆
0x4d1a…4d6a 49 4e 20 44 4f 45 53 4e 27 54 00 73 00 26 00 0e 00 50 5c 52 46 5c 43 4f 4d 50 33 30 00 73 00 62 00 06 00 50 2a 20 00 73 00 74 00 1c 00 50 2a 20 46 52 41 4d 45 20 4f 55 54 20 4f 46 20 53 45 51 55 45 4e 43 45 20 00 73 00 7e 00 06 00 50 2a 20 ┆IN DOESN'T s & P RF COMP30 s b P* s t P* FRAME OUT OF SEQUENCE s ~ P* ┆
0x4d6a…4dba 00 73 00 9e 00 10 00 50 43 4f 4d 50 31 30 5c 45 51 55 5c 2a 00 73 00 a8 00 22 00 50 5c 4c 43 5c 41 31 2c 46 49 45 4c 44 31 2b 31 2c 41 37 5c 47 45 54 20 43 2d 46 49 45 4c 44 00 73 00 bc 00 22 00 50 5c 41 4e 4b 4c 5c 41 31 2c 50 4f 4c 46 49 ┆ s PCOMP10 EQU * s " P LC A1,FIELD1+1,A7 GET C-FIELD s " P ANKL A1,POLFI┆
0x4dba…4e0a 4e 5c 50 4f 4c 4c 2d 42 49 54 20 53 45 54 20 3f 00 73 00 e2 00 14 00 50 5c 52 46 28 5a 29 5c 43 4f 4d 50 31 31 5c 4e 4f 00 73 01 08 00 16 00 50 5c 49 4d 5c 50 46 46 4c 41 47 2c 41 37 5c 59 45 53 20 00 73 01 20 00 10 00 50 43 4f 4d 50 31 31 ┆N POLL-BIT SET ? s P RF(Z) COMP11 NO s P IM PFFLAG,A7 YES s PCOMP11┆
0x4e0a…4e5a 5c 45 51 55 5c 2a 00 73 01 3a 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 31 20 00 73 01 4e 00 2a 00 50 5c 53 54 5c 41 31 2c 49 4e 54 54 52 41 2c 41 37 5c 49 4e 54 45 52 52 55 50 54 20 54 52 41 4e 53 4d 49 54 54 45 52 00 73 01 60 00 12 00 50 5c 4c ┆ EQU * s : P LDK A1,1 s N * P ST A1,INTTRA,A7 INTERRUPT TRANSMITTER s ` P L┆
0x4e5a…4eaa (52, 0, 400) 44 4b 5c 41 31 2c 53 4e 44 52 45 4a 00 73 01 8e 00 0e 00 50 5c 52 46 5c 42 52 4d 35 35 58 00 74 00 14 00 0a 00 50 5c 45 4a 45 43 54 00 74 00 26 00 06 00 50 2a 20 00 74 00 34 00 06 00 50 2a 20 00 74 00 3e 00 28 00 50 2a 20 4e 4f 20 52 45 51 ┆DK A1,SNDREJ s P RF BRM55X t P EJECT t & P* t 4 P* t > ( P* NO REQ┆
0x4eaa…4efa 55 45 53 54 20 4f 4e 2c 51 55 45 55 45 20 49 4e 50 55 54 20 4d 45 53 53 41 47 45 20 00 74 00 48 00 06 00 50 2a 20 00 74 00 74 00 10 00 50 43 4f 4d 50 32 30 5c 45 51 55 5c 2a 00 74 00 7e 00 2a 00 50 5c 4c 44 4b 5c 41 32 2c 44 54 45 3a 51 49 ┆UEST ON,QUEUE INPUT MESSAGE t H P* t t PCOMP20 EQU * t ~ * P LDK A2,DTE:QI┆
0x4efa…4f4a 5c 47 45 54 20 50 52 4f 50 45 52 20 51 55 45 55 45 20 41 4e 43 48 4f 52 00 74 00 92 00 0e 00 50 5c 41 44 52 5c 41 32 2c 41 37 00 74 00 c0 00 1e 00 50 5c 4c 43 5c 41 31 2c 2b 36 2c 41 34 5c 47 45 54 20 54 43 20 49 44 45 4e 54 20 00 74 00 d2 ┆ GET PROPER QUEUE ANCHOR t P ADR A2,A7 t P LC A1,+6,A4 GET TC IDENT t ┆
0x4f4a…4f9a 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 46 20 00 74 00 f4 00 18 00 50 5c 53 54 5c 41 31 2c 2b 34 2c 41 34 5c 53 41 56 45 20 49 54 00 74 01 08 00 26 00 50 5c 43 46 5c 41 35 2c 51 52 42 55 46 5c 51 55 45 55 45 20 52 45 43 45 49 56 45 20 42 ┆ P ANK A1,/FF t P ST A1,+4,A4 SAVE IT t & P CF A5,QRBUF QUEUE RECEIVE B┆
0x4f9a…4fea 55 46 46 45 52 20 00 74 01 24 00 0a 00 50 5c 45 4a 45 43 54 00 74 01 4e 00 06 00 50 2a 20 00 74 01 5c 00 22 00 50 2a 20 50 52 4f 43 45 53 53 20 4f 55 54 50 55 54 20 44 45 50 45 4e 44 49 4e 47 20 4f 4e 20 00 74 01 66 00 1c 00 50 2a 20 20 46 ┆UFFER t $ P EJECT t N P* t " P* PROCESS OUTPUT DEPENDING ON t f P* F┆