|
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: 4388 (0x1124)
Notes: pts_type(SC)
Names: »ADDMOD.SC«
└─⟦7e2393f80⟧ Bits:30009710 Philips computer tape "M_KONV"
└─⟦this⟧ »M:KONV/ADDMOD.SC«
└─⟦7f25f14aa⟧ Bits:30009683 Philips computer tape "600307"
└─⟦this⟧ »M:92F4/ADDMOD.SC«
└─⟦f740ae34d⟧ Bits:30009708 Philips computer tape "M_92F3"
└─⟦this⟧ »M:92F3/ADDMOD.SC«
IDENT ADDMOD REL 9.2 79-11-16 870105040920
* =1 RETURN CONDITION
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* TOSS DATA MANAGEMENT
*
*
*
****************************************************
* THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA
* COMPUTER
*CALLING SEQUENCE:
* A1-A2 = ARG1
* AG-A7 = ARG2
* CF A14,ADDMOD
*RETURN : RESULT IN A1-A2
* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.
ENTRY ADDMOD
*
*
*****************************************
*
* CONDITIONAL ASSEMBLY
*
*****************************************
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 1
*
EJECT
ADDMOD EQU *
LDK A3,0 =1
IFF CPU852=1
DAR A6
XIF
IFT CPU852=1
* =1
ANK.L A7,/7FFF
ANK.L A2,/7FFF
ADR A2,A7
RF(3) OVER1
NOVER ADR A1,A6 * NO OVERFLOW
RF(1) END1
RF(2) END2
RF(3) END3
NOVER1 ADK A2,0
RF(0) END0
RF(7) END1
OVER1 ANK.L A2,/7FFF
ADK A1,1
RF(3) OVER3
RB(7) NOVER
OVER3 ADR A1,A6
RF(2) END3
ADK A1,0
RF(1) END1
RB(7) NOVER1
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 ADDMOD 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…01a6 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x015e}
0x01a6…01b8 Head {h00=0x000e, h01=0x0050, text=»* COMPUTER«, t00=0x0001, t01=0x001a}
0x01b8…01d2 Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE:«, t00=0x0001, t01=0x002c}
0x01d2…01fa Head {h00=0x0024, h01=0x0050, text=»* A1-A2 = ARG1 «, t00=0x0001, t01=0x0046}
0x01fa…0222 Head {h00=0x0024, h01=0x0050, text=»* AG-A7 = ARG2 «, t00=0x0001, t01=0x006e}
0x0222…0246 Head {h00=0x0020, h01=0x0050, text=»* CF A14,ADDMOD«, t00=0x0001, t01=0x0096}
0x0246…0270 Head {h00=0x0026, h01=0x0050, text=»*RETURN : RESULT IN A1-A2 «, t00=0x0001, t01=0x00ba}
0x0270…02a8 Head {h00=0x0034, h01=0x0050, text=»* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.«, t00=0x0001, t01=0x00e4}
0x02a8…02c8 Head {h00=0x001c, h01=0x0050, text=» ENTRY ADDMOD«, t00=0x0001, t01=0x011c}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d2…02dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0146}
0x02dc…030e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0150}
0x030e…0318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0318…0336 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x018c}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001a}
0x0340…0372 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0024}
0x0372…037c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0056}
0x037c…03b6 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0060}
0x03b6…03e8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x009a}
0x03e8…03f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00cc}
0x03f2…0406 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0002, t01=0x00d6}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…041e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00f4}
0x041e…0432 Head {h00=0x0010, h01=0x0050, text=»ADDMOD EQU *«, t00=0x0002, t01=0x0102}
0x0432…0448 Head {h00=0x0012, h01=0x0050, text=» LDK A3,0 =1 «, t00=0x0002, t01=0x0116}
0x0448…045e Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x012c}
0x045e…046e Head {h00=0x000c, h01=0x0050, text=» DAR A6 «, t00=0x0002, t01=0x0142}
0x046e…047a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0152}
0x047a…0490 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x015e}
0x0490…04a0 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0002, t01=0x0174}
0x04a0…04c2 Head {h00=0x001e, h01=0x0050, text=» ANK.L A7,/7FFF«, t00=0x0002, t01=0x0184}
0x04c2…04e4 Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0003, t01=0x0016}
0x04e4…0504 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A7 «, t00=0x0003, t01=0x0038}
0x0504…0524 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER1 «, t00=0x0003, t01=0x0058}
0x0524…0558 Head {h00=0x0030, h01=0x0050, text=»NOVER ADR A1,A6 * NO OVERFLOW «, t00=0x0003, t01=0x0078}
0x0558…0576 Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0003, t01=0x00ac}
0x0576…0594 Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0003, t01=0x00ca}
0x0594…05b2 Head {h00=0x001a, h01=0x0050, text=» RF(3) END3«, t00=0x0003, t01=0x00e8}
0x05b2…05d0 Head {h00=0x001a, h01=0x0050, text=»NOVER1 ADK A2,0«, t00=0x0003, t01=0x0106}
0x05d0…05ee Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0003, t01=0x0124}
0x05ee…060c Head {h00=0x001a, h01=0x0050, text=» RF(7) END1«, t00=0x0003, t01=0x0142}
0x060c…062e Head {h00=0x001e, h01=0x0050, text=»OVER1 ANK.L A2,/7FFF«, t00=0x0003, t01=0x0160}
0x062e…064c Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0003, t01=0x0182}
0x064c…066c Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER3 «, t00=0x0004, t01=0x0010}
0x066c…068c Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER «, t00=0x0004, t01=0x0030}
0x068c…06ac Head {h00=0x001c, h01=0x0050, text=»OVER3 ADR A1,A6 «, t00=0x0004, t01=0x0050}
0x06ac…06ca Head {h00=0x001a, h01=0x0050, text=» RF(2) END3«, t00=0x0004, t01=0x0070}
0x06ca…06e8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0004, t01=0x008e}
0x06e8…0706 Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0004, t01=0x00ac}
0x0706…0726 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER1«, t00=0x0004, t01=0x00ca}
0x0726…0738 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0004, t01=0x00ea}
0x0738…0756 Head {h00=0x001a, h01=0x0050, text=» IFT CPU852=0 6813 =1 «, t00=0x0004, t01=0x00fc}
0x0756…076e Head {h00=0x0014, h01=0x0050, text=» RF(0) END0 =1 «, t00=0x0004, t01=0x011a}
0x076e…0786 Head {h00=0x0014, h01=0x0050, text=» RF(1) END1 =1 «, t00=0x0004, t01=0x0132}
0x0786…079e Head {h00=0x0014, h01=0x0050, text=» RF(2) END2 =1 «, t00=0x0004, t01=0x014a}
0x079e…07b0 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0004, t01=0x0162}
0x07b0…07d2 Head {h00=0x001e, h01=0x0050, text=»END3 ADK A3,/80 «, t00=0x0004, t01=0x0174}
0x07d2…07f4 Head {h00=0x001e, h01=0x0050, text=»END2 ADK A3,/80 «, t00=0x0005, t01=0x0008}
0x07f4…0816 Head {h00=0x001e, h01=0x0050, text=»END1 ADK A3,/80 «, t00=0x0005, t01=0x002a}
0x0816…085c Head {h00=0x0042, h01=0x0050, text=»END0 SLL A3,1 **********************************«, t00=0x0005, t01=0x004c}
0x085c…087e Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0005, t01=0x0092}
0x087e…08a0 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0005, t01=0x00b4}
0x08a0…08c2 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0005, t01=0x00d6}
0x08c2…0908 Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0005, t01=0x00f8}
0x0908…0918 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0005, t01=0x013e}
0x0918…0936 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0005, t01=0x014e}
0x0936…094a Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0005, t01=0x016c}
0x094a…094e Head {h00=0x4004, h01=0x0000}
0x094e…0952 00 05 01 80 ┆ ┆
0x0952…095a (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x095a…09aa (7, 0, 400) 2a 20 00 26 01 90 00 06 00 50 2a 20 00 27 00 0a 00 3e 00 50 2a 20 20 20 46 49 4e 44 20 41 20 46 52 45 45 20 45 4e 54 52 59 20 49 4e 20 54 54 41 42 2f 43 44 3a 54 41 42 20 28 46 43 20 41 4e 44 20 44 57 54 41 44 52 20 3d 20 30 20 29 20 00 27 ┆* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) '┆
0x09aa…09fa 00 14 00 06 00 50 2a 20 00 27 00 56 00 10 00 50 54 41 53 31 38 30 5c 45 51 55 5c 2a 00 27 00 60 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 27 00 74 00 14 00 50 5c 4c 44 52 5c 41 31 30 2c 41 31 30 5c 54 43 20 00 27 00 86 00 20 00 50 5c 52 ┆ P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P R┆
0x09fa…0a4a 46 28 5a 29 5c 54 41 53 31 38 35 5c 47 4c 4f 42 41 4c 20 41 53 53 49 47 4e 20 00 27 00 9e 00 1c 00 50 5c 4c 44 5c 41 32 2c 54 41 53 54 54 41 5c 54 54 41 42 20 41 44 44 52 20 00 27 00 c2 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 27 00 e2 ┆F(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' ┆
0x0a4a…0a9a 00 14 00 50 5c 4c 44 5c 41 32 2c 54 54 42 3a 54 44 2c 41 34 00 27 00 f4 00 16 00 50 5c 41 44 4b 4c 5c 41 34 2c 54 54 42 3a 54 44 2b 31 20 00 27 01 0c 00 0e 00 50 5c 52 46 5c 54 41 53 31 39 30 00 27 01 26 00 10 00 50 54 41 53 31 38 35 5c 45 ┆ P LD A2,TTB:TD,A4 ' P ADKL A4,TTB:TD+1 ' P RF TAS190 ' & PTAS185 E┆
0x0a9a…0aea 51 55 5c 2a 00 27 01 38 00 12 00 50 5c 4c 44 5c 41 34 2c 53 43 54 43 44 54 20 00 27 01 4c 00 10 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 34 20 00 27 01 62 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 31 20 00 27 01 76 00 14 00 50 54 41 53 31 39 30 5c 53 ┆QU * ' 8 P LD A4,SCTCDT ' L P LDR* A2,A4 ' b P ADK A4,1 ' v PTAS190 S┆
0x0aea…0b3a (8, 0, 400) 55 4b 5c 41 32 2c 34 20 00 27 01 88 00 28 00 50 5c 52 46 28 4c 29 5c 54 41 53 53 45 32 5c 4e 4f 20 46 52 45 45 20 45 4e 54 52 59 20 49 4e 20 54 41 42 4c 45 00 28 00 10 00 0e 00 50 5c 4c 44 52 5c 41 39 2c 41 34 00 28 00 3c 00 0e 00 50 5c 41 ┆UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P A┆
0x0b3a…0b8a 44 52 5c 41 39 2c 41 32 00 28 00 4e 00 18 00 50 5c 43 43 52 5c 41 31 2c 41 39 5c 46 49 4c 45 20 43 4f 44 45 00 28 00 60 00 22 00 50 5c 52 42 28 4e 45 29 5c 54 41 53 31 39 30 5c 46 43 20 4e 4f 54 20 45 51 55 41 4c 20 30 20 00 28 00 7c 00 10 ┆DR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | ┆
0x0b8a…0bda 00 50 5c 43 57 5c 41 31 2c 31 2c 41 39 20 00 28 00 a2 00 26 00 50 5c 52 42 28 4e 45 29 5c 54 41 53 31 39 30 5c 44 57 54 41 44 52 20 4e 4f 54 20 45 51 55 41 4c 20 30 20 00 28 00 b6 00 1e 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 38 5c 41 53 42 4c ┆ P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBL┆
0x0bda…0c2a 4b 20 31 53 54 20 57 4f 52 44 00 28 00 e0 00 1e 00 50 5c 52 46 28 4e 29 5c 54 41 53 31 39 35 5c 41 53 53 49 47 4e 20 49 4e 44 45 58 00 28 01 02 00 2a 00 50 5c 4f 52 4b 4c 5c 41 33 2c 2f 31 30 30 5c 49 4e 44 45 58 20 3d 20 31 20 46 4f 52 20 ┆K 1ST WORD ( P RF(N) TAS195 ASSIGN INDEX ( * P ORKL A3,/100 INDEX = 1 FOR ┆
0x0c2a…0c7a 44 41 54 41 20 46 49 4c 45 20 00 28 01 24 00 10 00 50 54 41 53 31 39 35 5c 45 51 55 5c 2a 00 28 01 52 00 30 00 50 5c 53 54 5c 41 33 2c 2d 31 2c 41 39 5c 53 45 54 20 49 4e 44 45 58 20 41 4e 44 20 46 43 20 49 4e 20 46 52 45 45 20 45 4e 54 52 ┆DATA FILE ( $ PTAS195 EQU * ( R 0 P ST A3,-1,A9 SET INDEX AND FC IN FREE ENTR┆
0x0c7a…0cca (9, 0, 400) 59 20 00 28 01 66 00 1c 00 50 5c 53 54 5c 41 39 2c 54 41 53 54 42 45 5c 53 41 56 45 20 45 4e 54 52 59 00 29 00 0a 00 06 00 50 2a 20 00 29 00 2a 00 30 00 50 2a 20 20 20 47 45 54 20 46 49 52 53 54 20 56 4f 4c 55 4d 45 20 41 4e 44 20 41 43 54 ┆Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACT┆
0x0cca…0d1a 49 56 41 54 45 20 49 54 53 20 44 4d 54 41 53 4b 00 29 00 34 00 06 00 50 2a 20 00 29 00 68 00 12 00 50 5c 4c 44 5c 41 31 2c 54 41 53 43 56 4f 20 00 29 00 72 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 30 20 00 29 00 88 00 14 00 50 5c 4c 43 5c 41 37 ┆IVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7┆
0x0d1a…0d6a 2c 54 41 53 56 4f 4c 2c 41 31 00 29 00 9a 00 1c 00 50 5c 41 44 4b 4c 5c 41 37 2c 27 23 44 27 5c 54 49 44 20 44 4d 54 41 53 4b 00 29 00 b2 00 12 00 50 5c 43 46 5c 41 31 35 2c 46 4e 44 54 49 44 00 29 00 d2 00 22 00 50 5c 4c 44 52 5c 41 35 2c ┆,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,┆
0x0d6a…0dba 41 32 5c 54 54 41 42 20 41 44 44 52 45 53 53 20 44 4d 54 41 53 4b 00 29 00 e8 00 1e 00 50 5c 52 46 28 4e 5a 29 5c 54 41 53 32 30 30 5c 54 54 41 42 20 46 4f 55 4e 44 20 00 29 01 0e 00 0a 00 50 5c 45 4a 45 43 54 00 29 01 30 00 06 00 50 2a 20 ┆A2 TTAB ADDRESS DMTASK ) P RF(NZ) TAS200 TTAB FOUND ) P EJECT ) 0 P* ┆
0x0dba…0e0a 00 29 01 3e 00 26 00 50 2a 20 20 20 46 4c 45 58 44 49 53 43 20 44 4d 54 41 53 4b 20 44 4f 45 53 20 4e 4f 54 20 45 58 49 53 54 00 29 01 48 00 06 00 50 2a 20 00 29 01 72 00 1a 00 50 5c 43 4d 5c 2d 31 2c 41 39 5c 52 45 4d 4f 56 45 20 45 4e 54 ┆ ) > & P* FLEXDISC DMTASK DOES NOT EXIST ) H P* ) r P CM -1,A9 REMOVE ENT┆
0x0e0a…0e5a (10, 0, 400) 52 59 00 29 01 7c 00 1a 00 50 5c 4c 44 4b 5c 41 37 2c 34 5c 56 4f 4c 20 55 4e 4b 4e 4f 57 4e 20 00 2a 00 0a 00 0e 00 50 5c 52 46 5c 54 41 53 53 45 4d 00 2a 00 28 00 10 00 50 54 41 53 32 30 30 5c 45 51 55 5c 2a 00 2a 00 3a 00 0e 00 50 5c 4c ┆RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P L┆
0x0e5a…0eaa 44 4b 5c 41 32 2c 32 20 00 2a 00 4e 00 34 00 50 5c 53 54 5c 41 32 2c 54 41 53 46 49 4c 5c 4d 41 53 54 45 52 20 49 4e 44 45 58 20 4c 4f 4f 50 20 49 44 45 4e 54 20 49 4e 20 44 4d 54 53 41 4b 20 00 2a 00 60 00 26 00 50 5c 4c 44 4b 4c 5c 41 32 ┆DK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2┆
0x0eaa…0efa 2c 44 4d 54 41 53 53 5c 41 53 53 49 47 4e 20 49 4e 44 45 58 20 45 4e 54 52 59 00 2a 00 98 00 10 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 38 20 00 2a 00 c2 00 1e 00 50 5c 52 46 28 4e 29 5c 54 41 53 32 31 30 5c 49 4e 44 45 58 20 41 53 53 49 47 4e ┆,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN┆
0x0efa…0f4a 00 2a 00 d6 00 0e 00 50 5c 43 4d 5c 54 41 53 46 49 4c 00 2a 00 f8 00 10 00 50 54 41 53 32 31 30 5c 45 51 55 5c 2a 00 2a 01 0a 00 2c 00 50 5c 43 4d 5c 54 41 53 46 44 42 5c 3d 30 20 49 4e 44 49 43 41 54 45 53 20 45 58 54 20 23 30 20 4e 4f 54 ┆ * P CM TASFIL * PTAS210 EQU * * , P CM TASFDB =0 INDICATES EXT #0 NOT┆
0x0f4a…0f9a 20 46 4f 55 4e 44 00 2a 01 1e 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 2a 01 4e 00 2a 00 50 2a 20 20 20 41 31 3d 50 41 52 2c 41 32 3d 41 44 52 2c 41 33 3d 53 45 47 4d 2c 41 35 3d 54 54 41 42 20 41 44 44 52 00 2a 01 60 00 22 00 50 5c 43 ┆ FOUND * P LDK A3,0 * N * P* A1=PAR,A2=ADR,A3=SEGM,A5=TTAB ADDR * ` " P C┆
0x0f9a…0fea (11, 2, 386) 46 5c 41 31 35 2c 41 43 54 4f 54 5c 41 43 54 49 56 41 54 45 20 44 4d 54 41 53 4b 20 00 2a 01 8e 00 20 00 50 5c 41 42 4c 5c 54 44 49 53 50 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 00 2b 00 24 00 0a 00 50 5c 45 4a 45 43 54 00 2b ┆F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT +┆
0x0fea…103a 00 48 00 06 00 50 2a 20 00 2b 00 56 00 16 00 50 2a 20 20 20 45 52 52 4f 52 20 52 45 54 55 52 4e 53 20 00 2b 00 60 00 06 00 50 2a 20 00 2b 00 7a 00 14 00 50 54 41 53 53 45 35 5c 41 44 4b 5c 41 37 2c 31 20 00 2b 00 84 00 14 00 50 54 41 53 53 ┆ H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASS┆
0x103a…108a 45 34 5c 41 44 4b 5c 41 37 2c 31 20 00 2b 00 9c 00 14 00 50 54 41 53 53 45 33 5c 41 44 4b 5c 41 37 2c 31 20 00 2b 00 b4 00 14 00 50 54 41 53 53 45 32 5c 41 44 4b 5c 41 37 2c 31 20 00 2b 00 cc 00 14 00 50 54 41 53 53 45 31 5c 41 44 4b 5c 41 ┆E4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A┆
0x108a…10da 37 2c 31 20 00 2b 00 e4 00 0e 00 50 5c 41 44 4b 5c 41 37 2c 31 20 00 2b 00 fc 00 10 00 50 54 41 53 53 45 4d 5c 45 51 55 5c 2a 00 2b 01 0e 00 26 00 50 5c 43 46 5c 41 31 34 2c 54 41 53 43 41 51 5c 43 48 45 43 4b 20 41 53 53 49 47 4e 20 51 55 ┆7,1 + P ADK A7,1 + PTASSEM EQU * + & P CF A14,TASCAQ CHECK ASSIGN QU┆
0x10da…111c 45 55 45 20 00 2b 01 22 00 22 00 50 5c 41 42 4c 5c 4c 4b 4d 51 44 49 5c 51 55 45 55 45 20 41 4e 44 20 44 49 53 50 41 54 43 48 00 2b 01 4c 00 08 00 50 5c 45 4e 44 00 2b 01 72 40 04 00 00 00 2b 01 7e ┆EUE + " " P ABL LKMQDI QUEUE AND DISPATCH + L P END + r@ + ~┆
0x111c…1124 (12, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆