|
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: 4684 (0x124c)
Notes: pts_type(SC)
Names: »MPYMOD.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/MPYMOD.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/MPYMOD.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/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 1
*
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 1«, 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, 400) 41 44 44 52 45 53 53 20 41 4e 44 20 47 4f 20 54 4f 20 00 79 01 68 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 56 49 43 45 20 57 49 54 48 20 54 48 45 20 4e 45 57 20 53 54 41 54 55 53 2e 20 49 46 20 4e ┆ADDRESS AND GO TO y h < P* DEVICE WITH THE NEW STATUS. IF N┆
0x0dec…0e3c 4f 20 00 7a 00 1a 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 41 49 54 49 4e 47 20 46 4f 52 20 53 54 41 54 55 53 2c 20 43 4f 4e 54 52 4f 4c 20 49 53 20 47 49 56 45 4e 00 7a 00 5a 00 28 00 50 2a 20 20 20 ┆O z > P* WAITING FOR STATUS, CONTROL IS GIVEN z Z ( P* ┆
0x0e3c…0e8c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 2e 00 7a 00 9c 00 06 00 50 2a 20 00 7a 00 c8 00 06 00 50 2a 20 00 7a 00 d2 00 10 00 50 43 4c 54 31 30 30 5c 45 51 55 5c 2a 00 7a 00 dc 00 0e 00 50 ┆ TO DISPATCHER. z P* z P* z PCLT100 EQU * z P┆
0x0e8c…0edc 5c 4c 44 52 5c 41 33 2c 41 32 00 7a 00 f0 00 0e 00 50 5c 53 52 4c 5c 41 33 2c 38 20 00 7a 01 02 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 33 00 7a 01 14 00 1e 00 50 5c 41 4e 4b 5c 41 33 2c 2f 45 5c 32 20 2a 20 4c 49 4e 45 20 4e 55 4d 42 45 52 ┆ LDR A3,A2 z P SRL A3,8 z P LDR A4,A3 z P ANK A3,/E 2 * LINE NUMBER┆
0x0edc…0f2c 00 7a 01 26 00 0e 00 50 5c 53 52 4c 5c 41 34 2c 33 20 00 7a 01 48 00 20 00 50 5c 41 4e 4b 5c 41 34 2c 2f 45 5c 32 20 2a 20 44 45 56 49 43 45 20 4e 55 4d 42 45 52 00 7a 01 5a 00 1c 00 50 5c 43 57 4b 5c 41 34 2c 2f 45 5c 53 59 4e 43 2d 49 4e ┆ z & P SRL A4,3 z H P ANK A4,/E 2 * DEVICE NUMBER z Z P CWK A4,/E SYNC-IN┆
0x0f2c…0f7c (11, 0, 400) 50 55 54 20 3f 20 00 7a 01 7e 00 16 00 50 5c 52 46 28 45 29 5c 43 4c 54 31 35 30 5c 59 45 53 20 00 7b 00 0e 00 16 00 50 5c 5c 5c 4c 4f 4f 50 20 53 57 49 54 43 48 20 53 45 54 00 7b 00 28 00 30 00 50 5c 4c 44 2a 5c 41 38 2c 43 57 54 49 54 41 ┆PUT ? z ~ P RF(E) CLT150 YES { P LOOP SWITCH SET { ( 0 P LD* A8,CWTITA┆
0x0f7c…0fcc 2c 41 35 5c 41 44 44 52 45 53 53 20 54 4f 20 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 00 7b 00 42 00 14 00 50 5c 52 42 28 5a 29 5c 45 58 49 54 5c 5c 3d 37 20 00 7b 00 76 00 0e 00 50 5c 41 44 52 5c 41 38 2c 41 33 00 7b 00 8e 00 2c 00 50 ┆,A5 ADDRESS TO INTERRUPT TABLE { B P RB(Z) EXIT =7 { v P ADR A8,A3 { , P┆
0x0fcc…101c 5c 4c 44 52 2a 5c 41 38 2c 41 38 5c 41 44 44 52 45 53 53 20 54 4f 20 54 45 52 4d 49 4e 41 4c 20 53 45 43 54 49 4f 4e 20 00 7b 00 a0 00 1c 00 50 5c 52 42 28 5a 29 5c 45 58 49 54 5c 4e 4f 54 20 44 45 46 49 4e 45 44 20 00 7b 00 d0 00 1c 00 50 ┆ LDR* A8,A8 ADDRESS TO TERMINAL SECTION { P RB(Z) EXIT NOT DEFINED { P┆
0x101c…106c 5c 4c 44 52 2a 5c 41 36 2c 41 38 5c 47 45 54 20 49 44 2d 57 4f 52 44 20 00 7b 00 f0 00 0e 00 50 5c 53 55 52 5c 41 36 2c 41 34 00 7b 01 10 00 24 00 50 5c 52 42 28 4e 29 5c 45 58 49 54 5c 55 4e 44 45 46 49 4e 45 44 20 49 4e 54 45 52 52 55 50 ┆ LDR* A6,A8 GET ID-WORD { P SUR A6,A4 { $ P RB(N) EXIT UNDEFINED INTERRUP┆
0x106c…10bc 54 20 00 7b 01 22 00 22 00 50 5c 4c 44 52 5c 41 34 2c 41 34 5c 4e 4f 20 44 45 56 49 43 45 20 4e 55 4d 42 45 52 20 3f 20 00 7b 01 4a 00 1c 00 50 5c 41 42 4c 28 45 29 5c 43 48 50 4f 57 4f 5c 50 4f 57 45 52 20 4f 4e 20 00 7b 01 70 00 26 00 50 ┆T { " " P LDR A4,A4 NO DEVICE NUMBER ? { J P ABL(E) CHPOWO POWER ON { p & P┆
0x10bc…110c (12, 0, 400) 5c 41 44 52 5c 41 38 2c 41 34 5c 41 44 44 52 45 53 53 20 54 4f 20 44 57 54 2d 41 44 44 52 45 53 53 20 00 7b 01 90 00 20 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 38 5c 47 45 54 20 44 57 54 2d 41 44 44 52 45 53 53 20 00 7c 00 2a 00 10 00 50 5c 52 ┆ ADR A8,A4 ADDRESS TO DWT-ADDRESS { P LDR* A6,A8 GET DWT-ADDRESS | * P R┆
0x110c…115c 42 28 45 29 5c 45 58 49 54 20 00 7c 00 4e 00 12 00 50 5c 41 4e 4b 4c 5c 41 36 2c 2f 46 46 46 45 00 7c 00 62 00 32 00 50 5c 4c 43 52 5c 41 33 2c 41 36 5c 47 45 54 20 46 49 52 53 54 20 42 59 54 45 20 49 4e 20 43 48 41 4e 4e 45 4c 20 50 41 52 ┆B(E) EXIT | N P ANKL A6,/FFFE | b 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PAR┆
0x115c…11ac 41 4d 45 54 45 52 00 7c 00 78 00 1a 00 50 5c 41 4e 4b 5c 41 33 2c 31 5c 44 41 54 41 20 49 4e 50 55 54 20 3f 00 7c 00 ae 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 4c 54 31 31 30 5c 59 45 53 00 7c 00 cc 00 26 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 ┆AMETER | x P ANK A3,1 DATA INPUT ? | P RF(NE) CLT110 YES | & P LDR* A4,A┆
0x11ac…11fc 36 5c 47 45 54 20 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 52 20 00 7c 00 e6 00 10 00 50 5c 52 42 28 4e 29 5c 45 58 49 54 20 00 7c 01 10 00 18 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 52 45 4d 4f 54 45 20 3f 20 00 7c 01 24 00 16 00 50 ┆6 GET CHANNEL PARAMETER | P RB(N) EXIT | P LDR A7,A7 REMOTE ? | $ P┆
0x11fc…124c 5c 52 46 28 4e 4e 29 5c 43 4c 54 31 32 30 5c 59 45 53 00 7c 01 40 00 1a 00 50 43 4c 54 31 30 35 5c 4c 43 5c 41 33 2c 44 57 54 4f 43 48 2c 41 36 00 7c 01 5a 00 10 00 50 5c 41 4e 4b 5c 41 33 2c 2f 37 46 20 00 7c 01 78 00 12 00 50 5c 53 55 4b ┆ RF(NN) CLT120 YES | @ PCLT105 LC A3,DWTOCH,A6 | Z P ANK A3,/7F | x P SUK┆