|
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: 4002 (0xfa2)
Notes: pts_type(SC)
Names: »DSUMOD.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DSUMOD.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DSUMOD.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/DSUMOD.SC«
IDENT DSUMOD REL 8.2 78-09-15 870105040820
* LREK 78-02-20
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* TOSS DATA MANAGEMENT
*
*
* LEVEL #1
*
* RELEASE #8
*
****************************************************
* 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
DSUMOD LDK A3,0
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
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
0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DSUMOD REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x036…050 Head {h00=0x0016, h01=0x0050, text=»* LREK 78-02-20 «, t00=0x0000, t01=0x003a}
0x050…05a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x05a…096 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x005e}
0x096…0a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x0a0…0c8 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00a4}
0x0c8…0d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00cc}
0x0d2…0f2 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00d6}
0x0f2…0fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x0fc…106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x106…120 Head {h00=0x0016, h01=0x0050, text=»* LEVEL #1 «, t00=0x0000, t01=0x010a}
0x120…12a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x12a…144 Head {h00=0x0016, h01=0x0050, text=»* RELEASE #8 «, t00=0x0000, t01=0x012e}
0x144…14e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0148}
0x14e…18a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0152}
0x18a…1da Head {h00=0x004c, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x018e}
0x1da…1ec Head {h00=0x000e, h01=0x0050, text=»*COMPUTER «, t00=0x0001, t01=0x004e}
0x1ec…206 Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE «, t00=0x0001, t01=0x0060}
0x206…22e Head {h00=0x0024, h01=0x0050, text=»* A1-A2 = ARG1 «, t00=0x0001, t01=0x007a}
0x22e…256 Head {h00=0x0024, h01=0x0050, text=»* A6-A7 = ARG2 «, t00=0x0001, t01=0x00a2}
0x256…27a Head {h00=0x0020, h01=0x0050, text=»* CF A14,DSUMOD«, t00=0x0001, t01=0x00ca}
0x27a…2a4 Head {h00=0x0026, h01=0x0050, text=»*RETURN: RESULT IN A1-A2 «, t00=0x0001, t01=0x00ee}
0x2a4…2dc Head {h00=0x0034, h01=0x0050, text=»* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.«, t00=0x0001, t01=0x0118}
0x2dc…2fc Head {h00=0x001c, h01=0x0050, text=» ENTRY DSUMOD«, t00=0x0001, t01=0x0150}
0x2fc…31a Head {h00=0x001a, h01=0x0050, text=»DSUMOD LDK A3,0«, t00=0x0001, t01=0x0170}
0x31a…33a Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x0001, t01=0x018e}
0x33a…35a Head {h00=0x001c, h01=0x0050, text=» C1R A7,A7 «, t00=0x0002, t01=0x001e}
0x35a…37e Head {h00=0x0020, h01=0x0050, text=» ANK.L A7,X'7FFF'«, t00=0x0002, t01=0x003e}
0x37e…3a0 Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0002, t01=0x0062}
0x3a0…3be Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x0002, t01=0x0084}
0x3be…3de Head {h00=0x001c, h01=0x0050, text=» RF(1) NOVER1«, t00=0x0002, t01=0x00a2}
0x3de…3fc Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x0002, t01=0x00c2}
0x3fc…41c Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER4 «, t00=0x0002, t01=0x00e0}
0x41c…43c Head {h00=0x001c, h01=0x0050, text=» RF(7) NOVER «, t00=0x0002, t01=0x0100}
0x43c…45c Head {h00=0x001c, h01=0x0050, text=»NOVER1 ADR A2,A7 «, t00=0x0002, t01=0x0120}
0x45c…47c Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER1 «, t00=0x0002, t01=0x0140}
0x47c…49c Head {h00=0x001c, h01=0x0050, text=»NOVER ADR A1,A6 «, t00=0x0002, t01=0x0160}
0x49c…4ba Head {h00=0x001a, h01=0x0050, text=»NOVER2 RF(1) END1«, t00=0x0002, t01=0x0180}
0x4ba…4d8 Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0003, t01=0x000e}
0x4d8…4f6 Head {h00=0x001a, h01=0x0050, text=» RF(3) END3«, t00=0x0003, t01=0x002c}
0x4f6…514 Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x0003, t01=0x004a}
0x514…532 Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0003, t01=0x0068}
0x532…550 Head {h00=0x001a, h01=0x0050, text=» RF(7) END1«, t00=0x0003, t01=0x0086}
0x550…574 Head {h00=0x0020, h01=0x0050, text=»OVER1 ANK.L A2,X'7FFF'«, t00=0x0003, t01=0x00a4}
0x574…592 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0003, t01=0x00c8}
0x592…5b2 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER4 «, t00=0x0003, t01=0x00e6}
0x5b2…5d2 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER «, t00=0x0003, t01=0x0106}
0x5d2…5f2 Head {h00=0x001c, h01=0x0050, text=»OVER4 ADR A1,A6 «, t00=0x0003, t01=0x0126}
0x5f2…610 Head {h00=0x001a, h01=0x0050, text=» RF(2) END3«, t00=0x0003, t01=0x0146}
0x610…62e Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0003, t01=0x0164}
0x62e…64e Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER2«, t00=0x0003, t01=0x0182}
0x64e…670 Head {h00=0x001e, h01=0x0050, text=»END3 ADK A3,/80 «, t00=0x0004, t01=0x0012}
0x670…692 Head {h00=0x001e, h01=0x0050, text=»END2 ADK A3,/80 «, t00=0x0004, t01=0x0034}
0x692…6b4 Head {h00=0x001e, h01=0x0050, text=»END1 ADK A3,/80 «, t00=0x0004, t01=0x0056}
0x6b4…6fe Head {h00=0x0046, h01=0x0050, text=»END0 SLL A3,1 ************************************* «, t00=0x0004, t01=0x0078}
0x6fe…720 Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0004, t01=0x00c2}
0x720…742 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0004, t01=0x00e4}
0x742…764 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0004, t01=0x0106}
0x764…7aa Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0004, t01=0x0128}
0x7aa…7c8 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0004, t01=0x016e}
0x7c8…7dc Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0004, t01=0x018c}
0x7dc…7e0 Head {h00=0x4004, h01=0x0000}
0x7e0…7e4 00 05 00 10 ┆ ┆
0x7e4…7ec (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x7ec…83c (7, 0, 400) 00 06 01 62 00 30 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 00 07 00 08 00 06 00 50 2a 20 00 07 00 3c 00 0a 00 50 5c 45 4a 45 43 54 00 07 00 46 ┆ b 0 P******************************************** P* < P EJECT F┆
0x83c…88c 00 06 00 50 2a 20 00 07 00 54 00 10 00 50 2a 20 20 20 20 41 20 43 20 43 20 50 00 07 00 5e 00 06 00 50 2a 20 00 07 00 72 00 32 00 50 2a 20 20 20 20 41 43 54 49 56 41 54 49 4f 4e 20 50 41 52 54 3a 20 43 48 45 43 48 20 56 41 4c 49 44 49 54 59 ┆ P* T P* A C C P ^ P* r 2 P* ACTIVATION PART: CHECH VALIDITY┆
0x88c…8dc 20 4f 46 20 4f 52 44 45 52 53 00 07 00 7c 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 53 54 41 52 54 53 20 54 48 45 20 50 52 4f 43 45 53 53 49 4e 47 20 00 07 00 b2 00 06 00 50 2a 20 00 07 00 ea ┆ OF ORDERS | 4 P* AND STARTS THE PROCESSING P* ┆
0x8dc…92c 00 0e 00 50 41 43 43 50 5c 45 51 55 5c 2a 00 07 00 f4 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 2f 34 30 30 30 00 07 01 06 00 10 00 50 5c 4f 52 52 53 5c 41 34 2c 41 36 20 00 07 01 1c 00 14 00 50 5c 4c 43 5c 41 33 2c 44 57 54 4f 52 2c 41 36 20 ┆ PACCP EQU * P LDKL A4,/4000 P ORRS A4,A6 P LC A3,DWTOR,A6 ┆
0x92c…97c 00 07 01 30 00 1e 00 50 5c 41 4e 4b 5c 41 33 2c 31 5c 4a 4f 55 52 4e 41 4c 20 50 52 49 4e 54 45 52 3f 00 07 01 48 00 16 00 50 5c 52 46 28 4e 45 29 5c 41 43 50 30 35 5c 59 45 53 20 00 07 01 6a 00 34 00 50 5c 58 52 52 53 5c 41 34 2c 41 36 5c ┆ 0 P ANK A3,1 JOURNAL PRINTER? H P RF(NE) ACP05 YES j 4 P XRRS A4,A6 ┆
0x97c…9cc (8, 0, 400) 4e 4f 2c 20 53 45 54 20 44 45 56 2e 20 41 44 52 2e 20 54 4f 20 52 45 43 45 49 50 54 20 50 52 49 4e 54 45 52 00 07 01 84 00 10 00 50 41 43 50 30 35 5c 45 51 55 5c 2a 20 00 08 00 2c 00 16 00 50 5c 53 55 4b 5c 41 37 2c 2f 32 32 5c 43 55 54 20 ┆NO, SET DEV. ADR. TO RECEIPT PRINTER PACP05 EQU * , P SUK A7,/22 CUT ┆
0x9cc…a1c 3f 20 00 08 00 40 00 12 00 50 5c 52 46 28 45 29 5c 41 43 43 50 33 30 20 00 08 00 5a 00 18 00 50 5c 41 44 4b 5c 41 37 2c 2f 31 43 5c 57 52 49 54 45 20 3f 20 00 08 00 70 00 22 00 50 5c 41 42 4c 28 4e 45 29 5c 44 49 53 49 4f 45 5c 52 45 51 55 ┆? @ P RF(E) ACCP30 Z P ADK A7,/1C WRITE ? p " P ABL(NE) DISIOE REQU┆
0xa1c…a6c 45 53 54 20 45 52 52 4f 52 20 00 08 00 8c 00 20 00 50 5c 4c 44 4b 5c 41 33 2c 30 5c 53 54 41 52 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 08 00 b2 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 30 20 00 08 00 d6 00 10 00 50 41 43 43 50 31 30 5c 45 ┆EST ERROR P LDK A3,0 START BUFFER INDEX P LDK A4,0 PACCP10 E┆
0xa6c…abc 51 55 5c 2a 00 08 00 e8 00 24 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 43 48 52 5c 47 45 54 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 00 08 00 fc 00 1e 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 4c 41 53 54 20 43 48 41 52 41 43 54 45 52 20 00 08 ┆QU * $ P CF A15,GETCHR GET ONE CHARACTER P LDR A1,A1 LAST CHARACTER ┆
0xabc…b0c 01 24 00 16 00 50 5c 52 46 28 45 29 5c 41 43 43 50 32 30 5c 59 45 53 20 00 08 01 46 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 08 01 60 00 0e 00 50 5c 52 42 5c 41 43 43 50 31 30 00 08 01 76 00 10 00 50 41 43 43 50 32 30 5c 45 ┆ $ P RF(E) ACCP20 YES F P CF A5,OUTPUT ` P RB ACCP10 v PACCP20 E┆
0xb0c…b5c (9, 0, 400) 51 55 5c 2a 00 08 01 88 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 30 33 20 00 09 00 0c 00 18 00 50 41 43 43 50 32 35 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 09 00 20 00 16 00 50 41 43 43 50 32 37 5c 43 46 5c 41 35 2c 53 54 52 45 47 00 09 ┆QU * P LDK A2,/03 PACCP25 CF A5,OUTPUT PACCP27 CF A5,STREG ┆
0xb5c…bac 00 3c 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 20 00 09 00 56 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 32 20 00 09 00 6a 00 1e 00 50 5c 52 46 28 5a 29 5c 41 43 43 50 36 35 5c 45 4e 44 20 4f 46 20 50 41 50 45 52 00 09 00 7c 00 0e 00 50 5c 53 ┆ < P ANK A2,/7F V P SUK A2,2 j P RF(Z) ACCP65 END OF PAPER | P S┆
0xbac…bfc 55 4b 5c 41 37 2c 36 20 00 09 00 9e 00 12 00 50 5c 52 46 28 4e 45 29 5c 41 43 43 50 37 30 00 09 00 b0 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 32 20 00 09 00 c6 00 12 00 50 5c 52 46 28 4e 5a 29 5c 45 4e 44 49 4f 5c 00 09 00 d8 00 10 00 50 5c 4c ┆UK A7,6 P RF(NE) ACCP70 P SUK A2,2 P RF(NZ) ENDIO P L┆
0xbfc…c4c 44 4b 5c 41 32 2c 2f 32 30 20 00 09 00 ee 00 10 00 50 5c 4f 52 53 5c 41 32 2c 38 2c 41 38 00 09 01 02 00 0e 00 50 5c 52 42 5c 41 43 43 50 32 37 00 09 01 16 00 16 00 50 41 43 43 50 33 30 5c 4c 44 4b 5c 41 32 2c 2f 36 30 20 00 09 01 28 00 0e ┆DK A2,/20 P ORS A2,8,A8 P RB ACCP27 PACCP30 LDK A2,/60 ( ┆
0xc4c…c9c 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 09 01 42 00 18 00 50 41 43 43 50 33 35 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 09 01 54 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 33 00 09 01 70 00 12 00 50 5c 52 46 28 4e 45 29 5c 41 43 43 50 35 30 ┆ P LDK A3,0 B PACCP35 CF A5,OUTPUT T P LDR A3,A3 p P RF(NE) ACCP50┆
0xc9c…cec (10, 0, 400) 00 09 01 82 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 30 20 00 0a 00 08 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 31 20 00 0a 00 1c 00 0e 00 50 5c 52 42 5c 41 43 43 50 33 35 00 0a 00 2e 00 16 00 50 41 43 43 50 35 30 5c 4c 44 4b 5c 41 32 2c 2f 31 ┆ P LDK A2,/20 P ADK A3,1 P RB ACCP35 . PACCP50 LDK A2,/1┆
0xcec…d3c 33 20 00 0a 00 40 00 10 00 50 5c 53 54 5c 41 33 2c 36 2c 41 38 20 00 0a 00 5a 00 0e 00 50 5c 52 42 5c 41 43 43 50 32 35 00 0a 00 6e 00 26 00 50 41 43 43 50 36 35 5c 4c 44 4b 4c 5c 41 31 2c 2f 34 30 30 30 5c 52 45 43 45 49 50 54 20 53 54 55 ┆3 @ P ST A3,6,A8 Z P RB ACCP25 n & PACCP65 LDKL A1,/4000 RECEIPT STU┆
0xd3c…d8c 43 4b 00 0a 00 80 00 0e 00 50 5c 52 46 5c 45 4e 44 49 4f 20 00 0a 00 aa 00 14 00 50 41 43 43 50 37 30 5c 53 55 4b 5c 41 32 2c 34 20 00 0a 00 bc 00 12 00 50 5c 52 42 28 45 29 5c 41 43 43 50 32 37 20 00 0a 00 d4 00 14 00 50 45 4e 44 49 4f 5c ┆CK P RF ENDIO PACCP70 SUK A2,4 P RB(E) ACCP27 PENDIO ┆
0xd8c…ddc 41 42 4c 5c 44 49 53 45 4e 44 00 0a 00 ea 00 0a 00 50 5c 45 4a 45 43 54 00 0a 01 02 00 06 00 50 2a 20 00 0a 01 10 00 10 00 50 2a 20 20 20 49 20 48 20 43 20 50 20 00 0a 01 1a 00 06 00 50 2a 20 00 0a 01 2e 00 30 00 50 2a 20 20 20 20 49 4e 54 ┆ABL DISEND P EJECT P* P* I H C P P* . 0 P* INT┆
0xddc…e2c 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 3a 20 50 52 4f 43 45 53 53 20 4f 46 20 49 4e 54 45 52 52 55 50 54 00 0a 01 38 00 06 00 50 2a 20 00 0a 01 6c 00 0e 00 50 49 48 43 50 5c 45 51 55 5c 2a 00 0a 01 76 00 1a 00 50 5c 4c 44 5c 41 34 2c 44 ┆ERRUPT HANDLER: PROCESS OF INTERRUPT 8 P* l PIHCP EQU * v P LD A4,D┆
0xe2c…e7c (11, 2, 366) 57 54 53 54 2c 41 36 5c 53 54 41 54 55 53 00 0a 01 88 00 10 00 50 5c 52 46 28 4e 29 5c 45 58 49 54 20 00 0b 00 16 00 1a 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 52 45 54 55 52 4e 20 43 4f 44 45 00 0b 00 2a 00 1e 00 50 5c 52 42 28 4e 45 29 5c ┆WTST,A6 STATUS P RF(N) EXIT P LDR A1,A1 RETURN CODE * P RB(NE) ┆
0xe7c…ecc 45 4e 44 49 4f 5c 59 45 53 20 45 4e 44 20 49 2f 4f 20 00 0b 00 48 00 0e 00 50 5c 41 42 4c 5c 4c 44 52 45 47 00 0b 00 6a 00 12 00 50 45 58 49 54 5c 41 42 4c 5c 54 44 49 53 50 00 0b 00 7c 00 0a 00 50 5c 45 4a 45 43 54 00 0b 00 92 00 06 00 50 ┆ENDIO YES END I/O H P ABL LDREG j PEXIT ABL TDISP | P EJECT P┆
0xecc…f1c 2a 20 00 0b 00 a0 00 10 00 50 2a 20 20 20 20 52 20 43 20 43 20 50 00 0b 00 aa 00 06 00 50 2a 20 00 0b 00 be 00 06 00 50 2a 20 00 0b 00 c8 00 0e 00 50 52 43 43 50 5c 45 51 55 5c 2a 00 0b 00 d2 00 12 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 ┆* P* R C C P P* P* PRCCP EQU * P CF A15,SAVE┆
0xf1c…f6c 38 20 00 0b 00 e4 00 14 00 50 5c 4c 44 5c 41 37 2c 44 57 54 53 54 2c 41 36 20 00 0b 00 fa 00 10 00 50 5c 52 42 28 4e 29 5c 45 58 49 54 20 00 0b 01 12 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 32 20 00 0b 01 26 00 0e 00 50 5c 52 42 5c 45 4e 44 49 ┆8 P LD A7,DWTST,A6 P RB(N) EXIT P LDK A1,2 & P RB ENDI┆
0xf6c…f9a 4f 20 00 0b 01 38 00 06 00 50 2a 20 00 0b 01 4a 00 06 00 50 2a 20 00 0b 01 54 00 08 00 50 5c 45 4e 44 00 0b 01 5e 40 04 00 00 00 0b 01 6a ┆O 8 P* J P* T P END ^@ j┆
0xf9a…fa2 (12, 1, 8) 20 04 00 00 00 0c 00 04 ┆ ┆