|
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: 3940 (0xf64)
Notes: pts_type(SC)
Names: »ADDMOD.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/ADDMOD.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/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
0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT ADDMOD REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x036…03e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x03e…05e Head {h00=0x001c, h01=0x0050, text=»* =1 RETURN CONDITION «, t00=0x0000, t01=0x0042}
0x05e…068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0062}
0x068…0a4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x006c}
0x0a4…0ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a8}
0x0ae…0d6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00b2}
0x0d6…0e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00da}
0x0e0…100 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00e4}
0x100…10a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x10a…114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x114…11e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x11e…15a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0122}
0x15a…1a6 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x015e}
0x1a6…1b8 Head {h00=0x000e, h01=0x0050, text=»* COMPUTER«, t00=0x0001, t01=0x001a}
0x1b8…1d2 Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE:«, t00=0x0001, t01=0x002c}
0x1d2…1fa Head {h00=0x0024, h01=0x0050, text=»* A1-A2 = ARG1 «, t00=0x0001, t01=0x0046}
0x1fa…222 Head {h00=0x0024, h01=0x0050, text=»* AG-A7 = ARG2 «, t00=0x0001, t01=0x006e}
0x222…246 Head {h00=0x0020, h01=0x0050, text=»* CF A14,ADDMOD«, t00=0x0001, t01=0x0096}
0x246…270 Head {h00=0x0026, h01=0x0050, text=»*RETURN : RESULT IN A1-A2 «, t00=0x0001, t01=0x00ba}
0x270…2a8 Head {h00=0x0034, h01=0x0050, text=»* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.«, t00=0x0001, t01=0x00e4}
0x2a8…2c8 Head {h00=0x001c, h01=0x0050, text=» ENTRY ADDMOD«, t00=0x0001, t01=0x011c}
0x2c8…2d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x2d2…2dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0146}
0x2dc…30e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0150}
0x30e…318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x318…336 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x018c}
0x336…340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001a}
0x340…372 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0024}
0x372…37c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0056}
0x37c…3b6 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0060}
0x3b6…3e8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x009a}
0x3e8…3f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00cc}
0x3f2…406 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0002, t01=0x00d6}
0x406…410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x410…41e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00f4}
0x41e…432 Head {h00=0x0010, h01=0x0050, text=»ADDMOD EQU *«, t00=0x0002, t01=0x0102}
0x432…448 Head {h00=0x0012, h01=0x0050, text=» LDK A3,0 =1 «, t00=0x0002, t01=0x0116}
0x448…45e Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x012c}
0x45e…46e Head {h00=0x000c, h01=0x0050, text=» DAR A6 «, t00=0x0002, t01=0x0142}
0x46e…47a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0152}
0x47a…490 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x015e}
0x490…4a0 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0002, t01=0x0174}
0x4a0…4c2 Head {h00=0x001e, h01=0x0050, text=» ANK.L A7,/7FFF«, t00=0x0002, t01=0x0184}
0x4c2…4e4 Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0003, t01=0x0016}
0x4e4…504 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A7 «, t00=0x0003, t01=0x0038}
0x504…524 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER1 «, t00=0x0003, t01=0x0058}
0x524…558 Head {h00=0x0030, h01=0x0050, text=»NOVER ADR A1,A6 * NO OVERFLOW «, t00=0x0003, t01=0x0078}
0x558…576 Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0003, t01=0x00ac}
0x576…594 Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0003, t01=0x00ca}
0x594…5b2 Head {h00=0x001a, h01=0x0050, text=» RF(3) END3«, t00=0x0003, t01=0x00e8}
0x5b2…5d0 Head {h00=0x001a, h01=0x0050, text=»NOVER1 ADK A2,0«, t00=0x0003, t01=0x0106}
0x5d0…5ee Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0003, t01=0x0124}
0x5ee…60c Head {h00=0x001a, h01=0x0050, text=» RF(7) END1«, t00=0x0003, t01=0x0142}
0x60c…62e Head {h00=0x001e, h01=0x0050, text=»OVER1 ANK.L A2,/7FFF«, t00=0x0003, t01=0x0160}
0x62e…64c Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0003, t01=0x0182}
0x64c…66c Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER3 «, t00=0x0004, t01=0x0010}
0x66c…68c Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER «, t00=0x0004, t01=0x0030}
0x68c…6ac Head {h00=0x001c, h01=0x0050, text=»OVER3 ADR A1,A6 «, t00=0x0004, t01=0x0050}
0x6ac…6ca Head {h00=0x001a, h01=0x0050, text=» RF(2) END3«, t00=0x0004, t01=0x0070}
0x6ca…6e8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0004, t01=0x008e}
0x6e8…706 Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0004, t01=0x00ac}
0x706…726 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER1«, t00=0x0004, t01=0x00ca}
0x726…738 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0004, t01=0x00ea}
0x738…756 Head {h00=0x001a, h01=0x0050, text=» IFT CPU852=0 6813 =1 «, t00=0x0004, t01=0x00fc}
0x756…76e Head {h00=0x0014, h01=0x0050, text=» RF(0) END0 =1 «, t00=0x0004, t01=0x011a}
0x76e…786 Head {h00=0x0014, h01=0x0050, text=» RF(1) END1 =1 «, t00=0x0004, t01=0x0132}
0x786…79e Head {h00=0x0014, h01=0x0050, text=» RF(2) END2 =1 «, t00=0x0004, t01=0x014a}
0x79e…7b0 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0004, t01=0x0162}
0x7b0…7d2 Head {h00=0x001e, h01=0x0050, text=»END3 ADK A3,/80 «, t00=0x0004, t01=0x0174}
0x7d2…7f4 Head {h00=0x001e, h01=0x0050, text=»END2 ADK A3,/80 «, t00=0x0005, t01=0x0008}
0x7f4…816 Head {h00=0x001e, h01=0x0050, text=»END1 ADK A3,/80 «, t00=0x0005, t01=0x002a}
0x816…85c Head {h00=0x0042, h01=0x0050, text=»END0 SLL A3,1 **********************************«, t00=0x0005, t01=0x004c}
0x85c…87e Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0005, t01=0x0092}
0x87e…8a0 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0005, t01=0x00b4}
0x8a0…8c2 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0005, t01=0x00d6}
0x8c2…908 Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0005, t01=0x00f8}
0x908…918 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0005, t01=0x013e}
0x918…936 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0005, t01=0x014e}
0x936…94a Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0005, t01=0x016c}
0x94a…94e Head {h00=0x4004, h01=0x0000}
0x94e…952 00 05 01 80 ┆ ┆
0x952…95a (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x95a…95c (7, 0, 2) 0c 00 ┆ ┆
0x95c…9ac (8, 0, 400) 00 30 00 50 5c 49 44 45 4e 54 20 44 56 54 44 59 20 5c 52 45 4c 20 39 2e 31 20 37 39 2d 30 35 2d 32 33 20 20 38 37 30 31 30 35 30 34 30 39 31 30 00 00 00 04 00 04 00 50 00 00 00 38 00 2a 00 50 2a 20 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 ┆ 0 P IDENT DVTDY REL 9.1 79-05-23 870105040910 P 8 * P* DEVICE WORK T┆
0x9ac…9fc 41 42 4c 45 20 46 4f 52 20 56 49 44 45 4f 20 44 49 53 50 4c 41 59 00 00 00 40 00 06 00 50 2a 20 00 00 00 6e 00 1c 00 50 5c 45 4e 54 52 59 5c 44 56 54 44 59 5c 54 41 42 4c 45 20 45 4e 54 52 59 00 00 00 78 00 06 00 50 2a 20 00 00 00 98 00 06 ┆ABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* ┆
0x9fc…a4c 00 50 2a 20 00 00 00 a2 00 28 00 50 5c 45 58 54 52 4e 5c 44 59 41 44 5c 50 4f 49 4e 54 45 52 20 54 4f 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 00 00 00 ac 00 10 00 50 4d 4d 55 50 41 47 5c 45 51 55 5c 30 00 00 00 d8 00 06 00 50 2a 20 00 00 ┆ P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* ┆
0xa4c…a9c 00 ec 00 1c 00 50 44 56 54 44 59 5c 45 51 55 5c 2a 5c 54 41 42 4c 45 20 45 4e 54 52 59 20 00 00 00 f6 00 22 00 50 5c 44 41 54 41 5c 2f 31 31 31 31 5c 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 52 20 00 00 01 16 00 30 00 50 5c 44 41 54 ┆ PDVTDY EQU * TABLE ENTRY " P DATA /1111 CHANNEL PARAMETER 0 P DAT┆
0xa9c…aec 41 5c 2f 38 30 30 30 5c 53 54 41 54 55 53 2e 2f 38 30 30 30 20 4d 45 41 4e 53 20 44 45 56 49 43 45 20 52 45 41 44 59 20 00 00 01 3c 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 42 20 41 44 44 52 45 53 53 20 00 00 01 70 00 1c 00 50 5c 44 41 54 ┆A /8000 STATUS./8000 MEANS DEVICE READY < P DATA 0 ECB ADDRESS p P DAT┆
0xaec…b3c (9, 0, 400) 41 5c 44 57 54 45 4e 44 2d 44 56 54 44 59 5c 4f 52 44 45 52 00 00 01 8c 00 28 00 50 5c 44 41 54 41 5c 44 59 41 44 5c 50 4f 49 4e 54 45 52 20 54 4f 20 41 44 44 52 45 53 53 2d 42 4c 4f 43 4b 20 00 01 00 1c 00 1c 00 50 5c 44 41 54 41 5c 27 44 ┆A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'D┆
0xb3c…b8c 59 27 5c 54 54 41 42 2d 41 44 44 52 45 53 53 20 00 01 00 48 00 24 00 50 5c 44 41 54 41 5c 30 5c 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 20 00 01 00 68 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 45 52 4d 49 4e 41 4c ┆Y' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL┆
0xb8c…bdc 20 51 55 45 55 45 00 01 00 90 00 12 00 0d 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 01 00 ae 00 26 00 22 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 55 53 45 52 20 45 43 42 20 41 44 44 52 45 53 53 00 01 00 c4 00 20 00 1c 5c 44 ┆ QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS D┆
0xbdc…c2c 41 54 41 5c 44 45 56 45 43 42 5c 4d 4d 55 20 45 43 42 20 41 44 44 52 45 53 53 00 01 00 ee 00 08 00 04 5c 58 49 46 00 01 01 12 00 1e 00 50 5c 44 41 54 41 5c 30 5c 4f 55 54 50 55 54 20 51 55 45 55 45 20 4c 49 4e 4b 20 00 01 01 1e 00 1c 00 50 ┆ATA DEVECB MMU ECB ADDRESS XIF P DATA 0 OUTPUT QUEUE LINK P┆
0xc2c…c7c 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 41 33 00 01 01 40 00 1c 00 50 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 41 34 00 01 01 60 00 1c 00 50 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 ┆ DATA 0 SAVE AREA FOR A3 @ P DATA 0 SAVE AREA FOR A4 ` P DATA 0 SAVE ARE┆
0xc7c…ccc (10, 2, 336) 41 20 46 4f 52 20 41 35 00 01 01 80 00 14 00 50 5c 52 45 53 5c 34 5c 44 57 54 2d 53 54 41 43 4b 00 02 00 10 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 02 00 28 00 1e 00 50 5c 44 41 54 41 5c 2f 31 30 31 ┆A FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER ( P DATA /101┆
0xccc…d1c 5c 43 55 52 53 4f 52 20 50 4f 49 4e 54 45 52 20 00 02 00 46 00 28 00 50 5c 44 41 54 41 5c 2f 41 42 43 5c 4c 45 46 54 20 42 59 54 45 3d 4e 55 4d 42 45 52 20 4f 46 20 4c 49 4e 45 53 00 02 00 68 00 22 00 50 5c 5c 5c 52 49 47 48 54 20 42 59 54 ┆ CURSOR POINTER F ( P DATA /ABC LEFT BYTE=NUMBER OF LINES h " P RIGHT BYT┆
0xd1c…d6c 45 3d 43 48 41 52 41 43 54 45 52 53 2f 4c 49 4e 45 20 00 02 00 94 00 18 00 50 5c 44 41 54 41 5c 30 5c 42 55 46 46 45 52 20 49 4e 44 45 58 00 02 00 ba 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 02 00 d6 00 1c 00 50 44 45 56 45 ┆E=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVE┆
0xd6c…dbc 43 42 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 02 00 ec 00 08 00 50 5c 58 49 46 00 02 01 0c 00 10 00 50 44 57 54 45 4e 44 5c 45 51 55 5c 2a 00 02 01 18 00 06 00 50 2a 20 00 02 01 2c 00 06 00 50 2a 20 00 02 01 36 00 08 00 50 ┆CB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* , P* 6 P┆
0xdbc…dcc 5c 45 4e 44 00 02 01 40 40 04 00 00 00 02 01 4c ┆ END @@ L┆
0xdcc…dd4 (11, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0xdd4…e24 (12, 0, 400) 4b 20 00 33 01 86 00 06 00 50 2a 20 00 34 00 0a 00 08 00 50 5c 58 49 46 00 34 00 14 00 10 00 50 55 4e 4c 3a 37 30 5c 45 51 55 5c 2a 00 34 00 20 00 16 00 50 5c 4c 44 4b 5c 41 32 2c 2f 43 5c 55 4e 4c 4f 43 4b 20 00 34 00 34 00 12 00 50 5c 43 ┆K 3 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 4 P C┆
0xe24…e74 46 5c 41 35 2c 46 44 3a 52 45 41 20 00 34 00 4e 00 16 00 50 5c 4f 52 53 5c 41 33 2c 44 57 54 52 43 57 2c 41 36 20 00 34 00 64 00 0e 00 50 5c 41 4e 4b 5c 41 33 2c 31 20 00 34 00 7e 00 2c 00 50 5c 52 46 28 4e 5a 29 5c 55 4e 4c 3a 38 30 5c 4e ┆F A5,FD:REA 4 N P ORS A3,DWTRCW,A6 4 d P ANK A3,1 4 ~ , P RF(NZ) UNL:80 N┆
0xe74…ec4 4f 54 20 4f 50 45 52 41 42 4c 45 2c 53 54 49 4c 4c 20 4c 4f 43 4b 45 44 00 34 00 90 00 1e 00 50 5c 4c 44 5c 41 32 2c 44 57 54 41 33 2c 41 36 5c 49 4e 44 45 58 20 4d 41 53 4b 00 34 00 c0 00 2c 00 50 5c 58 52 53 5c 41 32 2c 44 57 54 4c 43 2c ┆OT OPERABLE,STILL LOCKED 4 P LD A2,DWTA3,A6 INDEX MASK 4 , P XRS A2,DWTLC,┆
0xec4…f14 41 36 5c 49 4e 44 49 43 41 54 45 20 55 4e 4c 4f 43 4b 20 49 4e 20 44 57 54 20 00 34 00 e2 00 10 00 50 55 4e 4c 3a 38 30 5c 45 51 55 5c 2a 00 34 01 12 00 16 00 50 5c 52 42 5c 4c 4f 41 3a 37 35 5c 45 4e 44 3a 49 4f 20 00 34 01 26 00 14 00 50 ┆A6 INDICATE UNLOCK IN DWT 4 PUNL:80 EQU * 4 P RB LOA:75 END:IO 4 & P┆
0xf14…f64 5c 49 46 46 5c 54 4f 53 53 2b 49 42 4d 3d 30 20 00 34 01 40 00 06 00 50 2a 20 00 34 01 58 00 20 00 50 2a 20 20 20 55 4e 4c 4f 41 44 20 52 45 54 55 52 4e 20 43 4f 44 45 20 43 48 45 43 4b 00 34 01 62 00 06 00 50 2a 20 00 34 01 86 00 1c 00 50 ┆ IFF TOSS+IBM=0 4 @ P* 4 X P* UNLOAD RETURN CODE CHECK 4 b P* 4 P┆