|
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: 4682 (0x124a)
Notes: pts_type(SC)
Names: »MPYMOD.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/MPYMOD.SC«
IDENT MPYMOD REL 10.0 80-03-14 870105041000
*
****************************************************
*
* 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
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
IFF CPU852=1
RF(0) END0
RF(1) END1
RF(2) END2
XIF
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
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 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…0188 Head {h00=0x004a, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION ON THE ALPLA COMPUTER«, t00=0x0000, t01=0x013e}
0x0188…01a4 Head {h00=0x0018, h01=0x0050, text=»* CALLING SEQUENCE: «, t00=0x0000, t01=0x018c}
0x01a4…01d0 Head {h00=0x0028, h01=0x0050, text=»* LD A6,ARG1 «, t00=0x0001, t01=0x0018}
0x01d0…01fc Head {h00=0x0028, h01=0x0050, text=»* LD A7,ARG1 «, t00=0x0001, t01=0x0044}
0x01fc…0220 Head {h00=0x0020, h01=0x0050, text=»* CF A14,MPYMOD«, t00=0x0001, t01=0x0070}
0x0220…024c Head {h00=0x0028, h01=0x0050, text=»* RETURN : RESULT IN A1,A2 «, t00=0x0001, t01=0x0094}
0x024c…0280 Head {h00=0x0030, h01=0x0050, text=»* REGISTERS A3,A4,A6,A7, ARE CRUSHED«, t00=0x0001, t01=0x00c0}
0x0280…02a0 Head {h00=0x001c, h01=0x0050, text=» ENTRY MPYMOD«, t00=0x0001, t01=0x00f4}
0x02a0…02aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02aa…02b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x02b4…02e6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0128}
0x02e6…02f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…030e Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x0164}
0x030e…0318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0318…034a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x018c}
0x034a…0354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0354…038e Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0038}
0x038e…03c0 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x0072}
0x03c0…03ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03ca…03de Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0002, t01=0x00ae}
0x03de…03e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c2}
0x03e8…03f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00cc}
0x03f6…040a Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x0002, t01=0x00da}
0x040a…0420 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x00ee}
0x0420…0432 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0002, t01=0x0104}
0x0432…0444 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0002, t01=0x0116}
0x0444…0454 Head {h00=0x000c, h01=0x0050, text=» MUR A6 «, t00=0x0002, t01=0x0128}
0x0454…0460 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0138}
0x0460…0476 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x0144}
0x0476…04c0 Head {h00=0x0046, h01=0x0050, text=» LDK.L A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT «, t00=0x0002, t01=0x015a}
0x04c0…04e0 Head {h00=0x001c, h01=0x0050, text=» CWR A3,A6 «, t00=0x0003, t01=0x0014}
0x04e0…0500 Head {h00=0x001c, h01=0x0050, text=» RF(4) SUITE «, t00=0x0003, t01=0x0034}
0x0500…0520 Head {h00=0x001c, h01=0x0050, text=» CWR A3,A7 «, t00=0x0003, t01=0x0054}
0x0520…053e Head {h00=0x001a, h01=0x0050, text=» RF(0) END3«, t00=0x0003, t01=0x0074}
0x053e…057e Head {h00=0x003c, h01=0x0050, text=» LDR A6,A7 * A6= X'8000' A7# X'8000'«, t00=0x0003, t01=0x0092}
0x057e…05b6 Head {h00=0x0034, h01=0x0050, text=» LDR A7,A3 * EXCHANGE A6-A7 «, t00=0x0003, t01=0x00d2}
0x05b6…05e8 Head {h00=0x002e, h01=0x0050, text=»SUITE LDK A1,0 *INITIALISE «, t00=0x0003, t01=0x010a}
0x05e8…0606 Head {h00=0x001a, h01=0x0050, text=» LDK A2,0«, t00=0x0003, t01=0x013c}
0x0606…0624 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0«, t00=0x0003, t01=0x015a}
0x0624…0644 Head {h00=0x001c, h01=0x0050, text=» LDK A4,15 «, t00=0x0003, t01=0x0178}
0x0644…0662 Head {h00=0x001a, h01=0x0050, text=» ADK A6,0«, t00=0x0004, t01=0x0008}
0x0662…0680 Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0004, t01=0x0026}
0x0680…06a0 Head {h00=0x001c, h01=0x0050, text=» RF(6) ARG1PS«, t00=0x0004, t01=0x0044}
0x06a0…06d4 Head {h00=0x0030, h01=0x0050, text=» ADK A3,1 *ARG1 NEGATIVE«, t00=0x0004, t01=0x0064}
0x06d4…06f4 Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x0004, t01=0x0098}
0x06f4…0712 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x0004, t01=0x00b8}
0x0712…0730 Head {h00=0x001a, h01=0x0050, text=»ARG1PS ADK A7,0«, t00=0x0004, t01=0x00d6}
0x0730…074e Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0004, t01=0x00f4}
0x074e…076e Head {h00=0x001c, h01=0x0050, text=» RF(6) ARG2PS«, t00=0x0004, t01=0x0112}
0x076e…07a2 Head {h00=0x0030, h01=0x0050, text=» SUK A3,1 *ARG2 NEGATIVE«, t00=0x0004, t01=0x0132}
0x07a2…07c2 Head {h00=0x001c, h01=0x0050, text=» C1R A7,A7 «, t00=0x0004, t01=0x0166}
0x07c2…07e0 Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x0004, t01=0x0186}
0x07e0…0800 Head {h00=0x001c, h01=0x0050, text=» RF(3) CASSPE«, t00=0x0005, t01=0x0014}
0x0800…081e Head {h00=0x001a, h01=0x0050, text=»ARG2PS SRC A7,1«, t00=0x0005, t01=0x0034}
0x081e…083e Head {h00=0x001c, h01=0x0050, text=» RF(6) NOVER1«, t00=0x0005, t01=0x0052}
0x083e…085e Head {h00=0x001c, h01=0x0050, text=» ADR A1,A6 «, t00=0x0005, t01=0x0072}
0x085e…087c Head {h00=0x001a, h01=0x0050, text=»NOVER1 SRA A2,1«, t00=0x0005, t01=0x0092}
0x087c…089a Head {h00=0x001a, h01=0x0050, text=» SRC A1,1«, t00=0x0005, t01=0x00b0}
0x089a…08ba Head {h00=0x001c, h01=0x0050, text=» RF(6) NOVER2«, t00=0x0005, t01=0x00ce}
0x08ba…08dc Head {h00=0x001e, h01=0x0050, text=» ORK.L A2,/4000«, t00=0x0005, t01=0x00ee}
0x08dc…08fe Head {h00=0x001e, h01=0x0050, text=» ANK.L A1,/7FFF«, t00=0x0005, t01=0x0110}
0x08fe…091c Head {h00=0x001a, h01=0x0050, text=»NOVER2 SUK A4,1«, t00=0x0005, t01=0x0132}
0x091c…093c Head {h00=0x001c, h01=0x0050, text=» RB(4) ARG2PS«, t00=0x0005, t01=0x0150}
0x093c…0974 Head {h00=0x0034, h01=0x0050, text=»NOVER3 ADK A3,0 *END* RESTORE SI=N«, t00=0x0005, t01=0x0170}
0x0974…0992 Head {h00=0x001a, h01=0x0050, text=» RF(0) END1«, t00=0x0006, t01=0x0018}
0x0992…09b2 Head {h00=0x001c, h01=0x0050, text=» C1R A1,A1 «, t00=0x0006, t01=0x0036}
0x09b2…09d2 Head {h00=0x001c, h01=0x0050, text=» C1R A2,A2 «, t00=0x0006, t01=0x0056}
0x09d2…09f0 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0006, t01=0x0076}
0x09f0…0a38 Head {h00=0x0044, h01=0x0050, text=»*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR «, t00=0x0006, t01=0x0094}
0x0a38…0a78 Head {h00=0x003c, h01=0x0050, text=»* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (RESULT=8000)«, t00=0x0006, t01=0x00dc}
0x0a78…0a96 Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x0006, t01=0x011c}
0x0a96…0ab6 Head {h00=0x001c, h01=0x0050, text=» RF(2) NOVER4«, t00=0x0006, t01=0x013a}
0x0ab6…0ad4 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0006, t01=0x015a}
0x0ad4…0af6 Head {h00=0x001e, h01=0x0050, text=»NOVER4 ANK.L A2,/7FFF«, t00=0x0006, t01=0x0178}
0x0af6…0b14 Head {h00=0x001a, h01=0x0050, text=» RF(7) END2«, t00=0x0007, t01=0x000a}
0x0b14…0b20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0028}
0x0b20…0b36 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0007, t01=0x0034}
0x0b36…0b4a Head {h00=0x0010, h01=0x0050, text=» RF(0) END0 «, t00=0x0007, t01=0x004a}
0x0b4a…0b5e Head {h00=0x0010, h01=0x0050, text=» RF(1) END1 «, t00=0x0007, t01=0x005e}
0x0b5e…0b72 Head {h00=0x0010, h01=0x0050, text=» RF(2) END2 «, t00=0x0007, t01=0x0072}
0x0b72…0b7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0086}
0x0b7e…0b9e Head {h00=0x001c, h01=0x0050, text=»END3 ADK A3,/81«, t00=0x0007, t01=0x0092}
0x0b9e…0bbe Head {h00=0x001c, h01=0x0050, text=»END2 ADK A3,/81«, t00=0x0007, t01=0x00b2}
0x0bbe…0bde Head {h00=0x001c, h01=0x0050, text=»END1 ADK A3,/81«, t00=0x0007, t01=0x00d2}
0x0bde…0bfc Head {h00=0x001a, h01=0x0050, text=»END0 SLL A3,1«, t00=0x0007, t01=0x00f2}
0x0bfc…0c1e Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0007, t01=0x0110}
0x0c1e…0c40 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0007, t01=0x0132}
0x0c40…0c62 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0007, t01=0x0154}
0x0c62…0ca8 Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0007, t01=0x0176}
0x0ca8…0cc6 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0008, t01=0x002c}
0x0cc6…0cdc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0008, t01=0x004a}
0x0cdc…0d1a Head {h00=0x003a, h01=0x0050, text=»CASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1«, t00=0x0008, t01=0x0060}
0x0d1a…0d4c Head {h00=0x002e, h01=0x0050, text=»* *AND A1= A6«, t00=0x0008, t01=0x009e}
0x0d4c…0d6c Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER3«, t00=0x0008, t01=0x00d0}
0x0d6c…0d78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00f0}
0x0d78…0d8c Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0008, t01=0x00fc}
0x0d8c…0d90 Head {h00=0x4004, h01=0x0000}
0x0d90…0d94 00 08 01 10 ┆ ┆
0x0d94…0d9c (9, 1, 8) 20 04 00 00 00 09 00 04 ┆ ┆
0x0d9c…0dec (10, 0, 398) 54 45 52 53 3a 20 00 21 01 82 00 10 00 50 2a 20 20 20 41 31 20 2d 41 31 32 20 00 22 00 0e 00 06 00 50 2a 20 00 22 00 22 00 0c 00 50 2a 20 20 20 4f 55 54 3a 00 22 00 2c 00 1c 00 50 2a 20 20 20 41 35 20 3d 20 46 44 42 20 41 44 44 52 20 49 4e ┆TERS: ! P* A1 -A12 " P* " " P* OUT: " , P* A5 = FDB ADDR IN┆
0x0dec…0e3c 44 45 58 20 00 22 00 3c 00 1c 00 50 2a 20 20 20 41 31 30 2c 41 31 31 20 3d 20 55 4e 43 48 41 4e 47 45 44 20 00 22 00 5c 00 06 00 50 2a 20 00 22 00 7c 00 10 00 50 43 52 4e 55 50 44 5c 45 51 55 5c 2a 00 22 00 86 00 10 00 50 5c 53 54 52 5c 41 ┆DEX " < P* A10,A11 = UNCHANGED " P* " | PCRNUPD EQU * " P STR A┆
0x0e3c…0e8c 31 32 2c 41 31 34 00 22 00 9a 00 10 00 50 5c 53 55 4b 4c 5c 41 31 34 2c 32 20 00 22 00 ae 00 24 00 50 5c 4c 44 5c 41 31 32 2c 46 44 42 41 44 46 2c 41 35 5c 46 44 42 20 44 41 54 41 20 46 49 4c 45 20 00 22 00 c2 00 08 00 50 5c 49 4e 48 00 22 ┆12,A14 " P SUKL A14,2 " $ P LD A12,FDBADF,A5 FDB DATA FILE " P INH "┆
0x0e8c…0edc 00 ea 00 24 00 50 5c 4c 44 5c 41 31 32 2c 46 44 42 43 52 4c 2c 41 31 32 5c 43 52 4e 20 4c 49 4e 4b 20 52 4f 4f 54 00 22 00 f6 00 0e 00 50 5c 52 46 5c 43 52 55 31 32 30 00 22 01 1e 00 18 00 50 43 52 55 31 30 30 5c 4c 44 52 2a 5c 41 31 32 2c ┆ $ P LD A12,FDBCRL,A12 CRN LINK ROOT " P RF CRU120 " PCRU100 LDR* A12,┆
0x0edc…0f2a 41 31 32 20 00 22 01 30 00 24 00 50 43 52 55 31 32 30 5c 52 46 28 5a 29 5c 43 52 55 39 30 30 5c 45 4e 44 20 4f 46 20 4c 49 4e 4b 20 00 22 01 4c 00 1e 00 50 5c 4c 43 5c 41 37 2c 46 57 54 46 4e 52 2c 41 35 5c 46 49 4c 45 20 43 4f 44 45 ┆A12 " 0 $ PCRU120 RF(Z) CRU900 END OF LINK " L P LC A7,FWTFNR,A5 FILE CODE┆
0x0f2a…0f7a (11, 0, 400) 00 22 01 74 00 16 00 50 5c 43 43 5c 41 37 2c 43 52 4e 43 49 46 2c 41 31 32 20 00 23 00 08 00 1c 00 50 5c 52 42 28 4e 45 29 5c 43 52 55 31 30 30 5c 57 52 4f 4e 47 20 46 43 20 00 23 00 22 00 18 00 50 5c 43 43 5c 41 31 30 2c 43 52 4e 43 49 46 ┆ " t P CC A7,CRNCIF,A12 # P RB(NE) CRU100 WRONG FC # " P CC A10,CRNCIF┆
0x0f7a…0fca 2b 31 2c 41 31 32 00 23 00 42 00 12 00 50 5c 52 42 28 47 29 5c 43 52 55 31 30 30 20 00 23 00 5e 00 12 00 50 5c 52 46 28 4c 29 5c 43 52 55 32 30 30 20 00 23 00 74 00 18 00 50 5c 43 57 5c 41 31 31 2c 43 52 4e 43 49 46 2b 32 2c 41 31 32 00 23 ┆+1,A12 # B P RB(G) CRU100 # ^ P RF(L) CRU200 # t P CW A11,CRNCIF+2,A12 #┆
0x0fca…101a 00 8a 00 12 00 50 5c 52 42 28 47 29 5c 43 52 55 31 30 30 20 00 23 00 a6 00 10 00 50 43 52 55 32 30 30 5c 45 51 55 5c 2a 00 23 00 bc 00 18 00 50 5c 43 43 5c 41 38 2c 43 52 4e 43 49 46 2b 31 2c 41 31 32 20 00 23 00 d0 00 12 00 50 5c 52 46 28 ┆ P RB(G) CRU100 # PCRU200 EQU * # P CC A8,CRNCIF+1,A12 # P RF(┆
0x101a…106a 47 29 5c 43 52 55 33 30 30 20 00 23 00 ec 00 12 00 50 5c 52 42 28 4c 29 5c 43 52 55 31 30 30 20 00 23 01 02 00 18 00 50 5c 43 57 5c 41 39 2c 43 52 4e 43 49 46 2b 32 2c 41 31 32 20 00 23 01 18 00 12 00 50 5c 52 42 28 4c 29 5c 43 52 55 31 30 ┆G) CRU300 # P RB(L) CRU100 # P CW A9,CRNCIF+2,A12 # P RB(L) CRU10┆
0x106a…10ba 30 20 00 23 01 34 00 10 00 50 43 52 55 33 30 30 5c 45 51 55 5c 2a 00 23 01 4a 00 06 00 50 2a 20 00 23 01 5e 00 12 00 50 2a 20 20 20 55 50 44 41 54 45 20 43 52 4e 00 23 01 68 00 06 00 50 2a 20 00 23 01 7e 00 1a 00 50 5c 4c 44 5c 41 37 2c 32 ┆0 # 4 PCRU300 EQU * # J P* # ^ P* UPDATE CRN # h P* # ~ P LD A7,2┆
0x10ba…110a (12, 0, 400) 2c 41 31 34 5c 41 44 44 20 50 41 52 41 4d 00 23 01 88 00 0e 00 50 5c 4c 44 52 5c 41 36 2c 41 37 00 24 00 16 00 14 00 50 5c 52 46 28 4e 29 5c 43 52 55 32 33 30 5c 2d 31 00 24 00 28 00 0e 00 50 5c 4c 44 4b 5c 41 36 2c 30 20 00 24 00 40 00 10 ┆,A14 ADD PARAM # P LDR A6,A7 $ P RF(N) CRU230 -1 $ ( P LDK A6,0 $ @ ┆
0x110a…115a 00 50 43 52 55 32 33 30 5c 45 51 55 5c 2a 00 24 00 52 00 12 00 50 5c 41 4e 4b 4c 5c 41 37 2c 2f 37 46 46 46 00 24 00 66 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 24 00 7c 00 18 00 50 5c 4c 43 5c 41 31 2c 43 52 4e 43 49 46 2b 31 2c 41 31 ┆ PCRU230 EQU * $ R P ANKL A7,/7FFF $ f P LDK A1,0 $ | P LC A1,CRNCIF+1,A1┆
0x115a…11aa 32 20 00 24 00 8e 00 18 00 50 5c 4c 44 5c 41 32 2c 43 52 4e 43 49 46 2b 32 2c 41 31 32 20 00 24 00 aa 00 12 00 50 5c 43 46 5c 41 31 34 2c 41 44 44 4d 4f 44 00 24 00 c6 00 18 00 50 5c 53 43 5c 41 31 2c 43 52 4e 43 49 46 2b 31 2c 41 31 32 20 ┆2 $ P LD A2,CRNCIF+2,A12 $ P CF A14,ADDMOD $ P SC A1,CRNCIF+1,A12 ┆
0x11aa…11fa 00 24 00 dc 00 18 00 50 5c 53 54 5c 41 32 2c 43 52 4e 43 49 46 2b 32 2c 41 31 32 20 00 24 00 f8 00 0e 00 50 5c 52 42 5c 43 52 55 31 30 30 00 24 01 14 00 10 00 50 43 52 55 39 30 30 5c 45 51 55 5c 2a 00 24 01 26 00 10 00 50 5c 41 44 4b 4c 5c ┆ $ P ST A2,CRNCIF+2,A12 $ P RB CRU100 $ PCRU900 EQU * $ & P ADKL ┆
0x11fa…124a 41 31 34 2c 32 20 00 24 01 3a 00 08 00 50 5c 45 4e 42 00 24 01 4e 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 24 01 5a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 4d 53 55 42 52 20 00 24 01 6a 00 38 00 50 2a 2a 2a 2a 44 45 53 43 52 49 50 54 49 4f ┆A14,2 $ : P ENB $ N P RTN A14 $ Z P EJECT DMSUBR $ j 8 P****DESCRIPTIO┆