|
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: 4486 (0x1186)
Notes: pts_type(SC)
Names: »DIVMOD.SC«
└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
└─⟦this⟧ »M:92NA/DIVMOD.SC«
└─⟦this⟧ »M:92SP/DIVMOD.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »M:92OD/DIVMOD.SC«
└─⟦3a2bec7de⟧ Bits:30009687 Philips computer tape "600313"
└─⟦this⟧ »M:821/DIVMOD.SC«
└─⟦470bcbfc6⟧ Bits:30009709 Philips computer tape "M_92LP"
└─⟦this⟧ »M:92LP/DIVMOD.SC«
└─⟦6349b94c6⟧ Bits:30009684 Philips computer tape "600308"
└─⟦this⟧ »M:92D1/DIVMOD.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:92D2/DIVMOD.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »M:92NA/DIVMOD.SC«
└─⟦9af60a727⟧ Bits:30009707 Philips computer tape "M_173"
└─⟦this⟧ »M:173/DIVMOD.SC«
└─⟦this⟧ »M:173/DIVMOD.SC«
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
└─⟦this⟧ »M:92NA/DIVMOD.SC«
└─⟦this⟧ »M:92SP/DIVMOD.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/DIVMOD.SC«
IDENT DIVMOD REL 9.2 79-11-16 870105040920
* =1 RET COND
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* TOSS DATA MANAGEMENT
*
*
*
****************************************************
* THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION ON THE ALPHA COMPUTER
* CALLING SEQUENCE
* A1-A2= DIVIDEND
* A6 = DIVISOR
* CF A14,DIVMOD
*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT
* CAUTION : REGISTERS A3,A4,A6,A7,A8 ARE CRUSHED.
ENTRY DIVMOD
*
*
*****************************************
*
* CONDITIONAL ASSEMBLY
*
*****************************************
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 0
*
EJECT
DIVMOD EQU *
LDK A3,0 =1
IFF CPU852=1
DVR A6
XIF
IFT CPU852=1
LDR A8,A1 SAVE DIVIDEND SIGN
* =1
ADK A6,0
RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW
ADK A1,0
RF(4) SIGNE
ANK.L A2,/7FFF
RF(0) END0 * IF DIVIDEND IS NULL, CR = 0
* THIS SEQUENCE GIVES THE OPERAND A POSITIVE VALUE
SIGNE LDK A7,0
LDK A4,16
ADK A1,0 *SIGN OF DIVIDEND
RF(6) DIVENP
ADK A3,1 * DIVIDEND IS NEGATIVE
C1R A1,A1
C1R A2,A2
ANK.L A2,X'7FFF'
ADK A2,1
RF(1) DIVENP
ADK A1,1
RF(5) END3
DIVENP ADK A6,0 *SIGN OF DIVISOR
RF(6) DIVORP
SUK A3,1 *NEGATIVE DIVISOR
C1R A6,A6
ADK A6,1
ADK A6,0 RESET IF OVERFLOW
RF(5) CASSPE
DIVORP CWR A1,A6
RF(1) END3
RF(0) CASSP1
SHIFT SUK A4,1 *A1 LESS THAN A6
RF(0) END
SLL A1,1
SLL A7,1
SLL A2,1
RF(6) *+4
ADK A1,1
ADK A1,0
RF(2) CASSP1
CWR A1,A6
RB(2) SHIFT
CASSP1 SUR A1,A6
ADK A7,1
RB(7) SHIFT
*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS
END LDR A2,A7
ADK A3,0
RF(0) NOSIGN
RF(2) AA DIVIDEND +. DIVISOR +
C1R A1,A1 *REMAINDER
ADK A1,1
AA C1R A2,A2 * QUOTIENT
ADK A2,1
*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR
* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000)
ADK A2,0
XIF =1
IFT CPU852=0 6813 =1
RF(1) END1 =1
XIF =1
RF(2) END2
RF(0) END0
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
* =1
RTN A14
IFT CPU852=1
NOSIGN ADK.L A8,0 TEST OF DIVIDEND SIGN
RF(6) BB
C1R A1,A1 DIVIDEND- .DIVISOR -
ADK A1,1 REMAINDER -
BB ADK A2,0
RB(0) END0
RB(2) END2
RB(7) END1
CASSPE LDR A7,A1
LDR A1,A2
CWK A1,/8000
RB(4) END
LDK A1,0
RB(7) END
XIF
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DIVMOD REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0056 Head {h00=0x0014, h01=0x0050, text=»* =1 RET COND «, t00=0x0000, t01=0x0042}
0x0056…0060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x005a}
0x0060…009c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0064}
0x009c…00a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a0}
0x00a6…00ce Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00aa}
0x00ce…00d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…00f8 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00dc}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0152 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x011a}
0x0152…019e Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION ON THE ALPHA COMPUTER«, t00=0x0000, t01=0x0156}
0x019e…01b8 Head {h00=0x0016, h01=0x0050, text=»* CALLING SEQUENCE«, t00=0x0001, t01=0x0012}
0x01b8…01e2 Head {h00=0x0026, h01=0x0050, text=»* A1-A2= DIVIDEND «, t00=0x0001, t01=0x002c}
0x01e2…020a Head {h00=0x0024, h01=0x0050, text=»* A6 = DIVISOR«, t00=0x0001, t01=0x0056}
0x020a…022e Head {h00=0x0020, h01=0x0050, text=»* CF A14,DIVMOD«, t00=0x0001, t01=0x007e}
0x022e…0274 Head {h00=0x0042, h01=0x0050, text=»*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT«, t00=0x0001, t01=0x00a2}
0x0274…02ae Head {h00=0x0036, h01=0x0050, text=»* CAUTION : REGISTERS A3,A4,A6,A7,A8 ARE CRUSHED.«, t00=0x0001, t01=0x00e8}
0x02ae…02ce Head {h00=0x001c, h01=0x0050, text=» ENTRY DIVMOD«, t00=0x0001, t01=0x0122}
0x02ce…02d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…0314 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0156}
0x0314…031e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031e…033c (2, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0002, t01=0x0004}
0x033c…0346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0022}
0x0346…0378 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x002c}
0x0378…0382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005e}
0x0382…03bc Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0068}
0x03bc…03ee Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x00a2}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03f8…040c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0002, t01=0x00de}
0x040c…0416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f2}
0x0416…0424 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00fc}
0x0424…0438 Head {h00=0x0010, h01=0x0050, text=»DIVMOD EQU *«, t00=0x0002, t01=0x010a}
0x0438…044e Head {h00=0x0012, h01=0x0050, text=» LDK A3,0 =1 «, t00=0x0002, t01=0x011e}
0x044e…0464 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x0134}
0x0464…0474 Head {h00=0x000c, h01=0x0050, text=» DVR A6 «, t00=0x0002, t01=0x014a}
0x0474…0480 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x015a}
0x0480…0496 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x0166}
0x0496…04ce Head {h00=0x0034, h01=0x0050, text=» LDR A8,A1 SAVE DIVIDEND SIGN«, t00=0x0002, t01=0x017c}
0x04ce…04de Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0003, t01=0x0024}
0x04de…04fc Head {h00=0x001a, h01=0x0050, text=» ADK A6,0«, t00=0x0003, t01=0x0034}
0x04fc…0540 Head {h00=0x0040, h01=0x0050, text=» RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW«, t00=0x0003, t01=0x0052}
0x0540…055e Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0003, t01=0x0096}
0x055e…057e Head {h00=0x001c, h01=0x0050, text=» RF(4) SIGNE «, t00=0x0003, t01=0x00b4}
0x057e…05a0 Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0003, t01=0x00d4}
0x05a0…05e4 Head {h00=0x0040, h01=0x0050, text=» RF(0) END0 * IF DIVIDEND IS NULL, CR = 0 «, t00=0x0003, t01=0x00f6}
0x05e4…0620 Head {h00=0x0038, h01=0x0050, text=»* THIS SEQUENCE GIVES THE OPERAND A POSITIVE VALUE «, t00=0x0003, t01=0x013a}
0x0620…063e Head {h00=0x001a, h01=0x0050, text=»SIGNE LDK A7,0«, t00=0x0003, t01=0x0176}
0x063e…065e (4, 0, 398) Head {h00=0x001c, h01=0x0050, text=» LDK A4,16 «, t00=0x0004, t01=0x0004}
0x065e…0696 Head {h00=0x0034, h01=0x0050, text=» ADK A1,0 *SIGN OF DIVIDEND «, t00=0x0004, t01=0x0024}
0x0696…06b6 Head {h00=0x001c, h01=0x0050, text=» RF(6) DIVENP«, t00=0x0004, t01=0x005c}
0x06b6…06f2 Head {h00=0x0038, h01=0x0050, text=» ADK A3,1 * DIVIDEND IS NEGATIVE«, t00=0x0004, t01=0x007c}
0x06f2…0712 Head {h00=0x001c, h01=0x0050, text=» C1R A1,A1 «, t00=0x0004, t01=0x00b8}
0x0712…0732 Head {h00=0x001c, h01=0x0050, text=» C1R A2,A2 «, t00=0x0004, t01=0x00d8}
0x0732…0756 Head {h00=0x0020, h01=0x0050, text=» ANK.L A2,X'7FFF'«, t00=0x0004, t01=0x00f8}
0x0756…0774 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0004, t01=0x011c}
0x0774…0794 Head {h00=0x001c, h01=0x0050, text=» RF(1) DIVENP«, t00=0x0004, t01=0x013a}
0x0794…07b2 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0004, t01=0x015a}
0x07b2…07d0 Head {h00=0x001a, h01=0x0050, text=» RF(5) END3«, t00=0x0004, t01=0x0178}
0x07d0…0806 Head {h00=0x0032, h01=0x0050, text=»DIVENP ADK A6,0 *SIGN OF DIVISOR«, t00=0x0005, t01=0x0008}
0x0806…0826 Head {h00=0x001c, h01=0x0050, text=» RF(6) DIVORP«, t00=0x0005, t01=0x003e}
0x0826…085e Head {h00=0x0034, h01=0x0050, text=» SUK A3,1 *NEGATIVE DIVISOR «, t00=0x0005, t01=0x005e}
0x085e…087e Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x0005, t01=0x0096}
0x087e…089c Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x0005, t01=0x00b6}
0x089c…08dc Head {h00=0x003c, h01=0x0050, text=» ADK A6,0 RESET IF OVERFLOW«, t00=0x0005, t01=0x00d4}
0x08dc…08fc Head {h00=0x001c, h01=0x0050, text=» RF(5) CASSPE«, t00=0x0005, t01=0x0114}
0x08fc…091c Head {h00=0x001c, h01=0x0050, text=»DIVORP CWR A1,A6 «, t00=0x0005, t01=0x0134}
0x091c…093a Head {h00=0x001a, h01=0x0050, text=» RF(1) END3«, t00=0x0005, t01=0x0154}
0x093a…095a Head {h00=0x001c, h01=0x0050, text=» RF(0) CASSP1«, t00=0x0005, t01=0x0172}
0x095a…0990 (6, 0, 400) Head {h00=0x0032, h01=0x0050, text=»SHIFT SUK A4,1 *A1 LESS THAN A6«, t00=0x0006, t01=0x0004}
0x0990…09ae Head {h00=0x001a, h01=0x0050, text=» RF(0) END «, t00=0x0006, t01=0x003a}
0x09ae…09cc Head {h00=0x001a, h01=0x0050, text=» SLL A1,1«, t00=0x0006, t01=0x0058}
0x09cc…09ea Head {h00=0x001a, h01=0x0050, text=» SLL A7,1«, t00=0x0006, t01=0x0076}
0x09ea…0a08 Head {h00=0x001a, h01=0x0050, text=» SLL A2,1«, t00=0x0006, t01=0x0094}
0x0a08…0a26 Head {h00=0x001a, h01=0x0050, text=» RF(6) *+4 «, t00=0x0006, t01=0x00b2}
0x0a26…0a44 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0006, t01=0x00d0}
0x0a44…0a62 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0006, t01=0x00ee}
0x0a62…0a82 Head {h00=0x001c, h01=0x0050, text=» RF(2) CASSP1«, t00=0x0006, t01=0x010c}
0x0a82…0aa2 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A6 «, t00=0x0006, t01=0x012c}
0x0aa2…0ac2 Head {h00=0x001c, h01=0x0050, text=» RB(2) SHIFT «, t00=0x0006, t01=0x014c}
0x0ac2…0ae2 Head {h00=0x001c, h01=0x0050, text=»CASSP1 SUR A1,A6 «, t00=0x0006, t01=0x016c}
0x0ae2…0b00 Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x0006, t01=0x018c}
0x0b00…0b20 Head {h00=0x001c, h01=0x0050, text=» RB(7) SHIFT «, t00=0x0007, t01=0x001a}
0x0b20…0b58 Head {h00=0x0034, h01=0x0050, text=»*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS «, t00=0x0007, t01=0x003a}
0x0b58…0b78 Head {h00=0x001c, h01=0x0050, text=»END LDR A2,A7 «, t00=0x0007, t01=0x0072}
0x0b78…0b96 Head {h00=0x001a, h01=0x0050, text=» ADK A3,0«, t00=0x0007, t01=0x0092}
0x0b96…0bb6 Head {h00=0x001c, h01=0x0050, text=» RF(0) NOSIGN«, t00=0x0007, t01=0x00b0}
0x0bb6…0bf2 Head {h00=0x0038, h01=0x0050, text=» RF(2) AA DIVIDEND +. DIVISOR + «, t00=0x0007, t01=0x00d0}
0x0bf2…0c22 Head {h00=0x002c, h01=0x0050, text=» C1R A1,A1 *REMAINDER«, t00=0x0007, t01=0x010c}
0x0c22…0c40 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0007, t01=0x013c}
0x0c40…0c70 Head {h00=0x002c, h01=0x0050, text=»AA C1R A2,A2 * QUOTIENT«, t00=0x0007, t01=0x015a}
0x0c70…0c8e Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0007, t01=0x018a}
0x0c8e…0cd6 Head {h00=0x0044, h01=0x0050, text=»*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR «, t00=0x0008, t01=0x0018}
0x0cd6…0d18 Head {h00=0x003e, h01=0x0050, text=»* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) «, t00=0x0008, t01=0x0060}
0x0d18…0d36 Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x0008, t01=0x00a2}
0x0d36…0d48 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0008, t01=0x00c0}
0x0d48…0d66 Head {h00=0x001a, h01=0x0050, text=» IFT CPU852=0 6813 =1 «, t00=0x0008, t01=0x00d2}
0x0d66…0d7e Head {h00=0x0014, h01=0x0050, text=» RF(1) END1 =1 «, t00=0x0008, t01=0x00f0}
0x0d7e…0d90 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0008, t01=0x0108}
0x0d90…0dae Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0008, t01=0x011a}
0x0dae…0dcc Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0008, t01=0x0138}
0x0dcc…0dec Head {h00=0x001c, h01=0x0050, text=»END3 ADK A3,/81«, t00=0x0008, t01=0x0156}
0x0dec…0e0c Head {h00=0x001c, h01=0x0050, text=»END2 ADK A3,/81«, t00=0x0008, t01=0x0176}
0x0e0c…0e2c Head {h00=0x001c, h01=0x0050, text=»END1 ADK A3,/81«, t00=0x0009, t01=0x0008}
0x0e2c…0e72 Head {h00=0x0042, h01=0x0050, text=»END0 SLL A3,1 **********************************«, t00=0x0009, t01=0x0028}
0x0e72…0e94 Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0009, t01=0x006e}
0x0e94…0eb6 Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0009, t01=0x0090}
0x0eb6…0ed8 Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0009, t01=0x00b2}
0x0ed8…0f1e Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0009, t01=0x00d4}
0x0f1e…0f2e Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0009, t01=0x011a}
0x0f2e…0f4c Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0009, t01=0x012a}
0x0f4c…0f62 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0009, t01=0x0148}
0x0f62…0f9e Head {h00=0x0038, h01=0x0050, text=»NOSIGN ADK.L A8,0 TEST OF DIVIDEND SIGN «, t00=0x0009, t01=0x015e}
0x0f9e…0fba Head {h00=0x0018, h01=0x0050, text=» RF(6) BB«, t00=0x000a, t01=0x000a}
0x0fba…0ff4 Head {h00=0x0036, h01=0x0050, text=» C1R A1,A1 DIVIDEND- .DIVISOR -«, t00=0x000a, t01=0x0026}
0x0ff4…1026 Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 REMAINDER - «, t00=0x000a, t01=0x0060}
0x1026…1044 Head {h00=0x001a, h01=0x0050, text=»BB ADK A2,0«, t00=0x000a, t01=0x0092}
0x1044…1062 Head {h00=0x001a, h01=0x0050, text=» RB(0) END0«, t00=0x000a, t01=0x00b0}
0x1062…1080 Head {h00=0x001a, h01=0x0050, text=» RB(2) END2«, t00=0x000a, t01=0x00ce}
0x1080…109e Head {h00=0x001a, h01=0x0050, text=» RB(7) END1«, t00=0x000a, t01=0x00ec}
0x109e…10be Head {h00=0x001c, h01=0x0050, text=»CASSPE LDR A7,A1 «, t00=0x000a, t01=0x010a}
0x10be…10de Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 «, t00=0x000a, t01=0x012a}
0x10de…1100 Head {h00=0x001e, h01=0x0050, text=» CWK A1,/8000«, t00=0x000a, t01=0x014a}
0x1100…111e Head {h00=0x001a, h01=0x0050, text=» RB(4) END «, t00=0x000a, t01=0x016c}
0x111e…1138 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 «, t00=0x000a, t01=0x018a}
0x1138…1156 Head {h00=0x001a, h01=0x0050, text=» RB(7) END «, t00=0x000b, t01=0x0014}
0x1156…1162 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0032}
0x1162…1176 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x000b, t01=0x003e}
0x1176…117a Head {h00=0x4004, h01=0x0000}
0x117a…117e 00 0b 00 52 ┆ R┆
0x117e…1186 (12, 1, 8) 20 04 00 00 00 0c 00 04 ┆ ┆