|
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: 4690 (0x1252)
Notes: pts_type(SC)
Names: »ADDMOD.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/ADDMOD.SC«
IDENT ADDMOD REL 10.0 80-03-14 870105041000
*
****************************************************
*
* 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 0
*
EJECT
ADDMOD EQU *
LDK A3,0
IFF CPU852=1
DAR A6
XIF
IFT CPU852=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
IFF CPU852=1
RF(0) END0
RF(1) END1
RF(2) END2
XIF
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
RTN A14
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT ADDMOD REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0084 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x004c}
0x0084…008e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00b6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0092}
0x00b6…00c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00e0 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00c4}
0x00e0…00ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…013a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0102}
0x013a…0186 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x013e}
0x0186…0198 Head {h00=0x000e, h01=0x0050, text=»* COMPUTER«, t00=0x0000, t01=0x018a}
0x0198…01b2 Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE:«, t00=0x0001, t01=0x000c}
0x01b2…01da Head {h00=0x0024, h01=0x0050, text=»* A1-A2 = ARG1 «, t00=0x0001, t01=0x0026}
0x01da…0202 Head {h00=0x0024, h01=0x0050, text=»* AG-A7 = ARG2 «, t00=0x0001, t01=0x004e}
0x0202…0226 Head {h00=0x0020, h01=0x0050, text=»* CF A14,ADDMOD«, t00=0x0001, t01=0x0076}
0x0226…0250 Head {h00=0x0026, h01=0x0050, text=»*RETURN : RESULT IN A1-A2 «, t00=0x0001, t01=0x009a}
0x0250…0288 Head {h00=0x0034, h01=0x0050, text=»* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.«, t00=0x0001, t01=0x00c4}
0x0288…02a8 Head {h00=0x001c, h01=0x0050, text=» ENTRY ADDMOD«, t00=0x0001, t01=0x00fc}
0x02a8…02b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02bc…02ee Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0130}
0x02ee…02f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0162}
0x02f8…0316 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x016c}
0x0316…0320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x0320…0352 (2, 0, 400) Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0004}
0x0352…035c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035c…0396 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0040}
0x0396…03c8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x007a}
0x03c8…03d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ac}
0x03d2…03e6 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0002, t01=0x00b6}
0x03e6…03f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ca}
0x03f0…03fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00d4}
0x03fe…0412 Head {h00=0x0010, h01=0x0050, text=»ADDMOD EQU *«, t00=0x0002, t01=0x00e2}
0x0412…0424 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0002, t01=0x00f6}
0x0424…043a Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x0108}
0x043a…044a Head {h00=0x000c, h01=0x0050, text=» DAR A6 «, t00=0x0002, t01=0x011e}
0x044a…0456 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x012e}
0x0456…046c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x013a}
0x046c…048e Head {h00=0x001e, h01=0x0050, text=» ANK.L A7,/7FFF«, t00=0x0002, t01=0x0150}
0x048e…04b0 Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0002, t01=0x0172}
0x04b0…04d0 (3, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ADR A2,A7 «, t00=0x0003, t01=0x0004}
0x04d0…04f0 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER1 «, t00=0x0003, t01=0x0024}
0x04f0…0524 Head {h00=0x0030, h01=0x0050, text=»NOVER ADR A1,A6 * NO OVERFLOW «, t00=0x0003, t01=0x0044}
0x0524…0542 Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0003, t01=0x0078}
0x0542…0560 Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0003, t01=0x0096}
0x0560…057e Head {h00=0x001a, h01=0x0050, text=» RF(3) END3«, t00=0x0003, t01=0x00b4}
0x057e…059c Head {h00=0x001a, h01=0x0050, text=»NOVER1 ADK A2,0«, t00=0x0003, t01=0x00d2}
0x059c…05ba Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0003, t01=0x00f0}
0x05ba…05d8 Head {h00=0x001a, h01=0x0050, text=» RF(7) END1«, t00=0x0003, t01=0x010e}
0x05d8…05fa Head {h00=0x001e, h01=0x0050, text=»OVER1 ANK.L A2,/7FFF«, t00=0x0003, t01=0x012c}
0x05fa…0618 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0003, t01=0x014e}
0x0618…0638 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER3 «, t00=0x0003, t01=0x016c}
0x0638…0658 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER «, t00=0x0003, t01=0x018c}
0x0658…0678 Head {h00=0x001c, h01=0x0050, text=»OVER3 ADR A1,A6 «, t00=0x0004, t01=0x001c}
0x0678…0696 Head {h00=0x001a, h01=0x0050, text=» RF(2) END3«, t00=0x0004, t01=0x003c}
0x0696…06b4 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0004, t01=0x005a}
0x06b4…06d2 Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0004, t01=0x0078}
0x06d2…06f2 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER1«, t00=0x0004, t01=0x0096}
0x06f2…06fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x00b6}
0x06fe…0714 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0004, t01=0x00c2}
0x0714…0728 Head {h00=0x0010, h01=0x0050, text=» RF(0) END0 «, t00=0x0004, t01=0x00d8}
0x0728…073c Head {h00=0x0010, h01=0x0050, text=» RF(1) END1 «, t00=0x0004, t01=0x00ec}
0x073c…0750 Head {h00=0x0010, h01=0x0050, text=» RF(2) END2 «, t00=0x0004, t01=0x0100}
0x0750…075c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0114}
0x075c…077e Head {h00=0x001e, h01=0x0050, text=»END3 ADK A3,/80 «, t00=0x0004, t01=0x0120}
0x077e…07a0 Head {h00=0x001e, h01=0x0050, text=»END2 ADK A3,/80 «, t00=0x0004, t01=0x0142}
0x07a0…07c2 Head {h00=0x001e, h01=0x0050, text=»END1 ADK A3,/80 «, t00=0x0004, t01=0x0164}
0x07c2…0808 Head {h00=0x0042, h01=0x0050, text=»END0 SLL A3,1 **********************************«, t00=0x0004, t01=0x0186}
0x0808…082a Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0005, t01=0x003c}
0x082a…084c Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0005, t01=0x005e}
0x084c…086e Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0005, t01=0x0080}
0x086e…08b4 Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0005, t01=0x00a2}
0x08b4…08d2 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0005, t01=0x00e8}
0x08d2…08e6 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0005, t01=0x0106}
0x08e6…08ea Head {h00=0x4004, h01=0x0000}
0x08ea…08ee 00 05 01 1a ┆ ┆
0x08ee…08f6 (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x08f6…0946 (7, 0, 400) 41 31 34 2c 4d 4f 56 3a 53 55 00 36 01 8c 00 08 00 50 5c 58 49 46 00 37 00 12 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 37 00 1e 00 16 00 50 5c 4c 44 52 5c 41 32 2c 41 33 5c 4c 45 4e 47 54 48 20 00 37 00 34 00 1c 00 50 5c 4c ┆A14,MOV:SU 6 P XIF 7 P IFT MMUPAG=0 7 P LDR A2,A3 LENGTH 7 4 P L┆
0x0946…0996 44 5c 41 33 2c 45 43 42 42 41 2c 41 34 5c 54 4f 20 41 44 44 52 20 00 37 00 4e 00 20 00 50 5c 41 44 4b 5c 41 33 2c 46 50 42 52 45 53 5c 52 45 53 45 52 56 45 44 20 49 54 45 4d 00 37 00 6e 00 16 00 50 5c 43 46 5c 41 31 34 2c 44 4d 54 42 4d 5c ┆D A3,ECBBA,A4 TO ADDR 7 N P ADK A3,FPBRES RESERVED ITEM 7 n P CF A14,DMTBM ┆
0x0996…09e6 4d 4f 56 45 00 37 00 92 00 08 00 50 5c 58 49 46 00 37 00 ac 00 06 00 50 2a 20 00 37 00 b8 00 24 00 50 2a 20 20 20 41 44 4a 55 53 54 20 46 49 4c 45 20 4e 41 4d 45 20 46 4f 52 20 49 4e 44 45 58 45 53 00 37 00 c2 00 06 00 50 2a 20 00 37 00 ea ┆MOVE 7 P XIF 7 P* 7 $ P* ADJUST FILE NAME FOR INDEXES 7 P* 7 ┆
0x09e6…0a36 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 39 00 37 00 f4 00 1e 00 50 5c 41 44 4b 4c 5c 41 31 2c 46 50 42 3a 46 4e 5c 46 52 4f 4d 20 41 44 44 52 20 00 37 01 06 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 31 00 37 01 28 00 10 00 50 5c 41 44 4b 5c 41 ┆ P LDR A1,A9 7 P ADKL A1,FPB:FN FROM ADDR 7 P LDR A3,A1 7 ( P ADK A┆
0x0a36…0a86 33 2c 32 5c 54 4f 00 37 01 3a 00 18 00 50 5c 4c 44 4b 5c 41 32 2c 36 5c 4e 4f 20 4f 46 20 43 48 41 52 00 37 01 4e 00 18 00 50 5c 43 46 5c 41 31 34 2c 44 4d 54 42 4d 52 5c 4d 4f 56 45 20 00 37 01 6a 00 10 00 50 5c 41 42 4c 5c 4f 50 45 37 30 ┆3,2 TO 7 : P LDK A2,6 NO OF CHAR 7 N P CF A14,DMTBMR MOVE 7 j P ABL OPE70┆
0x0a86…0ad6 (8, 0, 400) 30 20 00 37 01 86 00 0a 00 50 5c 45 4a 45 43 54 00 38 00 0a 00 18 00 50 4f 50 45 39 30 30 5c 45 51 55 5c 2a 5c 46 49 4e 49 53 48 20 00 38 00 18 00 26 00 50 5c 4c 44 5c 41 31 31 2c 4f 50 45 46 57 54 5c 46 44 42 20 41 44 44 52 20 44 41 54 41 ┆0 7 P EJECT 8 POPE900 EQU * FINISH 8 & P LD A11,OPEFWT FDB ADDR DATA┆
0x0ad6…0b26 20 46 49 4c 45 20 00 38 00 34 00 14 00 50 5c 43 57 4b 5c 41 31 30 2c 46 44 42 53 54 41 20 00 38 00 5e 00 26 00 50 5c 52 46 28 4e 45 29 5c 4f 50 45 39 39 30 5c 52 45 41 44 20 46 49 4c 45 20 50 41 52 20 4f 52 44 45 52 00 38 00 76 00 06 00 50 ┆ FILE 8 4 P CWK A10,FDBSTA 8 ^ & P RF(NE) OPE990 READ FILE PAR ORDER 8 v P┆
0x0b26…0b76 2a 20 00 38 00 a0 00 28 00 50 2a 20 20 20 53 54 4f 52 45 20 46 44 42 20 41 44 44 52 45 53 53 45 53 20 49 4e 20 41 4c 4c 20 46 44 42 27 53 00 38 00 aa 00 06 00 50 2a 20 00 38 00 d6 00 1e 00 50 5c 4c 44 4b 5c 41 35 2c 31 30 5c 4e 52 20 4f 46 ┆* 8 ( P* STORE FDB ADDRESSES IN ALL FDB'S 8 P* 8 P LDK A5,10 NR OF┆
0x0b76…0bc6 20 46 49 4c 45 53 20 2a 20 32 00 38 00 e0 00 10 00 50 44 4d 54 36 32 35 5c 45 51 55 5c 2a 00 38 01 02 00 0e 00 50 5c 53 55 4b 5c 41 35 2c 32 20 00 38 01 16 00 22 00 50 5c 52 46 28 4e 29 5c 44 4d 54 36 33 35 5c 41 4c 4c 20 46 44 42 20 55 50 ┆ FILES * 2 8 PDMT625 EQU * 8 P SUK A5,2 8 " P RF(N) DMT635 ALL FDB UP┆
0x0bc6…0c16 50 44 41 54 45 44 00 38 01 28 00 04 00 50 00 38 01 4e 00 24 00 50 5c 4c 44 5c 41 33 2c 4f 50 45 46 57 54 2c 41 35 5c 46 44 42 20 41 44 44 52 20 49 4e 44 45 58 20 00 38 01 56 00 20 00 50 5c 52 42 28 5a 29 5c 44 4d 54 36 32 35 5c 4e 4f 20 49 ┆PDATED 8 ( P 8 N $ P LD A3,OPEFWT,A5 FDB ADDR INDEX 8 V P RB(Z) DMT625 NO I┆
0x0c16…0c66 (9, 0, 398) 4e 44 45 58 20 46 49 4c 45 20 00 38 01 7e 00 1e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4f 50 45 46 57 54 5c 46 52 4f 4d 20 41 44 44 52 20 00 39 00 12 00 1c 00 50 5c 41 44 4b 4c 5c 41 33 2c 46 44 42 41 44 46 5c 54 4f 20 41 44 44 52 20 00 39 00 34 ┆NDEX FILE 8 ~ P LDKL A1,OPEFWT FROM ADDR 9 P ADKL A3,FDBADF TO ADDR 9 4┆
0x0c66…0cb6 00 1a 00 50 5c 4c 44 4b 5c 41 32 2c 31 30 5c 4e 4f 20 4f 46 20 42 59 54 45 53 00 39 00 54 00 1e 00 50 5c 43 46 5c 41 31 34 2c 44 4d 54 57 4d 5c 4d 4f 56 45 20 35 20 57 4f 52 44 53 00 39 00 72 00 0e 00 50 5c 52 42 5c 44 4d 54 36 32 35 00 39 ┆ P LDK A2,10 NO OF BYTES 9 T P CF A14,DMTWM MOVE 5 WORDS 9 r P RB DMT625 9┆
0x0cb6…0d06 00 94 00 10 00 50 44 4d 54 36 33 35 5c 45 51 55 5c 2a 00 39 00 a6 00 06 00 50 2a 20 00 39 00 ba 00 26 00 50 2a 20 20 20 43 4f 4e 4e 45 43 54 20 46 49 4c 45 20 43 4f 44 45 20 4f 46 20 44 41 54 41 20 46 49 4c 45 00 39 00 c4 00 06 00 50 2a 20 ┆ PDMT635 EQU * 9 P* 9 & P* CONNECT FILE CODE OF DATA FILE 9 P* ┆
0x0d06…0d56 00 39 00 ee 00 20 00 50 5c 4c 44 2a 5c 41 32 2c 44 57 54 45 43 42 2c 41 31 30 5c 46 49 4c 45 20 43 4f 44 45 00 39 00 f8 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 46 20 00 39 01 1c 00 16 00 50 5c 53 43 5c 41 32 2c 4f 50 45 46 43 44 5c 53 41 ┆ 9 P LD* A2,DWTECB,A10 FILE CODE 9 P ANK A2,/FF 9 P SC A2,OPEFCD SA┆
0x0d56…0da4 56 45 00 39 01 30 00 1c 00 50 5c 4c 44 4b 5c 41 35 2c 30 5c 54 54 41 42 20 41 4e 44 20 43 44 54 41 42 00 39 01 4a 00 24 00 50 5c 4c 44 5c 41 31 2c 44 57 54 54 41 42 2c 41 31 30 5c 55 53 45 52 20 54 54 41 42 20 41 44 44 52 00 39 01 6a ┆VE 9 0 P LDK A5,0 TTAB AND CDTAB 9 J $ P LD A1,DWTTAB,A10 USER TTAB ADDR 9 j┆
0x0da4…0df4 (10, 0, 400) 00 12 00 50 5c 43 46 5c 41 31 34 2c 46 4e 44 46 44 42 00 3a 00 04 00 1a 00 50 5c 53 54 5c 41 31 31 2c 32 2c 41 34 5c 46 57 54 20 41 44 44 52 20 00 3a 00 1a 00 06 00 50 2a 20 00 3a 00 38 00 1e 00 50 2a 20 20 20 52 45 4d 4f 56 45 20 43 55 52 ┆ P CF A14,FNDFDB : P ST A11,2,A4 FWT ADDR : P* : 8 P* REMOVE CUR┆
0x0df4…0e44 52 45 4e 43 59 20 42 55 46 46 45 52 00 3a 00 42 00 06 00 50 2a 20 00 3a 00 64 00 10 00 50 5c 4c 44 52 5c 41 31 2c 41 31 30 20 00 3a 00 6e 00 1e 00 50 5c 43 46 5c 41 31 34 2c 43 52 4e 47 45 54 5c 41 44 44 52 20 49 4e 20 41 32 20 00 3a 00 82 ┆RENCY BUFFER : B P* : d P LDR A1,A10 : n P CF A14,CRNGET ADDR IN A2 : ┆
0x0e44…0e94 00 18 00 50 5c 41 44 4b 4c 5c 41 31 2c 46 44 42 43 52 4c 5c 52 4f 4f 54 00 3a 00 a4 00 08 00 50 5c 49 4e 48 00 3a 00 c0 00 10 00 50 4f 50 45 39 34 30 5c 45 51 55 5c 2a 00 3a 00 cc 00 1c 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 31 5c 4e 45 58 54 ┆ P ADKL A1,FDBCRL ROOT : P INH : POPE940 EQU * : P LDR* A3,A1 NEXT┆
0x0e94…0ee4 20 42 55 46 46 45 52 20 00 3a 00 e0 00 0e 00 50 5c 43 57 52 5c 41 33 2c 41 32 00 3a 01 00 00 16 00 50 5c 52 46 28 45 29 5c 4f 50 45 39 35 30 5c 54 48 49 53 00 3a 01 12 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 33 00 3a 01 2c 00 0e 00 50 5c 52 ┆ BUFFER : P CWR A3,A2 : P RF(E) OPE950 THIS : P LDR A1,A3 : , P R┆
0x0ee4…0f34 42 5c 4f 50 45 39 34 30 00 3a 01 3e 00 10 00 50 4f 50 45 39 35 30 5c 45 51 55 5c 2a 00 3a 01 50 00 14 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 33 5c 4e 45 58 54 00 3a 01 64 00 0e 00 50 5c 53 54 52 5c 41 34 2c 41 31 00 3a 01 7c 00 12 00 50 5c 4c ┆B OPE940 : > POPE950 EQU * : P P LDR* A4,A3 NEXT : d P STR A4,A1 : | P L┆
0x0f34…0f84 (11, 0, 398) 44 5c 41 33 2c 43 52 4e 51 55 45 20 00 3a 01 8e 00 0e 00 50 5c 53 54 52 5c 41 33 2c 41 32 00 3b 00 14 00 12 00 50 5c 53 54 5c 41 32 2c 43 52 4e 51 55 45 20 00 3b 00 26 00 0e 00 50 5c 45 4e 42 5c 5c 5c 3d 31 20 00 3b 00 3c 00 10 00 50 4f 50 ┆D A3,CRNQUE : P STR A3,A2 ; P ST A2,CRNQUE ; & P ENB =1 ; < POP┆
0x0f84…0fd4 45 39 39 30 5c 45 51 55 5c 2a 00 3b 00 4e 00 06 00 50 2a 20 00 3b 00 62 00 32 00 50 2a 20 20 20 43 48 45 43 4b 20 55 53 45 52 20 53 49 5a 45 20 41 4e 44 20 55 50 44 41 54 45 20 50 41 52 41 4d 45 54 45 52 20 42 4c 4f 43 4b 00 3b 00 6c 00 06 ┆E990 EQU * ; N P* ; b 2 P* CHECK USER SIZE AND UPDATE PARAMETER BLOCK ; l ┆
0x0fd4…1024 00 50 2a 20 00 3b 00 a2 00 12 00 50 5c 4c 44 4b 5c 41 31 2c 46 50 42 3a 49 56 00 3b 00 ac 00 22 00 50 5c 4c 43 5c 41 32 2c 46 44 42 4e 49 46 2c 41 31 31 5c 4e 52 20 4f 46 20 49 4e 44 45 58 20 00 3b 00 c2 00 0e 00 50 5c 41 4e 4b 5c 41 32 2c ┆ P* ; P LDK A1,FPB:IV ; " P LC A2,FDBNIF,A11 NR OF INDEX ; P ANK A2,┆
0x1024…1074 2f 46 00 3b 00 e8 00 12 00 50 5c 49 46 54 5c 49 4e 44 58 41 43 3d 31 20 00 3b 00 fa 00 12 00 50 5c 52 46 28 5a 29 5c 4f 50 45 39 39 34 20 00 3b 01 10 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 3b 01 26 00 0e 00 50 5c 53 4c 4c 5c 41 32 2c ┆/F ; P IFT INDXAC=1 ; P RF(Z) OPE994 ; P LDR A3,A2 ; & P SLL A2,┆
0x1074…10c2 33 20 00 3b 01 38 00 0e 00 50 5c 53 4c 4c 5c 41 33 2c 32 20 00 3b 01 4a 00 1c 00 50 5c 41 44 52 5c 41 32 2c 41 33 5c 4d 55 4c 54 20 57 49 54 48 20 31 32 20 00 3b 01 5c 00 12 00 50 5c 41 44 4b 5c 41 32 2c 46 50 42 3a 49 31 00 3b 01 7c ┆3 ; 8 P SLL A3,2 ; J P ADR A2,A3 MULT WITH 12 ; P ADK A2,FPB:I1 ; |┆
0x10c2…1112 (12, 0, 400) 00 22 00 50 5c 53 55 52 5c 41 32 2c 41 31 5c 4d 41 58 20 4e 52 20 4f 46 20 52 45 4d 20 43 48 41 52 20 00 3c 00 04 00 10 00 50 4f 50 45 39 39 34 5c 45 51 55 5c 2a 00 3c 00 2a 00 08 00 50 5c 58 49 46 00 3c 00 3e 00 18 00 50 5c 41 44 52 5c 41 ┆ " P SUR A2,A1 MAX NR OF REM CHAR < POPE994 EQU * < * P XIF < > P ADR A┆
0x1112…1162 31 2c 41 39 5c 46 52 4f 4d 20 41 44 44 52 00 3c 00 4a 00 1e 00 50 5c 4c 44 5c 41 33 2c 44 57 54 45 43 42 2c 41 31 30 5c 55 53 45 52 20 45 43 42 00 3c 00 66 00 1c 00 50 5c 4c 44 5c 41 34 2c 45 43 42 52 4c 2c 41 33 5c 54 4f 54 20 4c 47 54 48 ┆1,A9 FROM ADDR < J P LD A3,DWTECB,A10 USER ECB < f P LD A4,ECBRL,A3 TOT LGTH┆
0x1162…11b2 00 3c 00 88 00 1a 00 50 5c 53 55 4b 5c 41 34 2c 46 50 42 3a 49 56 2b 46 50 42 52 45 53 20 00 3c 00 a8 00 18 00 50 5c 43 57 52 5c 41 32 2c 41 34 5c 52 45 4d 20 4c 47 54 48 20 00 3c 00 c6 00 20 00 50 5c 52 46 28 4e 47 29 5c 4f 50 45 39 39 35 ┆ < P SUK A4,FPB:IV+FPBRES < P CWR A2,A4 REM LGTH < P RF(NG) OPE995┆
0x11b2…1202 5c 54 41 4b 45 20 53 48 4f 52 54 45 53 54 00 3c 00 e2 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 34 00 3c 01 06 00 10 00 50 4f 50 45 39 39 35 5c 45 51 55 5c 2a 00 3c 01 18 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 3c 01 2c 00 1a 00 50 5c 41 ┆ TAKE SHORTEST < P LDR A2,A4 < POPE995 EQU * < P LDR A4,A2 < , P A┆
0x1202…1252 44 4b 5c 41 34 2c 46 50 42 3a 49 56 2b 46 50 42 52 45 53 20 00 3c 01 3e 00 22 00 50 5c 53 54 5c 41 34 2c 45 43 42 45 4c 2c 41 33 5c 53 45 54 20 45 46 46 20 4c 45 4e 47 54 48 00 3c 01 5c 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 ┆DK A4,FPB:IV+FPBRES < > " P ST A4,ECBEL,A3 SET EFF LENGTH < P IFT MMUPAG=0 ┆