|
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: 14276 (0x37c4)
Notes: pts_type(SC)
Names: »DCADDR.SC«
└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
└─⟦this⟧ »M:AF/DCADDR.SC«
IDENT DCADDR REL 11.0 81-01-26 870105041100 * *********************************************** * * 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 * ********************************************************** * EJECT * * ENTRIES * ENTRY FNDDNA ENTRY FNDDNT ENTRY GETDNA ENTRY GETDNT ENTRY GETDSA ENTRY GETDST ENTRY GETSNA ENTRY GETSNT ENTRY GETSSA ENTRY GETSST * * * 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 * EJECT * * CONDITIONAL ASSEMBLY PARAMETERS * X:A EQU 1 SUB-ADDRESSING SUPPORTED ? SUBADR EQU X:A 0=NO 1=YES * CPU852 EQU 0 EXTENDED INSTRUCTION SET IF ZERO * * * SYSTEM EQUATES * DS EQU 0 ENTRY INDICATORS DN EQU 1 SS EQU 2 SN EQU 3 * 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 * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DCADDR REL 11.0 81-01-26 870105041100«, t00=0x0000, t01=0x0004}
0x0034…003e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0038}
0x003e…0076 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0000, t01=0x0042}
0x0076…0080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007a}
0x0080…00a6 Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0084}
0x00a6…00b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00aa}
0x00b0…00e4 Head {h00=0x0030, h01=0x0050, text=»* DC:ADR : ADDRESS TRANSLATION ROUTINES FOR «, t00=0x0000, t01=0x00b4}
0x00e4…0112 Head {h00=0x002a, h01=0x0050, text=»* DATA COMMUNICATION SOFTWARE«, t00=0x0000, t01=0x00e8}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0154 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0000, t01=0x0120}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…016c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0162}
0x016c…0176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0170}
0x0176…01ae Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0000, t01=0x017a}
0x01ae…01b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01d6 Head {h00=0x001a, h01=0x0050, text=»* PROGRAM DESCRIPTION «, t00=0x0001, t01=0x002c}
0x01d6…01e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01e0…021e Head {h00=0x003a, h01=0x0050, text=»* FOLLOWING SUBROUTINES CAN BE FOUND IN THIS MODULE : «, t00=0x0001, t01=0x0054}
0x021e…0228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0228…025e Head {h00=0x0032, h01=0x0050, text=»* FNDDNA : FINDS A DTE NETWORK ADDRESS FROM A «, t00=0x0001, t01=0x009c}
0x025e…0286 Head {h00=0x0024, h01=0x0050, text=»* SYMBOLIC DTE ADDRESS «, t00=0x0001, t01=0x00d2}
0x0286…0290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…02c6 Head {h00=0x0032, h01=0x0050, text=»* FNDDNT : FINDS A DTE NETWORK ADDRESS FROM A «, t00=0x0001, t01=0x0104}
0x02c6…0302 Head {h00=0x0038, h01=0x0050, text=»* SYMBOLIC DTE ADDRESS OF A SPECIFIED TYPE «, t00=0x0001, t01=0x013a}
0x0302…030c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0176}
0x030c…0348 Head {h00=0x0038, h01=0x0050, text=»* GETDNA : TRANSLATES A SYMBOLIC DTE ADDRESS INTO A «, t00=0x0001, t01=0x0180}
0x0348…036e Head {h00=0x0022, h01=0x0050, text=»* DTE NETWORK ADDRESS«, t00=0x0002, t01=0x002c}
0x036e…0378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0052}
0x0378…03b2 Head {h00=0x0036, h01=0x0050, text=»* GETDNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A «, t00=0x0002, t01=0x005c}
0x03b2…03ee Head {h00=0x0038, h01=0x0050, text=»* SPECIFIED TYPE INTO A DTE NETWORK ADDRESS«, t00=0x0002, t01=0x0096}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f8…0432 Head {h00=0x0036, h01=0x0050, text=»* GETDSA : TRANSLATES A DTE NETWORK ADDRESS INTO A«, t00=0x0002, t01=0x00dc}
0x0432…045a Head {h00=0x0024, h01=0x0050, text=»* SYMBOLIC DTE ADDRESS «, t00=0x0002, t01=0x0116}
0x045a…0464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…0472 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0148}
0x0472…047c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047c…04be Head {h00=0x003e, h01=0x0050, text=»* GETDST : TRANSLATES A DTE NETWORK ADDRESS OF A SPECIFIED«, t00=0x0002, t01=0x0160}
0x04be…04f2 Head {h00=0x0030, h01=0x0050, text=»* TYPE INTO A SYMBOLIC DTE ADDRESS «, t00=0x0003, t01=0x0012}
0x04f2…04fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0046}
0x04fc…0536 Head {h00=0x0036, h01=0x0050, text=»* GETSNA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A«, t00=0x0003, t01=0x0050}
0x0536…0578 Head {h00=0x003e, h01=0x0050, text=»* SYMBOLIC SUB-ADDRESS INTO A NETWORK SUB-ADDRESS«, t00=0x0003, t01=0x008a}
0x0578…0582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00cc}
0x0582…05bc Head {h00=0x0036, h01=0x0050, text=»* GETSNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A «, t00=0x0003, t01=0x00d6}
0x05bc…05f8 Head {h00=0x0038, h01=0x0050, text=»* SPECIFIED TYPE AND A SYMBOLIC SUB-ADDRESS«, t00=0x0003, t01=0x0110}
0x05f8…0626 Head {h00=0x002a, h01=0x0050, text=»* INTO A NETWORK SUB-ADDRESS «, t00=0x0003, t01=0x014c}
0x0626…0630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017a}
0x0630…066a Head {h00=0x0036, h01=0x0050, text=»* GETSSA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A«, t00=0x0003, t01=0x0184}
0x066a…06ac Head {h00=0x003e, h01=0x0050, text=»* NETWORK SUB-ADDRESS INTO A SYMBOLIC SUB-ADDRESS«, t00=0x0004, t01=0x002e}
0x06ac…06b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0070}
0x06b6…06fa Head {h00=0x0040, h01=0x0050, text=»* GETSST : TRANSLATES A SYMBOLIC DTE ADDRESS OF A SPECIFIED «, t00=0x0004, t01=0x007a}
0x06fa…073c Head {h00=0x003e, h01=0x0050, text=»* TYPE AND A NETWORK SUB-ADDRESS INTO A SYMBOLIC «, t00=0x0004, t01=0x00be}
0x073c…075a Head {h00=0x001a, h01=0x0050, text=»* SUB-ADDRESS«, t00=0x0004, t01=0x0100}
0x075a…0764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x011e}
0x0764…07a6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x0128}
0x07a6…07b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016a}
0x07b0…07be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0174}
0x07be…07c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0182}
0x07c8…07da Head {h00=0x000e, h01=0x0050, text=»* ENTRIES «, t00=0x0004, t01=0x018c}
0x07da…07e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000e}
0x07e4…07fa Head {h00=0x0012, h01=0x0050, text=» ENTRY FNDDNA «, t00=0x0005, t01=0x0018}
0x07fa…0810 Head {h00=0x0012, h01=0x0050, text=» ENTRY FNDDNT «, t00=0x0005, t01=0x002e}
0x0810…0826 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETDNA «, t00=0x0005, t01=0x0044}
0x0826…083c Head {h00=0x0012, h01=0x0050, text=» ENTRY GETDNT «, t00=0x0005, t01=0x005a}
0x083c…0852 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETDSA «, t00=0x0005, t01=0x0070}
0x0852…0868 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETDST «, t00=0x0005, t01=0x0086}
0x0868…087e Head {h00=0x0012, h01=0x0050, text=» ENTRY GETSNA «, t00=0x0005, t01=0x009c}
0x087e…0894 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETSNT «, t00=0x0005, t01=0x00b2}
0x0894…08aa Head {h00=0x0012, h01=0x0050, text=» ENTRY GETSSA «, t00=0x0005, t01=0x00c8}
0x08aa…08c0 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETSST «, t00=0x0005, t01=0x00de}
0x08c0…08ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f4}
0x08ca…08d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fe}
0x08d4…08e8 Head {h00=0x0010, h01=0x0050, text=»* EXTERNALS «, t00=0x0005, t01=0x0108}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08f2…092e Head {h00=0x0038, h01=0x0050, text=» EXTRN SCTDCT DC TABLE DISP. IN SYSTEM CONTROL TABLE«, t00=0x0005, t01=0x0126}
0x092e…0962 Head {h00=0x0030, h01=0x0050, text=» EXTRN SAVE8 SAVE REG. A1-A8 ON SYSTEM STACK«, t00=0x0005, t01=0x0162}
0x0962…0990 Head {h00=0x002a, h01=0x0050, text=» EXTRN RETUR8 RELOAD A1-A8 AND RETURN «, t00=0x0006, t01=0x0008}
0x0990…09c6 Head {h00=0x0032, h01=0x0050, text=» EXTRN IHRET8 RELOAD A1-A8 AND RETURN INHIBIT «, t00=0x0006, t01=0x0036}
0x09c6…09d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006c}
0x09d0…09de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0076}
0x09de…09e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0084}
0x09e8…0a12 Head {h00=0x0026, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS «, t00=0x0006, t01=0x008e}
0x0a12…0a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b8}
0x0a1c…0a48 Head {h00=0x0028, h01=0x0050, text=»X:A EQU 1 SUB-ADDRESSING SUPPORTED ?«, t00=0x0006, t01=0x00c2}
0x0a48…0a6a Head {h00=0x001e, h01=0x0050, text=»SUBADR EQU X:A 0=NO 1=YES «, t00=0x0006, t01=0x00ee}
0x0a6a…0a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0110}
0x0a74…0aaa Head {h00=0x0032, h01=0x0050, text=»CPU852 EQU 0 EXTENDED INSTRUCTION SET IF ZERO «, t00=0x0006, t01=0x011a}
0x0aaa…0ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0150}
0x0ab4…0abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015a}
0x0abe…0ad6 Head {h00=0x0014, h01=0x0050, text=»* SYSTEM EQUATES«, t00=0x0006, t01=0x0164}
0x0ad6…0ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017c}
0x0ae0…0b02 Head {h00=0x001e, h01=0x0050, text=»DS EQU 0 ENTRY INDICATORS «, t00=0x0006, t01=0x0186}
0x0b02…0b12 Head {h00=0x000c, h01=0x0050, text=»DN EQU 1«, t00=0x0007, t01=0x0018}
0x0b12…0b22 Head {h00=0x000c, h01=0x0050, text=»SS EQU 2«, t00=0x0007, t01=0x0028}
0x0b22…0b32 Head {h00=0x000c, h01=0x0050, text=»SN EQU 3«, t00=0x0007, t01=0x0038}
0x0b32…0b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0048}
0x0b3c…0b4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0052}
0x0b4a…0b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0060}
0x0b54…0b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006a}
0x0b5e…0b96 Head {h00=0x0034, h01=0x0050, text=»* ROUTINES TO GET A SYMBOLIC DTE ADDRESS FROM A «, t00=0x0007, t01=0x0074}
0x0b96…0bbe Head {h00=0x0024, h01=0x0050, text=»* DTE NETWORK ADDRESS (AND TYPE)«, t00=0x0007, t01=0x00ac}
0x0bbe…0bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d4}
0x0bc8…0c02 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0007, t01=0x00de}
0x0c02…0c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0118}
0x0c0c…0c28 Head {h00=0x0018, h01=0x0050, text=»* INPUT PARAMETERS :«, t00=0x0007, t01=0x0122}
0x0c28…0c64 Head {h00=0x0038, h01=0x0050, text=»* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS«, t00=0x0007, t01=0x013e}
0x0c64…0c9a Head {h00=0x0032, h01=0x0050, text=»* A2 = BUFFER CONTAINING DTE NETWORK ADDRESS «, t00=0x0007, t01=0x017a}
0x0c9a…0cc6 Head {h00=0x0028, h01=0x0050, text=»* A3 = TYPE (ONLY FOR GETDST ENTRY)«, t00=0x0008, t01=0x0020}
0x0cc6…0cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004c}
0x0cd0…0cee Head {h00=0x001a, h01=0x0050, text=»* CALLING SEQUENCES : «, t00=0x0008, t01=0x0056}
0x0cee…0d06 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETDSA«, t00=0x0008, t01=0x0074}
0x0d06…0d1e Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETDST«, t00=0x0008, t01=0x008c}
0x0d1e…0d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a4}
0x0d28…0d46 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT PARAMETERS : «, t00=0x0008, t01=0x00ae}
0x0d46…0d8c Head {h00=0x0042, h01=0x0050, text=»* A1 = SYMBOLIC DTE ADDRESS(OR -1 IF INVALID ADDRESS OR TYPE)«, t00=0x0008, t01=0x00cc}
0x0d8c…0dce Head {h00=0x003e, h01=0x0050, text=»* A3 = TYPE INDEX (IF GETDST ENTRY,OTHERWISE NOT CHANGED)«, t00=0x0008, t01=0x0112}
0x0dce…0dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0154}
0x0dd8…0dec Head {h00=0x0010, h01=0x0050, text=»GETDSA EQU *«, t00=0x0008, t01=0x015e}
0x0dec…0e02 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0008, t01=0x0172}
0x0e02…0e24 Head {h00=0x001e, h01=0x0050, text=» MSR 8,A15 SAVE REG. A1-A8«, t00=0x0008, t01=0x0188}
0x0e24…0e30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x001a}
0x0e30…0e46 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0009, t01=0x0026}
0x0e46…0e6c Head {h00=0x0022, h01=0x0050, text=» CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x0009, t01=0x003c}
0x0e6c…0e78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0062}
0x0e78…0ea0 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 CLEAR TYPE INDICATOR «, t00=0x0009, t01=0x006e}
0x0ea0…0eb2 Head {h00=0x000e, h01=0x0050, text=» RF GET090«, t00=0x0009, t01=0x0096}
0x0eb2…0ec6 Head {h00=0x0010, h01=0x0050, text=»GETDST EQU *«, t00=0x0009, t01=0x00a8}
0x0ec6…0edc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0009, t01=0x00bc}
0x0edc…0eee Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0009, t01=0x00d2}
0x0eee…0efa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x00e4}
0x0efa…0f10 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0009, t01=0x00f0}
0x0f10…0f26 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0009, t01=0x0106}
0x0f26…0f32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x011c}
0x0f32…0f40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0128}
0x0f40…0f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f4a…0f5e Head {h00=0x0010, h01=0x0050, text=»GET090 EQU *«, t00=0x0009, t01=0x0140}
0x0f5e…0f80 Head {h00=0x001e, h01=0x0050, text=» LDK A4,DS ENTRY INDICATOR«, t00=0x0009, t01=0x0154}
0x0f80…0f94 Head {h00=0x0010, h01=0x0050, text=»GET100 EQU *«, t00=0x0009, t01=0x0176}
0x0f94…0fba Head {h00=0x0022, h01=0x0050, text=» LDKL A5,-1 RESET TYPE COUNTER«, t00=0x0009, t01=0x018a}
0x0fba…0ff4 Head {h00=0x0036, h01=0x0050, text=» LDKL A8,SCTDCT POINTER TO DC ADDRESS TABLE ENTRY «, t00=0x000a, t01=0x0020}
0x0ff4…1008 Head {h00=0x0010, h01=0x0050, text=»GET110 EQU *«, t00=0x000a, t01=0x005a}
0x1008…102a Head {h00=0x001e, h01=0x0050, text=» LDR* A8,A8 MORE ENTRIES ?«, t00=0x000a, t01=0x006e}
0x102a…1042 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GET330 NO«, t00=0x000a, t01=0x0090}
0x1042…1064 Head {h00=0x001e, h01=0x0050, text=» ADK A3,0 TYPE SPECIFIED ?«, t00=0x000a, t01=0x00a8}
0x1064…107c Head {h00=0x0014, h01=0x0050, text=» RF(Z) GET120 NO«, t00=0x000a, t01=0x00ca}
0x107c…109c Head {h00=0x001c, h01=0x0050, text=» CW A3,4,A8 TYPE FOUND ?«, t00=0x000a, t01=0x00e2}
0x109c…10b6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET110 NO «, t00=0x000a, t01=0x0102}
0x10b6…10da Head {h00=0x0020, h01=0x0050, text=» ADK A5,1 STEP TYPE COUNTER «, t00=0x000a, t01=0x011c}
0x10da…10e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0140}
0x10e4…10fc Head {h00=0x0014, h01=0x0050, text=»* TEST ON ENTRY «, t00=0x000a, t01=0x014a}
0x10fc…1106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0162}
0x1106…111a Head {h00=0x0010, h01=0x0050, text=»GET120 EQU *«, t00=0x000a, t01=0x016c}
0x111a…1142 Head {h00=0x0024, h01=0x0050, text=» ADK A4,DS GETDSA/GETDST ENTRY ?«, t00=0x000a, t01=0x0180}
0x1142…115c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GET220 NO «, t00=0x000b, t01=0x0018}
0x115c…1166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0032}
0x1166…1186 Head {h00=0x001c, h01=0x0050, text=»* TEST ON ADDRESS LENGTH«, t00=0x000b, t01=0x003c}
0x1186…1190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005c}
0x1190…11aa Head {h00=0x0016, h01=0x0050, text=» CC A1,6,A8 SAME ?«, t00=0x000b, t01=0x0066}
0x11aa…11ce Head {h00=0x0020, h01=0x0050, text=» RB(NE) GET110 NO,TAKE NEXT «, t00=0x000b, t01=0x0080}
0x11ce…11d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a4}
0x11d8…11e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ae}
0x11e6…11f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00bc}
0x11f0…1210 Head {h00=0x001c, h01=0x0050, text=»* GET ADDRESS PARAMETERS«, t00=0x000b, t01=0x00c6}
0x1210…121a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x121a…1236 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 CONVERT.. «, t00=0x000b, t01=0x00f0}
0x1236…1252 Head {h00=0x0018, h01=0x0050, text=» SRC A1,1 ..LENGTH..«, t00=0x000b, t01=0x010c}
0x1252…126e Head {h00=0x0018, h01=0x0050, text=» LDR A4,A1 ..INTO.. «, t00=0x000b, t01=0x0128}
0x126e…128a Head {h00=0x0018, h01=0x0050, text=» ANK A1,/7F ..OCTETS«, t00=0x000b, t01=0x0144}
0x128a…12b4 Head {h00=0x0026, h01=0x0050, text=» LDR A6,A8 GET ADDRESS WHERE TO.. «, t00=0x000b, t01=0x0160}
0x12b4…12dc Head {h00=0x0024, h01=0x0050, text=» ADK A6,7 ..FIND LAST OCTET OF..«, t00=0x000b, t01=0x018a}
0x12dc…1300 Head {h00=0x0020, h01=0x0050, text=» ADR A6,A1 ..NETWORK ADDRESS«, t00=0x000c, t01=0x0022}
0x1300…1332 Head {h00=0x002e, h01=0x0050, text=» ADR A2,A1 POINTER TO LAST OCTET IN BUFFER«, t00=0x000c, t01=0x0046}
0x1332…1350 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A1 SAVE LENGTH«, t00=0x000c, t01=0x0078}
0x1350…135a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0096}
0x135a…1380 Head {h00=0x0022, h01=0x0050, text=»* COMPARE DTE NETWORK ADDRESS «, t00=0x000c, t01=0x00a0}
0x1380…138a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c6}
0x138a…139e Head {h00=0x0010, h01=0x0050, text=»GET130 EQU *«, t00=0x000c, t01=0x00d0}
0x139e…13ba Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 LAST ONE ?«, t00=0x000c, t01=0x00e4}
0x13ba…13d4 Head {h00=0x0016, h01=0x0050, text=» RF(N) GET160 YES «, t00=0x000c, t01=0x0100}
0x13d4…13f0 Head {h00=0x0018, h01=0x0050, text=» SUK A2,1 NEXT OCTET«, t00=0x000c, t01=0x011a}
0x13f0…1418 Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 POINTER TO NEXT OCTET «, t00=0x000c, t01=0x0136}
0x1418…144a Head {h00=0x002e, h01=0x0050, text=» LCR A4,A6 GET ONE DC ADDRESS TABLE OCTET «, t00=0x000c, t01=0x015e}
0x144a…1478 Head {h00=0x002a, h01=0x0050, text=» CCR A4,A2 COMPARE WITH DRIVER BUFFER «, t00=0x000c, t01=0x0190}
0x1478…1494 Head {h00=0x0018, h01=0x0050, text=» RB(E) GET130 EQUAL «, t00=0x000d, t01=0x002e}
0x1494…149e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004a}
0x149e…14ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0054}
0x14ac…14b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0062}
0x14b6…14da Head {h00=0x0020, h01=0x0050, text=»* COMPARED OCTETS NOT EQUAL «, t00=0x000d, t01=0x006c}
0x14da…14e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0090}
0x14e4…14f8 Head {h00=0x0010, h01=0x0050, text=»GET140 EQU *«, t00=0x000d, t01=0x009a}
0x14f8…1516 Head {h00=0x001a, h01=0x0050, text=» SUR A7,A1 FIRST ONE ?«, t00=0x000d, t01=0x00ae}
0x1516…152a Head {h00=0x0010, h01=0x0050, text=» SUK A7,1 . «, t00=0x000d, t01=0x00cc}
0x152a…1544 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GET150 NO «, t00=0x000d, t01=0x00e0}
0x1544…156c Head {h00=0x0024, h01=0x0050, text=» ADK A4,0 SEMI-OCTET BOUNDARY ? «, t00=0x000d, t01=0x00fa}
0x156c…1584 Head {h00=0x0014, h01=0x0050, text=» RF(N) GET150 NO«, t00=0x000d, t01=0x0122}
0x1584…15ae Head {h00=0x0026, h01=0x0050, text=» ANK A4,/F0 MASK DRIVER SEMI-OCTET«, t00=0x000d, t01=0x013a}
0x15ae…15dc Head {h00=0x002a, h01=0x0050, text=» LCR A1,A2 GET DC ADDRESS TABLE OCTET «, t00=0x000d, t01=0x0164}
0x15dc…1602 (14, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F0 MAKE IT SEMI-OCTET«, t00=0x000e, t01=0x0004}
0x1602…161c Head {h00=0x0016, h01=0x0050, text=» CWR A4,A1 EQUAL ?«, t00=0x000e, t01=0x002a}
0x161c…1636 Head {h00=0x0016, h01=0x0050, text=» RF(E) GET160 YES «, t00=0x000e, t01=0x0044}
0x1636…164a Head {h00=0x0010, h01=0x0050, text=»GET150 EQU *«, t00=0x000e, t01=0x005e}
0x164a…166c Head {h00=0x001e, h01=0x0050, text=» LC A1,6,A8 RELOAD LENGTH «, t00=0x000e, t01=0x0072}
0x166c…1696 Head {h00=0x0026, h01=0x0050, text=» LDK A4,DS RELOAD ENTRY INDICATOR «, t00=0x000e, t01=0x0094}
0x1696…16b2 Head {h00=0x0018, h01=0x0050, text=» RB GET110 TRY NEXT «, t00=0x000e, t01=0x00be}
0x16b2…16bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00da}
0x16bc…16da Head {h00=0x001a, h01=0x0050, text=»* COMMON EXIT ROUTINE «, t00=0x000e, t01=0x00e4}
0x16da…16e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0102}
0x16e4…16f8 Head {h00=0x0010, h01=0x0050, text=»GET160 EQU *«, t00=0x000e, t01=0x010c}
0x16f8…1724 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET SYMBOLIC DTE ADDRESS«, t00=0x000e, t01=0x0120}
0x1724…1738 Head {h00=0x0010, h01=0x0050, text=»GET170 EQU *«, t00=0x000e, t01=0x014c}
0x1738…1758 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 TYPE TESTED ?«, t00=0x000e, t01=0x0160}
0x1758…1770 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GET180 NO«, t00=0x000e, t01=0x0180}
0x1770…179e Head {h00=0x002a, h01=0x0050, text=» ST A5,12,A15 SAVE TYPE COUNTER IN A3 «, t00=0x000f, t01=0x0008}
0x179e…17b2 Head {h00=0x0010, h01=0x0050, text=»GET180 EQU *«, t00=0x000f, t01=0x0036}
0x17b2…17d0 Head {h00=0x001a, h01=0x0050, text=» ST A1,16,A15 SAVE A1 «, t00=0x000f, t01=0x004a}
0x17d0…17e6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000f, t01=0x0068}
0x17e6…180a Head {h00=0x0020, h01=0x0050, text=» ABL RETUR8 RETURN TO CALLER«, t00=0x000f, t01=0x007e}
0x180a…1816 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00a2}
0x1816…182c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000f, t01=0x00ae}
0x182c…184a Head {h00=0x001a, h01=0x0050, text=» LD A1,18,A15 GET PSW «, t00=0x000f, t01=0x00c4}
0x184a…186c Head {h00=0x001e, h01=0x0050, text=» ANK A1,/40 ENABLE MODE ? «, t00=0x000f, t01=0x00e2}
0x186c…1888 Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) RETUR8 YES «, t00=0x000f, t01=0x0104}
0x1888…18b4 Head {h00=0x0028, h01=0x0050, text=» ABL IHRET8 RETURN INHIBIT TO CALLER«, t00=0x000f, t01=0x0120}
0x18b4…18c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x014c}
0x18c0…18ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0158}
0x18ca…18d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0162}
0x18d8…18e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0170}
0x18e2…18ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017a}
0x18ec…192a Head {h00=0x003a, h01=0x0050, text=»* ROUTINES TO FIND OR GET A DTE NETWORK ADDRESS FROM A«, t00=0x000f, t01=0x0184}
0x192a…1958 Head {h00=0x002a, h01=0x0050, text=»* SYMBOLIC NETWORK ADDRESS (AND TYPE) «, t00=0x0010, t01=0x0032}
0x1958…1962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0060}
0x1962…19a0 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0010, t01=0x006a}
0x19a0…19aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a8}
0x19aa…19c6 Head {h00=0x0018, h01=0x0050, text=»* INPUT PARAMETERS :«, t00=0x0010, t01=0x00b2}
0x19c6…19ea Head {h00=0x0020, h01=0x0050, text=»* A1 = SYMBOLIC DTE ADDRESS«, t00=0x0010, t01=0x00ce}
0x19ea…1a18 Head {h00=0x002a, h01=0x0050, text=»* A2 = BUFFER (ONLY IF GET... ENTRY) «, t00=0x0010, t01=0x00f2}
0x1a18…1a44 Head {h00=0x0028, h01=0x0050, text=»* A3 = TYPE (ONLY IF ...DNT ENTRY) «, t00=0x0010, t01=0x0120}
0x1a44…1a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014c}
0x1a4e…1a6c Head {h00=0x001a, h01=0x0050, text=»* CALLING SEQUENCES : «, t00=0x0010, t01=0x0156}
0x1a6c…1a84 Head {h00=0x0014, h01=0x0050, text=»* CF A15,FNDDNA«, t00=0x0010, t01=0x0174}
0x1a84…1a9c Head {h00=0x0014, h01=0x0050, text=»* CF A15,FNDDNT«, t00=0x0010, t01=0x018c}
0x1a9c…1ab4 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETDNA«, t00=0x0011, t01=0x0014}
0x1ab4…1acc Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETDNT«, t00=0x0011, t01=0x002c}
0x1acc…1ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0044}
0x1ad6…1af4 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT PARAMETERS : «, t00=0x0011, t01=0x004e}
0x1af4…1b30 Head {h00=0x0038, h01=0x0050, text=»* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS«, t00=0x0011, t01=0x006c}
0x1b30…1b70 Head {h00=0x003c, h01=0x0050, text=»* (OR -1 IF ILLEGAL SYMBOLIC DTE ADDRESS OR TYPE) «, t00=0x0011, t01=0x00a8}
0x1b70…1bae Head {h00=0x003a, h01=0x0050, text=»* A2 = NEXT FREE ADDRESS IN BUFFER (IF GET... ENTRY) «, t00=0x0011, t01=0x00e8}
0x1bae…1bea Head {h00=0x0038, h01=0x0050, text=»* A2 = POINTER TO NETWORK ADDRESS (IF FND... ENTRY)«, t00=0x0011, t01=0x0126}
0x1bea…1c2c Head {h00=0x003e, h01=0x0050, text=»* A3 = TYPE INDEX (IF ...DNT ENTRY,OTHERWISE NOT CHANGED)«, t00=0x0011, t01=0x0162}
0x1c2c…1c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0014}
0x1c36…1c4a Head {h00=0x0010, h01=0x0050, text=»FNDDNT EQU *«, t00=0x0012, t01=0x001e}
0x1c4a…1c60 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0012, t01=0x0032}
0x1c60…1c82 Head {h00=0x001e, h01=0x0050, text=» MSR 8,A15 SAVE REG. A1-A8«, t00=0x0012, t01=0x0048}
0x1c82…1c8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x006a}
0x1c8e…1ca4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x0076}
0x1ca4…1cca Head {h00=0x0022, h01=0x0050, text=» CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x0012, t01=0x008c}
0x1cca…1cd6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00b2}
0x1cd6…1cfe Head {h00=0x0024, h01=0x0050, text=» SUR A2,A2 CLEAR BUFFER ADDRESS «, t00=0x0012, t01=0x00be}
0x1cfe…1d10 Head {h00=0x000e, h01=0x0050, text=» RF GET210«, t00=0x0012, t01=0x00e6}
0x1d10…1d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f8}
0x1d1a…1d28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0102}
0x1d28…1d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0110}
0x1d32…1d46 Head {h00=0x0010, h01=0x0050, text=»FNDDNA EQU *«, t00=0x0012, t01=0x011a}
0x1d46…1d5c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0012, t01=0x012e}
0x1d5c…1d6e Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0012, t01=0x0144}
0x1d6e…1d7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0156}
0x1d7a…1d90 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x0162}
0x1d90…1da6 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0012, t01=0x0178}
0x1da6…1db2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x018e}
0x1db2…1dda Head {h00=0x0024, h01=0x0050, text=» SUR A2,A2 CLEAR BUFFER ADDRESS «, t00=0x0013, t01=0x000a}
0x1dda…1dec Head {h00=0x000e, h01=0x0050, text=» RF GET200«, t00=0x0013, t01=0x0032}
0x1dec…1e00 Head {h00=0x0010, h01=0x0050, text=»GETDNT EQU *«, t00=0x0013, t01=0x0044}
0x1e00…1e16 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x0058}
0x1e16…1e28 Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0013, t01=0x006e}
0x1e28…1e34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0080}
0x1e34…1e4a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x008c}
0x1e4a…1e60 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0013, t01=0x00a2}
0x1e60…1e6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00b8}
0x1e6c…1e7e Head {h00=0x000e, h01=0x0050, text=» RF GET210«, t00=0x0013, t01=0x00c4}
0x1e7e…1e92 Head {h00=0x0010, h01=0x0050, text=»GETDNA EQU *«, t00=0x0013, t01=0x00d6}
0x1e92…1ea8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x00ea}
0x1ea8…1eba Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0013, t01=0x0100}
0x1eba…1ec6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0112}
0x1ec6…1edc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x011e}
0x1edc…1ef2 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0013, t01=0x0134}
0x1ef2…1efe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x014a}
0x1efe…1f12 Head {h00=0x0010, h01=0x0050, text=»GET200 EQU *«, t00=0x0013, t01=0x0156}
0x1f12…1f3a Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 CLEAR TYPE INDICATOR «, t00=0x0013, t01=0x016a}
0x1f3a…1f4e (20, 0, 400) Head {h00=0x0010, h01=0x0050, text=»GET210 EQU *«, t00=0x0014, t01=0x0004}
0x1f4e…1f74 Head {h00=0x0022, h01=0x0050, text=» LDK A4,DN SET ENTRY INDICATOR«, t00=0x0014, t01=0x0018}
0x1f74…1f8a Head {h00=0x0012, h01=0x0050, text=» RB GET100 RUN«, t00=0x0014, t01=0x003e}
0x1f8a…1f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0054}
0x1f94…1fa2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x005e}
0x1fa2…1fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006c}
0x1fac…1fce Head {h00=0x001e, h01=0x0050, text=»* TEST ON SYMBOLIC ADDRESS«, t00=0x0014, t01=0x0076}
0x1fce…1fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0098}
0x1fd8…1fec Head {h00=0x0010, h01=0x0050, text=»GET220 EQU *«, t00=0x0014, t01=0x00a2}
0x1fec…2008 Head {h00=0x0018, h01=0x0050, text=» CW A1,2,A8 FOUND ? «, t00=0x0014, t01=0x00b6}
0x2008…2022 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET110 NO «, t00=0x0014, t01=0x00d2}
0x2022…202c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ec}
0x202c…204c Head {h00=0x001c, h01=0x0050, text=»* GET ADDRESS PARAMETERS«, t00=0x0014, t01=0x00f6}
0x204c…2056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0116}
0x2056…2068 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x0120}
0x2068…209a Head {h00=0x002e, h01=0x0050, text=» LC A1,6,A8 GET DTE NETWORK ADDRESS LENGTH«, t00=0x0014, t01=0x0132}
0x209a…20b8 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A1 GET LENGTH «, t00=0x0014, t01=0x0164}
0x20b8…20da Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 CONVERT LENGTH..«, t00=0x0014, t01=0x0182}
0x20da…20f4 Head {h00=0x0016, h01=0x0050, text=» SRC A7,1 ..INTO..«, t00=0x0015, t01=0x0014}
0x20f4…2110 Head {h00=0x0018, h01=0x0050, text=» ANK A7,/7F ..OCTETS«, t00=0x0015, t01=0x002e}
0x2110…213e Head {h00=0x002a, h01=0x0050, text=» LDR A6,A8 GET ADDRESS WHERE TO FIND..«, t00=0x0015, t01=0x004a}
0x213e…2162 Head {h00=0x0020, h01=0x0050, text=» ADK A6,7 ..NETWORK ADDRESS «, t00=0x0015, t01=0x0078}
0x2162…2178 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0015, t01=0x009c}
0x2178…2182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b2}
0x2182…219a Head {h00=0x0014, h01=0x0050, text=»* TEST ON ENTRY «, t00=0x0015, t01=0x00bc}
0x219a…21a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d4}
0x21a4…21cc Head {h00=0x0024, h01=0x0050, text=» SUK A4,SS ...DNA/...DNT ENTRY ?«, t00=0x0015, t01=0x00de}
0x21cc…21e6 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GET310 NO «, t00=0x0015, t01=0x0106}
0x21e6…21f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0120}
0x21f2…221e Head {h00=0x0028, h01=0x0050, text=» LDR A2,A2 NETWORK ADDRESS WANTED ? «, t00=0x0015, t01=0x012c}
0x221e…2238 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GET240 YES«, t00=0x0015, t01=0x0158}
0x2238…224a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0015, t01=0x0172}
0x224a…2254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x2254…2262 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x018e}
0x2262…226c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000c}
0x226c…2286 Head {h00=0x0016, h01=0x0050, text=»* SAVE PARAMETERS «, t00=0x0016, t01=0x0016}
0x2286…2290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0030}
0x2290…22a4 Head {h00=0x0010, h01=0x0050, text=»GET230 EQU *«, t00=0x0016, t01=0x003a}
0x22a4…22cc Head {h00=0x0024, h01=0x0050, text=» ST A2,14,A15 SAVE NEXT ADDRESS «, t00=0x0016, t01=0x004e}
0x22cc…22e4 Head {h00=0x0014, h01=0x0050, text=» RB GET170 EXIT «, t00=0x0016, t01=0x0076}
0x22e4…22ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008e}
0x22ee…230c Head {h00=0x001a, h01=0x0050, text=»* GET NETWORK ADDRESS «, t00=0x0016, t01=0x0098}
0x230c…2316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b6}
0x2316…232a Head {h00=0x0010, h01=0x0050, text=»GET240 EQU *«, t00=0x0016, t01=0x00c0}
0x232a…2344 Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 READY ? «, t00=0x0016, t01=0x00d4}
0x2344…235e Head {h00=0x0016, h01=0x0050, text=» RB(N) GET230 YES «, t00=0x0016, t01=0x00ee}
0x235e…237c Head {h00=0x001a, h01=0x0050, text=» LCR A4,A6 MOVE ONE.. «, t00=0x0016, t01=0x0108}
0x237c…2396 Head {h00=0x0016, h01=0x0050, text=» SCR A4,A2 ..OCTET«, t00=0x0016, t01=0x0126}
0x2396…23a8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0016, t01=0x0140}
0x23a8…23ba Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0016, t01=0x0152}
0x23ba…23d6 Head {h00=0x0018, h01=0x0050, text=» RB GET240 TAKE NEXT«, t00=0x0016, t01=0x0164}
0x23d6…23e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0180}
0x23e0…23f6 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0016, t01=0x018a}
0x23f6…2404 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0010}
0x2404…240e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001e}
0x240e…2418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0028}
0x2418…2450 Head {h00=0x0034, h01=0x0050, text=»* ROUTINES TO GET A SYMBOLIC SUB-ADDRESS FROM A «, t00=0x0017, t01=0x0032}
0x2450…248a Head {h00=0x0036, h01=0x0050, text=»* SYMBOLIC DTE ADDRESS (OF A SPECIFIED TYPE) AND A«, t00=0x0017, t01=0x006a}
0x248a…24a8 Head {h00=0x001a, h01=0x0050, text=»* NETWORK SUB-ADDRESS «, t00=0x0017, t01=0x00a4}
0x24a8…24b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c2}
0x24b2…24ee Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0017, t01=0x00cc}
0x24ee…24f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0108}
0x24f8…2514 Head {h00=0x0018, h01=0x0050, text=»* INPUT PARAMETERS :«, t00=0x0017, t01=0x0112}
0x2514…2538 Head {h00=0x0020, h01=0x0050, text=»* A1 = SYMBOLIC DTE ADDRESS«, t00=0x0017, t01=0x012e}
0x2538…255c Head {h00=0x0020, h01=0x0050, text=»* A2 = NETWORK SUB-ADDRESS «, t00=0x0017, t01=0x0152}
0x255c…2588 Head {h00=0x0028, h01=0x0050, text=»* A3 = TYPE (ONLY IF GETSST ENTRY) «, t00=0x0017, t01=0x0176}
0x2588…2592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0012}
0x2592…25ae Head {h00=0x0018, h01=0x0050, text=»* CALLING SEQUENCE :«, t00=0x0018, t01=0x001c}
0x25ae…25c6 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETSSA«, t00=0x0018, t01=0x0038}
0x25c6…25de Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETSST«, t00=0x0018, t01=0x0050}
0x25de…25e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0068}
0x25e8…2606 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT PARAMETERS : «, t00=0x0018, t01=0x0072}
0x2606…2644 Head {h00=0x003a, h01=0x0050, text=»* A1 = SYMBOLIC SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC«, t00=0x0018, t01=0x0090}
0x2644…267c Head {h00=0x0034, h01=0x0050, text=»* DTE ADDRESS,TYPE OR NETWORK SUB-ADDRESS)«, t00=0x0018, t01=0x00ce}
0x267c…26c4 Head {h00=0x0044, h01=0x0050, text=»* A3 = TYPE INDEX (ONLY IF GETSST ENTRY,OTHERWISE NOT CHANGED) «, t00=0x0018, t01=0x0106}
0x26c4…26ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014e}
0x26ce…26e2 Head {h00=0x0010, h01=0x0050, text=»GETSST EQU *«, t00=0x0018, t01=0x0158}
0x26e2…26f8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0018, t01=0x016c}
0x26f8…270a Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0018, t01=0x0182}
0x270a…2716 (25, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0004}
0x2716…272c Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0019, t01=0x0010}
0x272c…2742 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x0026}
0x2742…2768 Head {h00=0x0022, h01=0x0050, text=» CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x0019, t01=0x003c}
0x2768…2774 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0062}
0x2774…278a Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0019, t01=0x006e}
0x278a…279c Head {h00=0x000e, h01=0x0050, text=» RF GET300«, t00=0x0019, t01=0x0084}
0x279c…27a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0096}
0x27a6…27b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00a0}
0x27b4…27be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ae}
0x27be…27d2 Head {h00=0x0010, h01=0x0050, text=»GETSSA EQU *«, t00=0x0019, t01=0x00b8}
0x27d2…27e8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0019, t01=0x00cc}
0x27e8…27fa Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x0019, t01=0x00e2}
0x27fa…2806 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00f4}
0x2806…281c Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0019, t01=0x0100}
0x281c…2832 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x0116}
0x2832…2848 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0019, t01=0x012c}
0x2848…2854 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0142}
0x2854…286a Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x0019, t01=0x014e}
0x286a…2892 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 CLEAR TYPE INDICATION«, t00=0x0019, t01=0x0164}
0x2892…28a6 Head {h00=0x0010, h01=0x0050, text=»GET300 EQU *«, t00=0x0019, t01=0x018c}
0x28a6…28cc Head {h00=0x0022, h01=0x0050, text=» LDK A4,SS SET ENTRY INDICATOR«, t00=0x001a, t01=0x0010}
0x28cc…28e0 Head {h00=0x0010, h01=0x0050, text=»GET305 EQU *«, t00=0x001a, t01=0x0036}
0x28e0…28f6 Head {h00=0x0012, h01=0x0050, text=» RB GET100 RUN«, t00=0x001a, t01=0x004a}
0x28f6…2900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0060}
0x2900…2918 Head {h00=0x0014, h01=0x0050, text=»* TEST ON ENTRY «, t00=0x001a, t01=0x006a}
0x2918…2922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0082}
0x2922…2936 Head {h00=0x0010, h01=0x0050, text=»GET310 EQU *«, t00=0x001a, t01=0x008c}
0x2936…295c Head {h00=0x0022, h01=0x0050, text=» ADR A6,A7 GET # OF ENTRIES IN«, t00=0x001a, t01=0x00a0}
0x295c…2982 Head {h00=0x0022, h01=0x0050, text=» LCR A7,A6 ..SUB-ADDRESS TABLE«, t00=0x001a, t01=0x00c6}
0x2982…2994 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x001a, t01=0x00ec}
0x2994…29c2 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) GET410 NOT GETSSA/GETSST ENTRY«, t00=0x001a, t01=0x00fe}
0x29c2…29cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012c}
0x29cc…29ee Head {h00=0x001e, h01=0x0050, text=»* GET SYMBOLIC SUB-ADDRESS«, t00=0x001a, t01=0x0136}
0x29ee…29f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0158}
0x29f8…2a30 Head {h00=0x0034, h01=0x0050, text=» LDK A1,/30 RESET SYMBOLIC SUB-ADDRESS INDICATOR«, t00=0x001a, t01=0x0162}
0x2a30…2a44 Head {h00=0x0010, h01=0x0050, text=»GET320 EQU *«, t00=0x001b, t01=0x000a}
0x2a44…2a60 Head {h00=0x0018, h01=0x0050, text=» ADK A6,1 NEXT ENTRY«, t00=0x001b, t01=0x001e}
0x2a60…2a90 Head {h00=0x002c, h01=0x0050, text=» CCR A2,A6 COMPARE NETWORK SUB-ADDRESSES«, t00=0x001b, t01=0x003a}
0x2a90…2aac Head {h00=0x0018, h01=0x0050, text=» RB(E) GET170 EXIT !«, t00=0x001b, t01=0x006a}
0x2aac…2ad8 Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 STEP SYMBOLIC SUB-ADDRESS «, t00=0x001b, t01=0x0086}
0x2ad8…2af8 Head {h00=0x001c, h01=0x0050, text=» SUK A7,1 MORE ENTRIES ?«, t00=0x001b, t01=0x00b2}
0x2af8…2b12 Head {h00=0x0016, h01=0x0050, text=» RB(P) GET320 YES «, t00=0x001b, t01=0x00d2}
0x2b12…2b1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00ec}
0x2b1e…2b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f8}
0x2b28…2b36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0102}
0x2b36…2b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0110}
0x2b40…2b5e Head {h00=0x001a, h01=0x0050, text=»* INCORRECT PARAMETERS«, t00=0x001b, t01=0x011a}
0x2b5e…2b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0138}
0x2b68…2b7e Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=0 «, t00=0x001b, t01=0x0142}
0x2b7e…2ba0 Head {h00=0x001e, h01=0x0050, text=»GETSNA EQU * DUMMY ENTRIES«, t00=0x001b, t01=0x0158}
0x2ba0…2bb4 Head {h00=0x0010, h01=0x0050, text=»GETSNT EQU *«, t00=0x001b, t01=0x017a}
0x2bb4…2bc8 Head {h00=0x0010, h01=0x0050, text=»GETSSA EQU *«, t00=0x001b, t01=0x018e}
0x2bc8…2bdc Head {h00=0x0010, h01=0x0050, text=»GETSST EQU *«, t00=0x001c, t01=0x0012}
0x2bdc…2be8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0026}
0x2be8…2bfc Head {h00=0x0010, h01=0x0050, text=»GET330 EQU *«, t00=0x001c, t01=0x0032}
0x2bfc…2c20 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-1 ERROR INDICATION«, t00=0x001c, t01=0x0046}
0x2c20…2c38 Head {h00=0x0014, h01=0x0050, text=» RB GET180 EXIT «, t00=0x001c, t01=0x006a}
0x2c38…2c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0082}
0x2c42…2c58 Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001c, t01=0x008c}
0x2c58…2c66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00a2}
0x2c66…2c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b0}
0x2c70…2c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c7a…2cb0 Head {h00=0x0032, h01=0x0050, text=»* ROUTINES TO GET A NETWORK SUB-ADDRESS FROM A«, t00=0x001c, t01=0x00c4}
0x2cb0…2ce8 Head {h00=0x0034, h01=0x0050, text=»* SYMBOLIC DTE ADDRESS (OF SPECIFIED TYPE) AND A«, t00=0x001c, t01=0x00fa}
0x2ce8…2d06 Head {h00=0x001a, h01=0x0050, text=»* SYMBOLIC SUB-ADDRESS«, t00=0x001c, t01=0x0132}
0x2d06…2d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0150}
0x2d10…2d4c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x001c, t01=0x015a}
0x2d4c…2d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0008}
0x2d56…2d72 Head {h00=0x0018, h01=0x0050, text=»* INPUT PARAMETERS :«, t00=0x001d, t01=0x0012}
0x2d72…2d96 Head {h00=0x0020, h01=0x0050, text=»* A1 = SYMBOLIC DTE ADDRESS«, t00=0x001d, t01=0x002e}
0x2d96…2dba Head {h00=0x0020, h01=0x0050, text=»* A2 = SYMBOLIC SUB-ADDRESS«, t00=0x001d, t01=0x0052}
0x2dba…2de6 Head {h00=0x0028, h01=0x0050, text=»* A3 = TYPE (ONLY IF GETSNT ENTRY) «, t00=0x001d, t01=0x0076}
0x2de6…2df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a2}
0x2df0…2e0e Head {h00=0x001a, h01=0x0050, text=»* CALLING SEQUENCES : «, t00=0x001d, t01=0x00ac}
0x2e0e…2e26 Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETSNA«, t00=0x001d, t01=0x00ca}
0x2e26…2e3e Head {h00=0x0014, h01=0x0050, text=»* CF A15,GETSNT«, t00=0x001d, t01=0x00e2}
0x2e3e…2e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fa}
0x2e48…2e66 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT PARAMETERS : «, t00=0x001d, t01=0x0104}
0x2e66…2ea4 Head {h00=0x003a, h01=0x0050, text=»* A1 = NETWORK SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC «, t00=0x001d, t01=0x0122}
0x2ea4…2ede Head {h00=0x0036, h01=0x0050, text=»* DTE ADDRESS,TYPE OR SYMBOLIC SUB-ADDRESS) «, t00=0x001d, t01=0x0160}
0x2ede…2f26 Head {h00=0x0044, h01=0x0050, text=»* A3 = TYPE INDEX (ONLY IF GETSNT ENTRY,OTHERWISE NOT CHANGED) «, t00=0x001e, t01=0x000a}
0x2f26…2f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0052}
0x2f30…2f44 Head {h00=0x0010, h01=0x0050, text=»GETSNT EQU *«, t00=0x001e, t01=0x005c}
0x2f44…2f5a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001e, t01=0x0070}
0x2f5a…2f7c Head {h00=0x001e, h01=0x0050, text=» MSR 8,A15 SAVE REG. A1-A8«, t00=0x001e, t01=0x0086}
0x2f7c…2f88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00a8}
0x2f88…2f9e Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001e, t01=0x00b4}
0x2f9e…2fb4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001e, t01=0x00ca}
0x2fb4…2fda Head {h00=0x0022, h01=0x0050, text=» CF A15,SAVE8 SAVE REG. A1-A8 «, t00=0x001e, t01=0x00e0}
0x2fda…2fe6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0106}
0x2fe6…2ffc Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001e, t01=0x0112}
0x2ffc…300e Head {h00=0x000e, h01=0x0050, text=» RF GET400«, t00=0x001e, t01=0x0128}
0x300e…3018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x013a}
0x3018…3026 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0144}
0x3026…3030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0152}
0x3030…3044 Head {h00=0x0010, h01=0x0050, text=»GETSNA EQU *«, t00=0x001e, t01=0x015c}
0x3044…305a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001e, t01=0x0170}
0x305a…306c Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x001e, t01=0x0186}
0x306c…3078 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0008}
0x3078…308e Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001f, t01=0x0014}
0x308e…30a4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001f, t01=0x002a}
0x30a4…30ba Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x001f, t01=0x0040}
0x30ba…30c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0056}
0x30c6…30dc Head {h00=0x0012, h01=0x0050, text=» IFT SUBADR=1 «, t00=0x001f, t01=0x0062}
0x30dc…3104 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A3 CLEAR TYPE INDICATOR «, t00=0x001f, t01=0x0078}
0x3104…3118 Head {h00=0x0010, h01=0x0050, text=»GET400 EQU *«, t00=0x001f, t01=0x00a0}
0x3118…313e Head {h00=0x0022, h01=0x0050, text=» LDK A4,SN SET ENTRY INDICATOR«, t00=0x001f, t01=0x00b4}
0x313e…3154 Head {h00=0x0012, h01=0x0050, text=» RB GET305 RUN«, t00=0x001f, t01=0x00da}
0x3154…315e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f0}
0x315e…3180 Head {h00=0x001e, h01=0x0050, text=»* GET NETWORK SUB-ADDRESS «, t00=0x001f, t01=0x00fa}
0x3180…318a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x011c}
0x318a…319e Head {h00=0x0010, h01=0x0050, text=»GET410 EQU *«, t00=0x001f, t01=0x0126}
0x319e…31cc Head {h00=0x002a, h01=0x0050, text=» ANK A2,/FF ONLY ONE BYTE SIGNIFICANT «, t00=0x001f, t01=0x013a}
0x31cc…31e0 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/2F «, t00=0x001f, t01=0x0168}
0x31e0…3214 Head {h00=0x0030, h01=0x0050, text=» RB(NP) GET330 INVALID SYMBOLIC SUB-ADDRESS «, t00=0x001f, t01=0x017c}
0x3214…324a Head {h00=0x0032, h01=0x0050, text=» SUR A7,A2 SYMBOLIC SUB-ADDRESS WITHIN TABLE ?«, t00=0x0020, t01=0x0020}
0x324a…3262 Head {h00=0x0014, h01=0x0050, text=» RB(N) GET330 NO«, t00=0x0020, t01=0x0056}
0x3262…3298 Head {h00=0x0032, h01=0x0050, text=» ADR A6,A2 SET POINTER(INDEX STARTS WITH /30) «, t00=0x0020, t01=0x006e}
0x3298…32c2 Head {h00=0x0026, h01=0x0050, text=» LCR A1,A6 GET NETWORK SUB-ADDRESS«, t00=0x0020, t01=0x00a4}
0x32c2…32da Head {h00=0x0014, h01=0x0050, text=» RB GET170 EXIT «, t00=0x0020, t01=0x00ce}
0x32da…32e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e6}
0x32e4…32f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00f0}
0x32f0…32fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00fc}
0x32fa…3306 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0020, t01=0x0106}
0x3306…330a Head {h00=0x4004, h01=0x0000}
0x330a…330e 00 20 01 12 ┆ ┆
0x330e…3316 (33, 1, 8) 20 04 00 00 00 21 00 04 ┆ ! ┆
0x3316…3366 (34, 0, 398) 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 22 00 04 00 06 00 50 2a 20 00 22 00 1e 00 0e 00 50 5c 49 46 54 5c 52 54 3d 30 20 00 22 00 28 00 10 00 50 5c 44 41 54 41 5c 4e 44 52 45 54 45 00 22 00 3a 00 08 00 50 5c 58 ┆ P IFF NTONSU=0 U =1 " P* " P IFT RT=0 " ( P DATA NDRETE " : P X┆
0x3366…33b6 49 46 00 22 00 4e 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 22 00 5a 00 0e 00 50 5c 49 46 54 5c 52 54 3d 31 20 00 22 00 74 00 10 00 50 5c 44 41 54 41 5c 52 54 45 4e 42 4c 00 22 00 86 00 08 00 50 5c 58 49 46 00 22 ┆IF " N P IFF NTONSU=0 U =1 " Z P IFT RT=1 " t P DATA RTENBL " P XIF "┆
0x33b6…3406 00 9a 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 22 00 a6 00 06 00 50 2a 20 00 22 00 c0 00 0e 00 50 5c 49 46 54 5c 53 4c 3d 30 20 00 22 00 ca 00 10 00 50 5c 44 41 54 41 5c 4e 44 52 45 54 45 00 22 00 dc 00 08 00 50 ┆ P IFF NTONSU=0 U =1 " P* " P IFT SL=0 " P DATA NDRETE " P┆
0x3406…3456 5c 58 49 46 00 22 00 f0 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 22 00 fc 00 0e 00 50 5c 49 46 54 5c 53 4c 3d 31 20 00 22 01 16 00 10 00 50 5c 44 41 54 41 5c 53 4c 45 4e 42 4c 00 22 01 28 00 08 00 50 5c 58 49 46 ┆ XIF " P IFF NTONSU=0 U =1 " P IFT SL=1 " P DATA SLENBL " ( P XIF┆
0x3456…34a4 00 22 01 3c 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 22 01 48 00 06 00 50 2a 20 00 22 01 62 00 0e 00 50 5c 49 46 54 5c 41 53 3d 30 20 00 22 01 6c 00 10 00 50 5c 44 41 54 41 5c 4e 44 52 45 54 45 00 22 01 7e ┆ " < P IFF NTONSU=0 U =1 " H P* " b P IFT AS=0 " l P DATA NDRETE " ~┆
0x34a4…34f4 (35, 0, 400) 00 08 00 50 5c 58 49 46 00 23 00 04 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 23 00 10 00 0e 00 50 5c 49 46 54 5c 41 53 3d 31 20 00 23 00 2a 00 10 00 50 5c 44 41 54 41 5c 41 53 45 4e 42 4c 00 23 00 3c 00 08 00 50 ┆ P XIF # P IFF NTONSU=0 U =1 # P IFT AS=1 # * P DATA ASENBL # < P┆
0x34f4…3544 5c 58 49 46 00 23 00 50 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 23 00 5c 00 06 00 50 2a 20 00 23 00 76 00 0e 00 50 5c 49 46 54 5c 46 54 3d 30 20 00 23 00 80 00 10 00 50 5c 44 41 54 41 5c 4e 44 52 45 54 45 00 23 ┆ XIF # P P IFF NTONSU=0 U =1 # P* # v P IFT FT=0 # P DATA NDRETE #┆
0x3544…3594 00 92 00 08 00 50 5c 58 49 46 00 23 00 a6 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 23 00 b2 00 0e 00 50 5c 49 46 54 5c 46 54 3d 31 20 00 23 00 cc 00 10 00 50 5c 44 41 54 41 5c 46 54 45 4e 42 4c 00 23 00 de 00 08 ┆ P XIF # P IFF NTONSU=0 U =1 # P IFT FT=1 # P DATA FTENBL # ┆
0x3594…35e4 00 50 5c 58 49 46 00 23 00 f2 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 23 00 fe 00 06 00 50 2a 20 00 23 01 18 00 0e 00 50 5c 49 46 54 5c 50 4c 3d 30 20 00 23 01 22 00 10 00 50 5c 44 41 54 41 5c 4e 44 52 45 54 45 ┆ P XIF # P IFF NTONSU=0 U =1 # P* # P IFT PL=0 # " P DATA NDRETE┆
0x35e4…3634 00 23 01 34 00 08 00 50 5c 58 49 46 00 23 01 48 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 23 01 54 00 0e 00 50 5c 49 46 54 5c 50 4c 3d 31 20 00 23 01 6e 00 10 00 50 5c 44 41 54 41 5c 50 4c 45 4e 42 4c 00 23 01 80 ┆ # 4 P XIF # H P IFF NTONSU=0 U =1 # T P IFT PL=1 # n P DATA PLENBL # ┆
0x3634…3684 (36, 0, 400) 00 08 00 50 5c 58 49 46 00 24 00 04 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 24 00 10 00 06 00 50 2a 20 00 24 00 2a 00 0e 00 50 5c 49 46 54 5c 50 52 3d 30 20 00 24 00 34 00 10 00 50 5c 44 41 54 41 5c 4e 44 52 45 ┆ P XIF $ P IFF NTONSU=0 U =1 $ P* $ * P IFT PR=0 $ 4 P DATA NDRE┆
0x3684…36d4 54 45 00 24 00 46 00 08 00 50 5c 58 49 46 00 24 00 5a 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 24 00 66 00 0e 00 50 5c 49 46 54 5c 50 52 3d 31 20 00 24 00 80 00 10 00 50 5c 44 41 54 41 5c 50 52 45 4e 42 4c 00 24 ┆TE $ F P XIF $ Z P IFF NTONSU=0 U =1 $ f P IFT PR=1 $ P DATA PRENBL $┆
0x36d4…3724 00 92 00 08 00 50 5c 58 49 46 00 24 00 a6 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 24 00 b2 00 06 00 50 2a 20 00 24 00 cc 00 0e 00 50 5c 49 46 54 5c 56 55 3d 30 20 00 24 00 d6 00 10 00 50 5c 44 41 54 41 5c 4e 44 ┆ P XIF $ P IFF NTONSU=0 U =1 $ P* $ P IFT VU=0 $ P DATA ND┆
0x3724…3774 52 45 54 45 00 24 00 e8 00 08 00 50 5c 58 49 46 00 24 00 fc 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 24 01 08 00 0e 00 50 5c 49 46 54 5c 56 55 3d 31 20 00 24 01 22 00 10 00 50 5c 44 41 54 41 5c 56 55 45 4e 42 4c ┆RETE $ P XIF $ P IFF NTONSU=0 U =1 $ P IFT VU=1 $ " P DATA VUENBL┆
0x3774…37c4 00 24 01 34 00 08 00 50 5c 58 49 46 00 24 01 48 00 16 00 50 5c 49 46 46 5c 4e 54 4f 4e 53 55 3d 30 5c 55 5c 3d 31 00 24 01 54 00 06 00 50 2a 20 00 24 01 6e 00 06 00 50 2a 20 00 24 01 78 00 1a 00 50 2a 20 20 20 20 20 20 45 4e 44 20 4f 46 20 ┆ $ 4 P XIF $ H P IFF NTONSU=0 U =1 $ T P* $ n P* $ x P* END OF ┆