|
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: 4768 (0x12a0)
Notes: pts_type(SC)
Names: »MPYMOD.SC«
└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
└─⟦this⟧ »M:92NA/MPYMOD.SC«
└─⟦this⟧ »M:92SP/MPYMOD.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »M:92OD/MPYMOD.SC«
└─⟦3a2bec7de⟧ Bits:30009687 Philips computer tape "600313"
└─⟦this⟧ »M:821/MPYMOD.SC«
└─⟦470bcbfc6⟧ Bits:30009709 Philips computer tape "M_92LP"
└─⟦this⟧ »M:92LP/MPYMOD.SC«
└─⟦6349b94c6⟧ Bits:30009684 Philips computer tape "600308"
└─⟦this⟧ »M:92D1/MPYMOD.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:92D2/MPYMOD.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »M:92NA/MPYMOD.SC«
└─⟦9af60a727⟧ Bits:30009707 Philips computer tape "M_173"
└─⟦this⟧ »M:173/MPYMOD.SC«
└─⟦this⟧ »M:173/MPYMOD.SC«
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
└─⟦this⟧ »M:92NA/MPYMOD.SC«
└─⟦this⟧ »M:92SP/MPYMOD.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/MPYMOD.SC«
IDENT MPYMOD REL 9.2 79-11-16 870105040920
* =1 RETURN CONDITIONS
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* TOSS DATA MANAGEMENT
*
*
*
****************************************************
* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION ON THE ALPLA COMPUTER
* CALLING SEQUENCE:
* LD A6,ARG1
* LD A7,ARG1
* CF A14,MPYMOD
* RETURN : RESULT IN A1,A2
* REGISTERS A3,A4,A6,A7, ARE CRUSHED
ENTRY MPYMOD
*
*
*****************************************
*
* CONDITIONAL ASSEMBLY
*
*****************************************
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 0
*
EJECT
MPYMOD EQU *
IFF CPU852=1
LDK A3,0 =1
LDR A2,A7
MUR A6
XIF
IFT CPU852=1
LDK.L A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT
CWR A3,A6
RF(4) SUITE
CWR A3,A7
RF(0) END3
LDR A6,A7 * A6= X'8000' A7# X'8000'
LDR A7,A3 * EXCHANGE A6-A7
SUITE LDK A1,0 *INITIALISE
LDK A2,0
LDK A3,0
LDK A4,15
ADK A6,0
RF(0) END0
RF(6) ARG1PS
ADK A3,1 *ARG1 NEGATIVE
C1R A6,A6
ADK A6,1
ARG1PS ADK A7,0
RF(0) END0
RF(6) ARG2PS
SUK A3,1 *ARG2 NEGATIVE
C1R A7,A7
ADK A7,1
RF(3) CASSPE
ARG2PS SRC A7,1
RF(6) NOVER1
ADR A1,A6
NOVER1 SRA A2,1
SRC A1,1
RF(6) NOVER2
ORK.L A2,/4000
ANK.L A1,/7FFF
NOVER2 SUK A4,1
RB(4) ARG2PS
NOVER3 ADK A3,0 *END* RESTORE SI=N
RF(0) END1
C1R A1,A1
C1R A2,A2
ADK A2,1
*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR
* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (RESULT=8000)
ADK A2,0
RF(2) NOVER4
ADK A1,1
NOVER4 ANK.L A2,/7FFF
RF(7) END2
XIF =1
IFT CPU852=0 6813 =1
RF(0) END0 =1
RF(1) END1 =1
RF(2) END2 =1
XIF =1
END3 ADK A3,/81
END2 ADK A3,/81
END1 ADK A3,/81
END0 SLL A3,1
ANK.L A3,/0300
LDK.L A4,/FCFF
AN.S A4,2,A14
OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM
* =1
RTN A14
IFT CPU852=1
CASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1
* *AND A1= A6
RB(7) NOVER3
XIF
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT MPYMOD REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=»* =1 RETURN CONDITIONS«, t00=0x0000, t01=0x0042}
0x005e…0068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0062}
0x0068…00a4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x006c}
0x00a4…00ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a8}
0x00ae…00d6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00b2}
0x00d6…00e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00da}
0x00e0…0100 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00e4}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…015a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0122}
0x015a…01a8 Head {h00=0x004a, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION ON THE ALPLA COMPUTER«, t00=0x0000, t01=0x015e}
0x01a8…01c4 Head {h00=0x0018, h01=0x0050, text=»* CALLING SEQUENCE: «, t00=0x0001, t01=0x001c}
0x01c4…01f0 Head {h00=0x0028, h01=0x0050, text=»* LD A6,ARG1 «, t00=0x0001, t01=0x0038}
0x01f0…021c Head {h00=0x0028, h01=0x0050, text=»* LD A7,ARG1 «, t00=0x0001, t01=0x0064}
0x021c…0240 Head {h00=0x0020, h01=0x0050, text=»* CF A14,MPYMOD«, t00=0x0001, t01=0x0090}
0x0240…026c Head {h00=0x0028, h01=0x0050, text=»* RETURN : RESULT IN A1,A2 «, t00=0x0001, t01=0x00b4}
0x026c…02a0 Head {h00=0x0030, h01=0x0050, text=»* REGISTERS A3,A4,A6,A7, ARE CRUSHED«, t00=0x0001, t01=0x00e0}
0x02a0…02c0 Head {h00=0x001c, h01=0x0050, text=» ENTRY MPYMOD«, t00=0x0001, t01=0x0114}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…0306 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0148}
0x0306…0310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017a}
0x0310…032e Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x0184}
0x032e…0338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0012}
0x0338…036a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x001c}
0x036a…0374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0374…03ae Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0058}
0x03ae…03e0 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x0092}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c4}
0x03ea…03fe Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0002, t01=0x00ce}
0x03fe…0408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e2}
0x0408…0416 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00ec}
0x0416…042a Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x0002, t01=0x00fa}
0x042a…0440 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x010e}
0x0440…0456 Head {h00=0x0012, h01=0x0050, text=» LDK A3,0 =1 «, t00=0x0002, t01=0x0124}
0x0456…0468 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0002, t01=0x013a}
0x0468…0478 Head {h00=0x000c, h01=0x0050, text=» MUR A6 «, t00=0x0002, t01=0x014c}
0x0478…0484 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x015c}
0x0484…049a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x0168}
0x049a…04e4 Head {h00=0x0046, h01=0x0050, text=» LDK.L A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT «, t00=0x0002, t01=0x017e}
0x04e4…0504 Head {h00=0x001c, h01=0x0050, text=» CWR A3,A6 «, t00=0x0003, t01=0x0038}
0x0504…0524 Head {h00=0x001c, h01=0x0050, text=» RF(4) SUITE «, t00=0x0003, t01=0x0058}
0x0524…0544 Head {h00=0x001c, h01=0x0050, text=» CWR A3,A7 «, t00=0x0003, t01=0x0078}
0x0544…0562 Head {h00=0x001a, h01=0x0050, text=» RF(0) END3«, t00=0x0003, t01=0x0098}
0x0562…05a2 Head {h00=0x003c, h01=0x0050, text=» LDR A6,A7 * A6= X'8000' A7# X'8000'«, t00=0x0003, t01=0x00b6}
0x05a2…05da Head {h00=0x0034, h01=0x0050, text=» LDR A7,A3 * EXCHANGE A6-A7 «, t00=0x0003, t01=0x00f6}
0x05da…060c Head {h00=0x002e, h01=0x0050, text=»SUITE LDK A1,0 *INITIALISE «, t00=0x0003, t01=0x012e}
0x060c…062a Head {h00=0x001a, h01=0x0050, text=» LDK A2,0«, t00=0x0003, t01=0x0160}
0x062a…0648 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0«, t00=0x0003, t01=0x017e}
0x0648…0668 Head {h00=0x001c, h01=0x0050, text=» LDK A4,15 «, t00=0x0004, t01=0x000c}
0x0668…0686 Head {h00=0x001a, h01=0x0050, text=» ADK A6,0«, t00=0x0004, t01=0x002c}
0x0686…06a4 Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0004, t01=0x004a}
0x06a4…06c4 Head {h00=0x001c, h01=0x0050, text=» RF(6) ARG1PS«, t00=0x0004, t01=0x0068}
0x06c4…06f8 Head {h00=0x0030, h01=0x0050, text=» ADK A3,1 *ARG1 NEGATIVE«, t00=0x0004, t01=0x0088}
0x06f8…0718 Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x0004, t01=0x00bc}
0x0718…0736 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x0004, t01=0x00dc}
0x0736…0754 Head {h00=0x001a, h01=0x0050, text=»ARG1PS ADK A7,0«, t00=0x0004, t01=0x00fa}
0x0754…0772 Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0004, t01=0x0118}
0x0772…0792 Head {h00=0x001c, h01=0x0050, text=» RF(6) ARG2PS«, t00=0x0004, t01=0x0136}
0x0792…07c6 Head {h00=0x0030, h01=0x0050, text=» SUK A3,1 *ARG2 NEGATIVE«, t00=0x0004, t01=0x0156}
0x07c6…07e6 Head {h00=0x001c, h01=0x0050, text=» C1R A7,A7 «, t00=0x0004, t01=0x018a}
0x07e6…0804 Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x0005, t01=0x001a}
0x0804…0824 Head {h00=0x001c, h01=0x0050, text=» RF(3) CASSPE«, t00=0x0005, t01=0x0038}
0x0824…0842 Head {h00=0x001a, h01=0x0050, text=»ARG2PS SRC A7,1«, t00=0x0005, t01=0x0058}
0x0842…0862 Head {h00=0x001c, h01=0x0050, text=» RF(6) NOVER1«, t00=0x0005, t01=0x0076}
0x0862…0882 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A6 «, t00=0x0005, t01=0x0096}
0x0882…08a0 Head {h00=0x001a, h01=0x0050, text=»NOVER1 SRA A2,1«, t00=0x0005, t01=0x00b6}
0x08a0…08be Head {h00=0x001a, h01=0x0050, text=» SRC A1,1«, t00=0x0005, t01=0x00d4}
0x08be…08de Head {h00=0x001c, h01=0x0050, text=» RF(6) NOVER2«, t00=0x0005, t01=0x00f2}
0x08de…0900 Head {h00=0x001e, h01=0x0050, text=» ORK.L A2,/4000«, t00=0x0005, t01=0x0112}
0x0900…0922 Head {h00=0x001e, h01=0x0050, text=» ANK.L A1,/7FFF«, t00=0x0005, t01=0x0134}
0x0922…0940 Head {h00=0x001a, h01=0x0050, text=»NOVER2 SUK A4,1«, t00=0x0005, t01=0x0156}
0x0940…0960 Head {h00=0x001c, h01=0x0050, text=» RB(4) ARG2PS«, t00=0x0005, t01=0x0174}
0x0960…0998 (6, 0, 400) Head {h00=0x0034, h01=0x0050, text=»NOVER3 ADK A3,0 *END* RESTORE SI=N«, t00=0x0006, t01=0x0004}
0x0998…09b6 Head {h00=0x001a, h01=0x0050, text=» RF(0) END1«, t00=0x0006, t01=0x003c}
0x09b6…09d6 Head {h00=0x001c, h01=0x0050, text=» C1R A1,A1 «, t00=0x0006, t01=0x005a}
0x09d6…09f6 Head {h00=0x001c, h01=0x0050, text=» C1R A2,A2 «, t00=0x0006, t01=0x007a}
0x09f6…0a14 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0006, t01=0x009a}
0x0a14…0a5c Head {h00=0x0044, h01=0x0050, text=»*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR «, t00=0x0006, t01=0x00b8}
0x0a5c…0a9c Head {h00=0x003c, h01=0x0050, text=»* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (RESULT=8000)«, t00=0x0006, t01=0x0100}
0x0a9c…0aba Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x0006, t01=0x0140}
0x0aba…0ada Head {h00=0x001c, h01=0x0050, text=» RF(2) NOVER4«, t00=0x0006, t01=0x015e}
0x0ada…0af8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0006, t01=0x017e}
0x0af8…0b1a Head {h00=0x001e, h01=0x0050, text=»NOVER4 ANK.L A2,/7FFF«, t00=0x0007, t01=0x000c}
0x0b1a…0b38 Head {h00=0x001a, h01=0x0050, text=» RF(7) END2«, t00=0x0007, t01=0x002e}
0x0b38…0b4a Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0007, t01=0x004c}
0x0b4a…0b68 Head {h00=0x001a, h01=0x0050, text=» IFT CPU852=0 6813 =1 «, t00=0x0007, t01=0x005e}
0x0b68…0b80 Head {h00=0x0014, h01=0x0050, text=» RF(0) END0 =1 «, t00=0x0007, t01=0x007c}
0x0b80…0b98 Head {h00=0x0014, h01=0x0050, text=» RF(1) END1 =1 «, t00=0x0007, t01=0x0094}
0x0b98…0bb0 Head {h00=0x0014, h01=0x0050, text=» RF(2) END2 =1 «, t00=0x0007, t01=0x00ac}
0x0bb0…0bc2 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0007, t01=0x00c4}
0x0bc2…0be2 Head {h00=0x001c, h01=0x0050, text=»END3 ADK A3,/81«, t00=0x0007, t01=0x00d6}
0x0be2…0c02 Head {h00=0x001c, h01=0x0050, text=»END2 ADK A3,/81«, t00=0x0007, t01=0x00f6}
0x0c02…0c22 Head {h00=0x001c, h01=0x0050, text=»END1 ADK A3,/81«, t00=0x0007, t01=0x0116}
0x0c22…0c40 Head {h00=0x001a, h01=0x0050, text=»END0 SLL A3,1«, t00=0x0007, t01=0x0136}
0x0c40…0c62 Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0007, t01=0x0154}
0x0c62…0c84 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0007, t01=0x0176}
0x0c84…0ca6 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0008, t01=0x0008}
0x0ca6…0cec Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0008, t01=0x002a}
0x0cec…0cfc Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0008, t01=0x0070}
0x0cfc…0d1a Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0008, t01=0x0080}
0x0d1a…0d30 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0008, t01=0x009e}
0x0d30…0d6e Head {h00=0x003a, h01=0x0050, text=»CASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1«, t00=0x0008, t01=0x00b4}
0x0d6e…0da0 Head {h00=0x002e, h01=0x0050, text=»* *AND A1= A6«, t00=0x0008, t01=0x00f2}
0x0da0…0dc0 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER3«, t00=0x0008, t01=0x0124}
0x0dc0…0dcc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0144}
0x0dcc…0de0 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0008, t01=0x0150}
0x0de0…0de4 Head {h00=0x4004, h01=0x0000}
0x0de4…0de8 00 08 01 64 ┆ d┆
0x0de8…0df0 (9, 1, 8) 20 04 00 00 00 09 00 04 ┆ ┆
0x0df0…0e40 (10, 0, 400) 44 42 52 4c 45 2c 46 44 42 53 4e 52 2c 45 43 42 43 57 00 01 01 6c 00 2e 00 50 5c 45 58 54 52 4e 5c 46 44 42 52 52 4f 2c 46 44 42 43 45 58 2c 46 44 42 42 4c 46 2c 45 58 54 42 41 53 2c 42 55 46 53 4e 52 20 00 02 00 1a 00 2e 00 50 5c 45 58 54 ┆DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXT┆
0x0e40…0e90 52 4e 5c 46 44 42 4c 52 4e 2c 46 44 42 4d 52 4f 2c 46 44 42 43 52 4c 2c 46 44 42 41 44 46 2c 43 52 4e 43 49 46 20 00 02 00 4c 00 34 00 50 5c 45 58 54 52 4e 5c 44 4d 54 49 4f 54 2c 47 54 4c 47 52 4e 2c 47 54 42 4b 42 55 2c 41 44 44 4d 4f 44 ┆RN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD┆
0x0e90…0ee0 2c 43 41 4c 53 4e 4f 2c 44 4d 54 52 42 55 00 02 00 7e 00 12 00 50 5c 45 58 54 52 4e 5c 44 4d 54 49 4f 5a 20 00 02 00 b6 00 0a 00 50 5c 45 4a 45 43 54 00 02 00 cc 00 38 00 50 2a 2a 2a 2a 44 45 53 43 52 49 50 54 49 4f 4e 2a 2a 2a 2a 2a 2a 2a ┆,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******┆
0x0ee0…0f30 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 02 00 da 00 06 00 50 2a 20 00 02 01 16 00 3c 00 50 2a 20 20 20 46 4e 44 4b 4d 58 20 53 45 41 52 43 48 20 47 46 4f 52 20 41 20 57 59 4d 42 4f 4c 49 ┆****************************** P* < P* FNDKMX SEARCH GFOR A WYMBOLI┆
0x0f30…0f80 43 20 4b 45 59 20 49 4e 20 41 20 4d 41 53 54 45 52 20 49 4e 44 45 58 2e 00 02 01 20 00 3e 00 50 2a 20 20 20 41 20 42 49 4e 41 52 59 20 53 45 41 52 43 48 20 49 53 20 55 53 45 44 2e 20 52 45 46 20 3a 20 4b 4e 55 54 48 20 50 41 47 45 20 34 31 ┆C KEY IN A MASTER INDEX. > P* A BINARY SEARCH IS USED. REF : KNUTH PAGE 41┆
0x0f80…0fd0 (11, 0, 400) 31 20 41 4c 47 2e 20 55 2e 20 00 02 01 60 00 34 00 50 2a 20 20 20 54 48 45 20 53 45 41 52 43 48 20 4b 45 59 20 4d 41 59 20 42 45 20 54 45 52 4d 49 4e 41 54 45 44 20 57 49 54 48 20 41 20 2f 45 45 2e 00 03 00 12 00 30 00 50 2a 20 20 20 54 48 ┆1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* TH┆
0x0fd0…1020 45 20 46 49 52 53 54 20 54 57 4f 20 57 4f 52 44 53 20 49 4e 20 4d 41 53 54 45 52 20 49 4e 44 45 58 20 49 53 20 3a 00 03 00 4a 00 1a 00 50 2a 20 20 20 2d 20 4e 4f 20 4f 46 20 45 4e 54 52 49 45 53 20 4e 20 00 03 00 7e 00 24 00 50 2a 20 20 20 ┆E FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* ┆
0x1020…1070 2d 20 4e 4f 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 50 45 52 20 45 4e 54 52 59 00 03 00 9c 00 06 00 50 2a 20 00 03 00 c4 00 38 00 50 2a 2a 2a 2a 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 53 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆- NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS**************┆
0x1070…10c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 03 00 ce 00 06 00 50 2a 20 00 03 01 0a 00 20 00 50 2a 20 20 20 41 35 20 3d 20 4d 41 53 54 45 52 20 49 4e 44 45 58 20 41 44 52 45 53 53 00 03 01 14 00 22 00 50 2a 20 20 20 41 38 20 3d ┆****************** P* P* A5 = MASTER INDEX ADRESS " P* A8 =┆
0x10c0…1110 20 41 44 52 45 53 53 20 4f 46 20 53 45 41 52 43 48 20 4b 45 79 20 00 03 01 38 00 20 00 50 2a 20 20 20 41 31 31 20 3d 20 4e 52 20 4f 46 20 43 48 41 52 20 49 4e 20 4b 45 59 20 00 03 01 5e 00 06 00 50 2a 20 00 03 01 82 00 18 00 50 2a 20 20 20 ┆ ADRESS OF SEARCH KEy 8 P* A11 = NR OF CHAR IN KEY ^ P* P* ┆
0x1110…1160 (12, 0, 400) 43 46 20 20 20 41 31 34 2c 46 4e 44 4b 4d 58 20 00 03 01 8c 00 06 00 50 2a 20 00 04 00 18 00 38 00 50 2a 2a 2a 2a 45 58 49 54 20 50 41 52 41 4d 45 54 45 52 53 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆CF A14,FNDKMX P* 8 P****EXIT PARAMETERS***************************┆
0x1160…11b0 2a 2a 2a 2a 2a 2a 00 04 00 22 00 06 00 50 2a 20 00 04 00 5e 00 30 00 50 2a 20 20 20 41 31 2c 41 32 20 3d 20 4c 4f 44 47 49 43 41 4c 20 52 45 43 4f 52 44 20 4e 4f 20 49 4e 20 49 4e 44 45 58 20 46 49 4c 45 00 04 00 68 00 1a 00 50 2a 20 20 20 ┆****** " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* ┆
0x11b0…1200 41 38 2c 41 31 31 3d 20 55 4e 43 48 41 4e 47 45 44 20 00 04 00 9c 00 06 00 50 2a 20 00 04 00 ba 00 38 00 50 2a 2a 2a 2a 55 53 45 44 20 52 45 47 49 53 54 45 52 53 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆A8,A11= UNCHANGED P* 8 P****USED REGISTERS**************************┆
0x1200…1250 2a 2a 2a 2a 2a 2a 2a 2a 00 04 00 c4 00 06 00 50 2a 20 00 04 01 00 00 10 00 50 2a 20 20 20 41 31 20 2d 20 41 31 31 00 04 01 0a 00 0a 00 50 5c 45 4a 45 43 54 00 04 01 1e 00 10 00 50 46 4e 44 4b 4d 58 5c 45 51 55 5c 2a 00 04 01 2c 00 20 00 50 ┆******** P* P* A1 - A11 P EJECT PFNDKMX EQU * , P┆
0x1250…12a0 5c 4c 44 52 2a 5c 41 32 2c 41 35 5c 4e 4f 20 4f 46 20 45 4e 54 52 49 45 53 20 4e 20 00 04 01 40 00 22 00 50 5c 52 46 28 4e 50 29 5c 46 4e 44 30 34 35 5c 4e 4f 20 4d 41 53 54 45 52 20 49 4e 44 45 58 00 04 01 64 00 0e 00 50 5c 4c 44 52 5c 41 ┆ LDR* A2,A5 NO OF ENTRIES N @ " P RF(NP) FND045 NO MASTER INDEX d P LDR A┆