|
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: 4434 (0x1152)
Notes: pts_type(SC)
Names: »DSUMOD.SC«
└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
└─⟦this⟧ »M:92NA/DSUMOD.SC«
└─⟦this⟧ »M:92SP/DSUMOD.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »M:92OD/DSUMOD.SC«
└─⟦3a2bec7de⟧ Bits:30009687 Philips computer tape "600313"
└─⟦this⟧ »M:821/DSUMOD.SC«
└─⟦470bcbfc6⟧ Bits:30009709 Philips computer tape "M_92LP"
└─⟦this⟧ »M:92LP/DSUMOD.SC«
└─⟦6349b94c6⟧ Bits:30009684 Philips computer tape "600308"
└─⟦this⟧ »M:92D1/DSUMOD.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:92D2/DSUMOD.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »M:92NA/DSUMOD.SC«
└─⟦9af60a727⟧ Bits:30009707 Philips computer tape "M_173"
└─⟦this⟧ »M:173/DSUMOD.SC«
└─⟦this⟧ »M:173/DSUMOD.SC«
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
└─⟦this⟧ »M:92NA/DSUMOD.SC«
└─⟦this⟧ »M:92SP/DSUMOD.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/DSUMOD.SC«
IDENT DSUMOD REL 9.2 79-11-16 870105040920
* =1 RETURN CONDITION
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* TOSS DATA MANAGEMENT
*
*
*
****************************************************
* THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA
*COMPUTER
*CALLING SEQUENCE
* A1-A2 = ARG1
* A6-A7 = ARG2
* CF A14,DSUMOD
*RETURN: RESULT IN A1-A2
* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.
ENTRY DSUMOD
*
*
*****************************************
*
* CONDITIONAL ASSEMBLY
*
*****************************************
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 0
*
EJECT
DSUMOD EQU *
LDK A3,0 =1
IFF CPU852=1
DSR A6
XIF
IFT CPU852=1
* =1
C1R A6,A6
C1R A7,A7
ANK.L A7,X'7FFF'
ANK.L A2,/7FFF
ADK A7,1
RF(1) NOVER1
ADK A6,1
RF(3) OVER4
RF(7) NOVER
NOVER1 ADR A2,A7
RF(3) OVER1
NOVER ADR A1,A6
NOVER2 RF(1) END1
RF(2) END2
RF(3) END3
ADK A2,0
RF(0) END0
RF(7) END1
OVER1 ANK.L A2,X'7FFF'
ADK A1,1
RF(3) OVER4
RB(7) NOVER
OVER4 ADR A1,A6
RF(2) END3
ADK A1,0
RB(7) NOVER2
XIF =1
IFT CPU852=0 6813 =1
RF(0) END0 =1
RF(1) END1 =1
RF(2) END2 =1
XIF =1
END3 ADK A3,/80
END2 ADK A3,/80
END1 ADK A3,/80
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
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DSUMOD 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 CONDITION «, 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…01aa Head {h00=0x004c, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x015e}
0x01aa…01bc Head {h00=0x000e, h01=0x0050, text=»*COMPUTER «, t00=0x0001, t01=0x001e}
0x01bc…01d6 Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE «, t00=0x0001, t01=0x0030}
0x01d6…01fe Head {h00=0x0024, h01=0x0050, text=»* A1-A2 = ARG1 «, t00=0x0001, t01=0x004a}
0x01fe…0226 Head {h00=0x0024, h01=0x0050, text=»* A6-A7 = ARG2 «, t00=0x0001, t01=0x0072}
0x0226…024a Head {h00=0x0020, h01=0x0050, text=»* CF A14,DSUMOD«, t00=0x0001, t01=0x009a}
0x024a…0274 Head {h00=0x0026, h01=0x0050, text=»*RETURN: RESULT IN A1-A2 «, t00=0x0001, t01=0x00be}
0x0274…02ac Head {h00=0x0034, h01=0x0050, text=»* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.«, t00=0x0001, t01=0x00e8}
0x02ac…02cc Head {h00=0x001c, h01=0x0050, text=» ENTRY DSUMOD«, t00=0x0001, t01=0x0120}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d6…02e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x02e0…0312 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0154}
0x0312…031c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0186}
0x031c…033a Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x0190}
0x033a…0344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001e}
0x0344…0376 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0028}
0x0376…0380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005a}
0x0380…03ba Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0064}
0x03ba…03ec Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x009e}
0x03ec…03f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d0}
0x03f6…040a Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0002, t01=0x00da}
0x040a…0414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ee}
0x0414…0422 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00f8}
0x0422…0436 Head {h00=0x0010, h01=0x0050, text=»DSUMOD EQU *«, t00=0x0002, t01=0x0106}
0x0436…044c Head {h00=0x0012, h01=0x0050, text=» LDK A3,0 =1 «, t00=0x0002, t01=0x011a}
0x044c…0462 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x0130}
0x0462…0472 Head {h00=0x000c, h01=0x0050, text=» DSR A6 «, t00=0x0002, t01=0x0146}
0x0472…047e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0156}
0x047e…0494 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x0162}
0x0494…04a4 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0002, t01=0x0178}
0x04a4…04c4 Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x0002, t01=0x0188}
0x04c4…04e4 Head {h00=0x001c, h01=0x0050, text=» C1R A7,A7 «, t00=0x0003, t01=0x0018}
0x04e4…0508 Head {h00=0x0020, h01=0x0050, text=» ANK.L A7,X'7FFF'«, t00=0x0003, t01=0x0038}
0x0508…052a Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0003, t01=0x005c}
0x052a…0548 Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x0003, t01=0x007e}
0x0548…0568 Head {h00=0x001c, h01=0x0050, text=» RF(1) NOVER1«, t00=0x0003, t01=0x009c}
0x0568…0586 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x0003, t01=0x00bc}
0x0586…05a6 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER4 «, t00=0x0003, t01=0x00da}
0x05a6…05c6 Head {h00=0x001c, h01=0x0050, text=» RF(7) NOVER «, t00=0x0003, t01=0x00fa}
0x05c6…05e6 Head {h00=0x001c, h01=0x0050, text=»NOVER1 ADR A2,A7 «, t00=0x0003, t01=0x011a}
0x05e6…0606 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER1 «, t00=0x0003, t01=0x013a}
0x0606…0626 Head {h00=0x001c, h01=0x0050, text=»NOVER ADR A1,A6 «, t00=0x0003, t01=0x015a}
0x0626…0644 Head {h00=0x001a, h01=0x0050, text=»NOVER2 RF(1) END1«, t00=0x0003, t01=0x017a}
0x0644…0662 Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0004, t01=0x0008}
0x0662…0680 Head {h00=0x001a, h01=0x0050, text=» RF(3) END3«, t00=0x0004, t01=0x0026}
0x0680…069e Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x0004, t01=0x0044}
0x069e…06bc Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0004, t01=0x0062}
0x06bc…06da Head {h00=0x001a, h01=0x0050, text=» RF(7) END1«, t00=0x0004, t01=0x0080}
0x06da…06fe Head {h00=0x0020, h01=0x0050, text=»OVER1 ANK.L A2,X'7FFF'«, t00=0x0004, t01=0x009e}
0x06fe…071c Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0004, t01=0x00c2}
0x071c…073c Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER4 «, t00=0x0004, t01=0x00e0}
0x073c…075c Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER «, t00=0x0004, t01=0x0100}
0x075c…077c Head {h00=0x001c, h01=0x0050, text=»OVER4 ADR A1,A6 «, t00=0x0004, t01=0x0120}
0x077c…079a Head {h00=0x001a, h01=0x0050, text=» RF(2) END3«, t00=0x0004, t01=0x0140}
0x079a…07b8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0004, t01=0x015e}
0x07b8…07d8 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER2«, t00=0x0004, t01=0x017c}
0x07d8…07ea Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0005, t01=0x000c}
0x07ea…0808 Head {h00=0x001a, h01=0x0050, text=» IFT CPU852=0 6813 =1 «, t00=0x0005, t01=0x001e}
0x0808…0820 Head {h00=0x0014, h01=0x0050, text=» RF(0) END0 =1 «, t00=0x0005, t01=0x003c}
0x0820…0838 Head {h00=0x0014, h01=0x0050, text=» RF(1) END1 =1 «, t00=0x0005, t01=0x0054}
0x0838…0850 Head {h00=0x0014, h01=0x0050, text=» RF(2) END2 =1 «, t00=0x0005, t01=0x006c}
0x0850…0862 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0005, t01=0x0084}
0x0862…0884 Head {h00=0x001e, h01=0x0050, text=»END3 ADK A3,/80 «, t00=0x0005, t01=0x0096}
0x0884…08a6 Head {h00=0x001e, h01=0x0050, text=»END2 ADK A3,/80 «, t00=0x0005, t01=0x00b8}
0x08a6…08c8 Head {h00=0x001e, h01=0x0050, text=»END1 ADK A3,/80 «, t00=0x0005, t01=0x00da}
0x08c8…0912 Head {h00=0x0046, h01=0x0050, text=»END0 SLL A3,1 ************************************* «, t00=0x0005, t01=0x00fc}
0x0912…0934 Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0005, t01=0x0146}
0x0934…0956 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0005, t01=0x0168}
0x0956…0978 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0005, t01=0x018a}
0x0978…09be Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0006, t01=0x001c}
0x09be…09ce Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0006, t01=0x0062}
0x09ce…09ec Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0006, t01=0x0072}
0x09ec…0a00 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0006, t01=0x0090}
0x0a00…0a04 Head {h00=0x4004, h01=0x0000}
0x0a04…0a08 00 06 00 a4 ┆ ┆
0x0a08…0a10 (7, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆
0x0a10…0a60 (8, 0, 400) 00 30 00 50 5c 49 44 45 4e 54 20 44 4d 46 44 42 20 5c 52 45 4c 20 39 2e 32 20 37 39 2d 31 31 2d 31 36 20 20 38 37 30 31 30 35 30 34 30 39 32 30 00 00 00 04 00 04 00 50 00 00 00 38 00 04 00 50 00 00 00 40 00 06 00 50 2a 20 00 00 00 48 00 06 ┆ 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H ┆
0x0a60…0ab0 00 50 2a 20 00 00 00 52 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 5c 00 06 00 50 2a 20 00 00 00 98 00 24 ┆ P* R 8 P**************************************************** P* $┆
0x0ab0…0b00 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 52 4d 49 4e 41 4c 20 53 59 53 54 45 4d 20 20 50 54 53 00 00 00 a2 00 06 00 50 2a 20 00 00 00 ca 00 2c 00 50 2a 20 20 20 44 4d 46 44 42 20 20 3d 20 46 49 4c 45 20 44 45 53 43 52 49 50 54 4f 52 ┆ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR┆
0x0b00…0b50 20 42 4c 4f 43 4b 53 20 20 46 44 42 00 00 00 d4 00 06 00 50 2a 20 00 00 01 04 00 06 00 50 2a 20 00 00 01 0e 00 06 00 50 2a 20 00 00 01 18 00 06 00 50 2a 20 00 00 01 22 00 06 00 50 2a 20 00 00 01 2c 00 06 00 50 2a 20 00 00 01 36 00 38 00 50 ┆ BLOCKS FDB P* P* P* P* " P* , P* 6 8 P┆
0x0b50…0ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 01 40 00 06 00 50 2a 20 00 00 01 7c 00 1a 00 50 2a 20 20 20 41 4c 4c 4f 43 41 ┆**************************************************** @ P* | P* ALLOCA┆
0x0ba0…0bf0 (9, 0, 400) 54 45 20 46 44 42 20 41 52 45 41 20 00 00 01 86 00 48 00 50 2a 20 20 20 42 59 20 4d 45 41 4e 53 20 4f 46 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 51 46 44 42 41 52 20 57 4f 52 44 53 20 57 49 4c 4c 20 42 45 20 41 4c ┆TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE AL┆
0x0bf0…0c40 4c 4f 43 41 54 45 44 20 00 01 00 14 00 06 00 50 2a 20 00 01 00 60 00 12 00 50 5c 45 4e 54 52 59 5c 46 44 42 53 54 41 20 00 01 00 6a 00 12 00 50 5c 45 4e 54 52 59 5c 46 44 42 45 4e 44 20 00 01 00 80 00 12 00 50 5c 45 4e 54 52 59 5c 51 46 44 ┆LOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFD┆
0x0c40…0c90 42 46 4c 20 00 01 00 96 00 18 00 50 5c 45 4e 54 52 59 5c 43 52 4e 51 55 45 2c 43 52 42 55 46 4c 00 01 00 ac 00 12 00 50 5c 45 4e 54 52 59 5c 43 52 4e 45 4e 44 20 00 01 00 c8 00 10 00 50 5c 45 4e 54 52 59 5c 4d 58 49 4e 44 00 01 00 de 00 0a ┆BFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND ┆
0x0c90…0ce0 00 50 5c 45 4a 45 43 54 00 01 00 f2 00 06 00 50 2a 20 00 01 01 00 00 36 00 50 2a 20 20 20 4d 58 53 49 5a 20 49 53 20 54 48 45 20 53 49 5a 45 20 4f 46 20 54 48 45 20 4d 41 53 54 45 52 20 49 4e 44 45 58 20 41 52 45 41 20 49 4e 20 00 01 01 0a ┆ P EJECT P* 6 P* MXSIZ IS THE SIZE OF THE MASTER INDEX AREA IN ┆
0x0ce0…0d30 00 0e 00 50 2a 20 20 20 57 4f 52 44 53 20 00 01 01 44 00 06 00 50 2a 20 00 01 01 56 00 0e 00 50 58 3a 43 5c 45 51 55 5c 30 20 00 01 01 60 00 24 00 50 4d 58 53 49 5a 5c 45 51 55 5c 58 3a 43 5c 4d 41 53 54 45 52 20 49 4e 44 45 58 20 41 52 45 ┆ P* WORDS D P* V PX:C EQU 0 ` $ PMXSIZ EQU X:C MASTER INDEX ARE┆
0x0d30…0d80 (10, 0, 400) 41 20 00 01 01 72 00 22 00 50 43 52 42 55 46 4c 5c 45 51 55 5c 31 32 5c 53 49 5a 45 20 43 52 4e 20 42 55 46 46 45 52 20 00 02 00 0a 00 06 00 50 2a 20 00 02 00 30 00 3c 00 50 2a 20 20 20 43 52 4e 42 41 52 20 49 53 20 54 48 45 20 53 49 5a 45 ┆A r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 0 < P* CRNBAR IS THE SIZE┆
0x0d80…0dd0 20 4f 46 20 54 48 45 20 43 52 4e 20 42 55 46 46 45 52 20 41 52 45 52 41 20 49 4e 20 57 4f 52 44 53 20 00 02 00 3a 00 34 00 50 2a 20 20 20 57 48 45 52 45 20 43 52 42 55 46 4c 20 42 59 54 45 53 20 41 52 45 20 55 53 45 44 20 46 4f 52 20 45 41 ┆ OF THE CRN BUFFER ARERA IN WORDS : 4 P* WHERE CRBUFL BYTES ARE USED FOR EA┆
0x0dd0…0e20 43 48 20 42 55 46 46 45 52 20 00 02 00 7a 00 06 00 50 2a 20 00 02 00 b2 00 0e 00 50 58 3a 42 5c 45 51 55 5c 35 30 00 02 00 bc 00 20 00 50 43 52 4e 42 41 52 5c 45 51 55 5c 58 3a 42 5c 43 55 52 52 45 4e 43 59 20 41 52 45 41 00 02 00 ce 00 06 ┆CH BUFFER z P* PX:B EQU 50 PCRNBAR EQU X:B CURRENCY AREA ┆
0x0e20…0e70 00 50 2a 20 00 02 00 f2 00 06 00 50 2a 20 00 02 00 fc 00 10 00 50 58 3a 41 5c 45 51 55 5c 32 35 30 20 00 02 01 06 00 06 00 50 2a 20 00 02 01 1a 00 34 00 50 2a 20 20 20 51 46 44 42 41 52 20 49 53 20 54 45 48 45 20 53 49 5a 45 20 4f 46 20 54 ┆ P* P* PX:A EQU 250 P* 4 P* QFDBAR IS TEHE SIZE OF T┆
0x0e70…0ec0 48 45 20 46 44 42 20 41 52 45 41 20 49 4e 20 57 4f 52 44 53 00 02 01 24 00 30 00 50 2a 20 20 20 57 48 45 52 45 20 51 46 44 42 46 4c 20 42 59 54 45 53 20 41 52 45 20 55 53 45 44 20 46 4f 52 20 45 41 43 48 20 46 44 42 00 02 01 5c 00 06 00 50 ┆HE FDB AREA IN WORDS $ 0 P* WHERE QFDBFL BYTES ARE USED FOR EACH FDB P┆
0x0ec0…0f10 (11, 0, 400) 2a 20 00 02 01 90 00 12 00 50 51 46 44 42 41 52 5c 45 51 55 5c 58 3a 41 00 03 00 0a 00 06 00 50 2a 20 00 03 00 20 00 0e 00 50 58 3a 44 5c 45 51 55 5c 39 36 00 03 00 2a 00 26 00 50 51 46 44 42 46 4c 5c 45 51 55 5c 58 3a 44 5c 46 44 42 20 46 ┆* PQFDBAR EQU X:A P* PX:D EQU 96 * & PQFDBFL EQU X:D FDB F┆
0x0f10…0f60 49 58 20 50 41 52 54 20 4c 45 4e 47 54 48 00 03 00 3c 00 06 00 50 2a 20 00 03 00 66 00 0a 00 50 5c 45 4a 45 43 54 00 03 00 70 00 06 00 50 2a 20 00 03 00 7e 00 10 00 50 46 44 42 53 54 41 5c 45 51 55 5c 2a 00 03 00 88 00 10 00 50 5c 52 45 53 ┆IX PART LENGTH < P* f P EJECT p P* ~ PFDBSTA EQU * P RES┆
0x0f60…0fb0 5c 51 46 44 42 41 52 20 00 03 00 9c 00 10 00 50 46 44 42 45 4e 44 5c 45 51 55 5c 2a 00 03 00 b0 00 20 00 50 43 52 4e 51 55 45 5c 44 41 54 41 5c 30 5c 43 52 4e 20 4c 49 4e 4b 20 52 4f 4f 54 20 00 03 00 c4 00 10 00 50 5c 52 45 53 5c 43 52 4e ┆ QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRN┆
0x0fb0…1000 42 41 52 20 00 03 00 e8 00 10 00 50 43 52 4e 45 4e 44 5c 45 51 55 5c 2a 00 03 00 fc 00 2a 00 50 4d 58 49 4e 44 5c 44 41 54 41 5c 4d 58 49 4e 44 45 2d 2a 5c 4c 45 4e 47 54 48 20 49 4e 44 45 58 20 49 4e 44 45 58 00 03 01 10 00 20 00 50 5c 44 ┆BAR PCRNEND EQU * * PMXIND DATA MXINDE-* LENGTH INDEX INDEX P D┆
0x1000…1050 41 54 41 5c 4d 58 41 52 5c 4d 41 53 54 45 52 20 49 4e 44 45 58 20 41 44 44 52 00 03 01 3e 00 22 00 50 5c 44 41 54 41 5c 4d 58 53 49 5a 5c 4d 41 53 54 45 52 20 49 4e 44 45 58 20 53 49 45 5a 45 00 03 01 62 00 10 00 50 5c 49 46 46 5c 4d 58 53 ┆ATA MXAR MASTER INDEX ADDR > " P DATA MXSIZ MASTER INDEX SIEZE b P IFF MXS┆
0x1050…10a0 (12, 2, 258) 49 5a 3d 30 00 03 01 88 00 2a 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 04 00 0c 00 2a 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c ┆IZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,┆
0x10a0…10f0 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 04 00 3a 00 08 00 50 5c 58 49 46 00 04 00 68 00 20 00 50 4d 58 49 4e 44 45 5c 45 51 55 5c 2a 5c 45 4e 44 20 49 4e 44 45 58 20 49 4e 44 45 58 00 04 00 74 00 32 00 50 5c 44 41 54 41 5c 30 2c ┆0,0,0,0,0,0,0,0 : P XIF h PMXINDE EQU * END INDEX INDEX t 2 P DATA 0,┆
0x10f0…1140 30 5c 53 49 47 4e 49 46 49 43 41 4e 54 20 5a 45 52 4f 45 53 20 41 46 54 45 52 20 49 4e 44 45 58 49 4e 44 45 58 20 00 04 00 98 00 0e 00 50 4d 58 41 52 5c 45 51 55 5c 2a 00 04 00 ce 00 0e 00 50 5c 52 45 53 5c 4d 58 53 49 5a 00 04 00 e0 00 08 ┆0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ ┆
0x1140…1152 00 50 5c 45 4e 44 00 04 00 f2 40 04 00 00 00 04 00 fe ┆ P END @ ┆