|
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: 10072 (0x2758)
Notes: pts_type(SC)
Names: »ARITMS.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/ARITMS.SC«
IDENT ARITMS REL 11.0 81-04-02 870105041100
=1,MPYMOD DESTROYED A3 WHEN MULT WITH 0
=1,REL 11.0 81-01-26
*
****************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* DOUBLE ADD MODULE
* DOUBLE SUBTRACT MODULE
* MULTIPLY MODULE
* DIVIDE MODULE
*
*
*
****************************************************
* THIS MODULE EXECUTES THE DOUBLE ADDITION INSTRUCTION
*
* CALLING SEQUENCE:
* CF A14,ADDMOD
*
* INPUT: A1,A2 = ARG1
* A6,A7 = ARG2
*
* OUTPUT: A1,A2 = ARG1+ARG2
* A6,A7 ARE CHANGED
*
EJECT
****************************************************
*
* THIS ROUTINE EXECUTES THE DOUBLE SUBTRACTION INSTRUCTION
*
* CALLING SEQUENCE:
* CF A14,DSUMOD
*
* INPUT: A1,A2 = ARG1
* A6,A7 = ARG2
*
* OUTPUT: A1,A2 = ARG1-ARG2
* A6,A7 ARE CHANGED
EJECT
****************************************************
*
* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION
* CALLING SEQUENCE:
* CF A14,MPYMOD
*
* INPUT: A6 = ARG1
* A7 = ARG2
*
* OUTPUT: A1,A2 = RESULT
*
EJECT
****************************************************
*
* THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION
*
* CALLING SEQUENCE
* CF A14,DIVMOD
*
* INPUT: A1,A2 = DIVIDENT
* A6 = DIVISOR
*
* OUTPUT: A1 = REMAINER
* A2 = QUOTIENT
*
* A6 IS CHANGED
EJECT ADDMOD
*
*
ENTRY ADDMOD,DSUMOD,MPYMOD,DIVMOD
EXTRN HALT
*
*
*****************************************
*
* CONDITIONAL ASSEMBLY
*
*****************************************
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 0
*
* MULTIPLY AND DIVIDE ARE OMITTED
* BY SETTING MPYDIV=1
*
X:A EQU 0
MPYDIV EQU 00000
*
*
SETCR EQU /1200 ADK A2,0 ;SET CR WITHOUT OVERFLOW
SETCRO EQU /9A09 NGR A2,A2 ;SET CR INCLUDING OVERFLOW
*
EJECT
*
*
IFT CPU852=0
ADDMOD EQU *
ADKL A14,4 STACK POINTER
DAR A6
ABR* A14 RETURN WITH CONDITIONS SET
EJECT
*
*
DSUMOD EQU *
ADKL A14,4 STACK POINTER
DSR A6
ABR* A14 RETURN WITH CONDITIONS SET
XIF
IFT CPU852=1
ADDMOD EQU *
ANKL A7,/7FFF
ANKL A2,/7FFF
ADR A2,A7
LDK A7,0
RF(O) AOVER1
ANOVER ADR A1,A6 * NO OVERFLOW
RF(P) END1
RF(N) END2
RF(O) END3
ANOVR1 ADK A2,0
RF(Z) END0
RF END1
AOVER1 ANKL A2,/7FFF
ADK A1,1
RF(O) AOVER3
RB ANOVER
AOVER3 ADR A1,A6
RF(N) END3
ADK A1,0
RF(P) END1
RB ANOVR1
*
EJECT ADDMOD
*
*
END3 EQU * OVERFLOW
LDK A7,/80
END2 EQU * NEGATIVE
ADK A7,/80
END1 EQU * POSITIVE
ADK A7,/80
END0 EQU * ZERO
SLL A7,1
LDKL A6,/FCFF
ANS A6,2,A14 RESET CR IN CALLING PSW
ORS A7,2,A14 SET CR IN CALLING PSW
RTN A14
EJECT
*
*
DSUMOD EQU *
C1R A6,A6
C1R A7,A7
ANKL A7,/7FFF
ANKL A2,/7FFF
ADK A7,1
RF(P) DNOVR1
ADK A6,1
RF(O) DOVER4
RF DNOVER
DNOVR1 ADR A2,A7
RF(O) DOVER1
DNOVER ADR A1,A6
DNOVR2 EQU *
LDK A7,0
RB(P) END1
RB(N) END2
RB(O) END3
ADK A2,0
RB(Z) END0
RB END1
DOVER1 ANKL A2,/7FFF
ADK A1,1
RF(O) DOVER4
RB DNOVER
DOVER4 ADR A1,A6
RB(N) END3
ADK A1,0
RB DNOVR2
*
XIF
IFT MPYDIV=0
IFT CPU852=1
EJECT
MPYMOD EQU *
ST A3,2,A14 SAVE A3
ADKL A14,4 UPDATE STACK POINTER
LDK A1,0 CLEAR RESULT
LDK A2,0
LDR A3,A6
RF(Z) END000 RESULT=0 =1
RF(NN) ARG1PS ARG1 POSITIVE
NGR A6,A6
ARG1PS EQU *
XRR A3,A7 GET SIGN
ANKL A3,/8000 SIGN BIT
ORK A3,16 BIT COUNTER
ADK A7,0
RF(Z) END000 RESULT=0 =1
RF(NN) ARG2PS ARG2 POSITIVE
NGR A7,A7
ARG2PS SRC A7,1
RF(NN) MNOVR1 BIT NOT SET
ADR A1,A6
MNOVR1 EQU *
SUK A3,1
CCK A3,0
RF(Z) MNOVR2 READY
SRL A2,1 DOUBLE SHIFT RIGHT
SRC A1,1
RB(NN) ARG2PS
ORKL A2,/8000
ANKL A1,/7FFF
RB ARG2PS
*
EJECT MPYMOD
*
*
END000 EQU * =1
LDK A3,0 SET SIGN =1
MNOVR2 EQU *
LDR A6,A3 SAVE SIGN INDICATOR
LD A3,-2,A14 RESTORE REGISTER A3
NGR A1,A1
RF(O) END OVERFLOW
NGR A1,A1 RESET A1
SRL A2,1 A2 IN POSITION
ADK A6,0
RF(NN) END POSITIVE
NGR A2,A2 CHANGE RESULT TO NEGATIVE
RF(O) MNOVR4
RF(N) MNOVR4
SUK A1,1
MNOVR4 EQU *
ANKL A2,/7FFF
C1R A1,A1
END EQU *
ABR* A14
EJECT
DIVMOD EQU *
ST A3,2,A14 SAVE A3
LDK A3,16 BIT COUNTER
SLL A2,1
ADK A1,0 *SIGN OF DIVIDEND
RF(NN) DIVENP
ORKL A3,/A000 INDICATE NEGATIVE DIVIDENT
C1R A1,A1
C1R A2,A2
ADK A2,1
RF(NZ) DIVENP
ADK A1,1
RF(NP) ENDOVE OVERFLOW, A1=/8000
*
DIVENP ADK A6,0 *SIGN OF DIVISOR
RF(Z) ENDOVE OVERFLOW
RF(NN) DIVORP
XRKL A3,/C000 NEG DIVISOR,SIGN OF RESULT
NGR A6,A6
RF(O) DV8000 A6=/8000
*
EJECT DIVMOD
*
*
DIVORP EQU *
CWR A1,A6
RF(G) ENDOVE OVERFLOW
RF(NE) DVR000 LESS
ADK A3,0
RF(NN) ENDOVE RESULT POSITIVE:OVERFLOW
DVR000 EQU *
ADK A1,0
RF(N) DVR100 NEGATIVE
CWR A1,A6
RF(L) DVR200 TOO SMALL
DVR100 EQU *
SUR A1,A6 DIVIDE
ORK A2,1 RESULT
DVR200 EQU *
SUK A3,1 BIT COUNTER
CCK A3,0
RF(Z) END:00 ALL BITS DONE
SLL A1,1 DOUBLE SHIFT LEFT
ADK A2,0
RF(NN) DVR300
ORK A1,1
DVR300 EQU *
SLL A2,1
RB DVR000 NEXT
*
EJECT DIVMOD
*
*
*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS
*
DV8000 EQU *
XRR A1,A2
XRR A2,A1
XRR A1,A2
SRL A1,1
END:00 EQU * SET SIGN
ADK A3,0
RF(NN) RESPOS RESULT POSITIVE
LDKL A6,SETCR ADK A2,0
SLC A3,1
RF(N) END:10 DIVISOR NEGATIVE
END:05 EQU *
NGR A1,A1 DIVIDENT NEGATIVE
END:10 EQU *
NGR A2,A2
LD A3,2,A14 RESTORE A3
ADKL A14,4 UPDATE STACK POINTER
EXR A6 SET CR
ABR* A14
ENDOVE EQU *
LDKL A2,/8000 INDICATE OVERFLOW
RESPOS EQU * CR SET INCLUDING OVERFLOW
LDKL A6,SETCRO NGR A2,A2
SLC A3,2
RB(NN) END:10 DIVIDENT POSITIVE
RB END:05
XIF
IFT MPYDIV=0
IFT CPU852=0
EJECT
MPYMOD EQU *
ADKL A14,4 UPDATE STACK POINTER
LDR A2,A7
MUR A6
ABR* A14
EJECT
DIVMOD EQU *
ADKL A14,4 UPDATE STACK POINTER
DVR A6
ABR* A14
XIF
IFT MPYDIV=1
EJECT
MPYMOD EQU *
DIVMOD EQU *
LDK A1,/11
CF A15,HALT
XIF
*
END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT ARITMS REL 11.0 81-04-02 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0070 Head {h00=0x002e, h01=0x0050, text=» =1,MPYMOD DESTROYED A3 WHEN MULT WITH 0«, t00=0x0000, t01=0x0042}
0x0070…0090 Head {h00=0x001c, h01=0x0050, text=» =1,REL 11.0 81-01-26 «, t00=0x0000, t01=0x0074}
0x0090…009a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0094}
0x009a…00d6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x009e}
0x00d6…00e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00da}
0x00e0…0108 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00e4}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…0130 Head {h00=0x001a, h01=0x0050, text=»* DOUBLE ADD MODULE «, t00=0x0000, t01=0x0116}
0x0130…0152 Head {h00=0x001e, h01=0x0050, text=»* DOUBLE SUBTRACT MODULE«, t00=0x0000, t01=0x0134}
0x0152…016e Head {h00=0x0018, h01=0x0050, text=»* MULTIPLY MODULE «, t00=0x0000, t01=0x0156}
0x016e…0188 Head {h00=0x0016, h01=0x0050, text=»* DIVIDE MODULE «, t00=0x0000, t01=0x0172}
0x0188…0192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a6…01e2 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x001c}
0x01e2…0222 Head {h00=0x003c, h01=0x0050, text=»* THIS MODULE EXECUTES THE DOUBLE ADDITION INSTRUCTION«, t00=0x0001, t01=0x0058}
0x0222…022c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0098}
0x022c…024a Head {h00=0x001a, h01=0x0050, text=»* CALLING SEQUENCE: «, t00=0x0001, t01=0x00a2}
0x024a…0262 Head {h00=0x0014, h01=0x0050, text=»* CF A14,ADDMOD «, t00=0x0001, t01=0x00c0}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d8}
0x026c…028e Head {h00=0x001e, h01=0x0050, text=»* INPUT: A1,A2 = ARG1 «, t00=0x0001, t01=0x00e2}
0x028e…02b0 Head {h00=0x001e, h01=0x0050, text=»* A6,A7 = ARG2 «, t00=0x0001, t01=0x0104}
0x02b0…02ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02ba…02e0 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1,A2 = ARG1+ARG2«, t00=0x0001, t01=0x0130}
0x02e0…0306 Head {h00=0x0022, h01=0x0050, text=»* A6,A7 ARE CHANGED«, t00=0x0001, t01=0x0156}
0x0306…0310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017c}
0x0310…031e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0186}
0x031e…035a (2, 0, 400) Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x0004}
0x035a…0364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0040}
0x0364…03a8 Head {h00=0x0040, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE SUBTRACTION INSTRUCTION«, t00=0x0002, t01=0x004a}
0x03a8…03b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008e}
0x03b2…03d0 Head {h00=0x001a, h01=0x0050, text=»* CALLING SEQUENCE: «, t00=0x0002, t01=0x0098}
0x03d0…03e8 Head {h00=0x0014, h01=0x0050, text=»* CF A14,DSUMOD «, t00=0x0002, t01=0x00b6}
0x03e8…03f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ce}
0x03f2…0414 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A1,A2 = ARG1 «, t00=0x0002, t01=0x00d8}
0x0414…0436 Head {h00=0x001e, h01=0x0050, text=»* A6,A7 = ARG2 «, t00=0x0002, t01=0x00fa}
0x0436…0440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011c}
0x0440…0466 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1,A2 = ARG1-ARG2«, t00=0x0002, t01=0x0126}
0x0466…048c Head {h00=0x0022, h01=0x0050, text=»* A6,A7 ARE CHANGED«, t00=0x0002, t01=0x014c}
0x048c…049a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0172}
0x049a…04d6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x0180}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002c}
0x04e0…051a Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION«, t00=0x0003, t01=0x0036}
0x051a…0538 Head {h00=0x001a, h01=0x0050, text=»* CALLING SEQUENCE: «, t00=0x0003, t01=0x0070}
0x0538…0550 Head {h00=0x0014, h01=0x0050, text=»* CF A14,MPYMOD «, t00=0x0003, t01=0x008e}
0x0550…055a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a6}
0x055a…0578 Head {h00=0x001a, h01=0x0050, text=»* INPUT: A6 = ARG1 «, t00=0x0003, t01=0x00b0}
0x0578…0596 Head {h00=0x001a, h01=0x0050, text=»* A7 = ARG2 «, t00=0x0003, t01=0x00ce}
0x0596…05a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ec}
0x05a0…05c2 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1,A2 = RESULT«, t00=0x0003, t01=0x00f6}
0x05c2…05cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0118}
0x05cc…05da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0122}
0x05da…0616 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0003, t01=0x0130}
0x0616…0620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016c}
0x0620…0656 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION«, t00=0x0003, t01=0x0176}
0x0656…0660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001c}
0x0660…067a Head {h00=0x0016, h01=0x0050, text=»* CALLING SEQUENCE«, t00=0x0004, t01=0x0026}
0x067a…0692 Head {h00=0x0014, h01=0x0050, text=»* CF A14,DIVMOD «, t00=0x0004, t01=0x0040}
0x0692…069c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0058}
0x069c…06c2 Head {h00=0x0022, h01=0x0050, text=»* INPUT: A1,A2 = DIVIDENT «, t00=0x0004, t01=0x0062}
0x06c2…06e6 Head {h00=0x0020, h01=0x0050, text=»* A6 = DIVISOR«, t00=0x0004, t01=0x0088}
0x06e6…06f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ac}
0x06f0…0716 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1 = REMAINER «, t00=0x0004, t01=0x00b6}
0x0716…073c Head {h00=0x0022, h01=0x0050, text=»* A2 = QUOTIENT «, t00=0x0004, t01=0x00dc}
0x073c…0746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0746…076a Head {h00=0x0020, h01=0x0050, text=»* A6 IS CHANGED«, t00=0x0004, t01=0x010c}
0x076a…0780 Head {h00=0x0012, h01=0x0050, text=» EJECT ADDMOD«, t00=0x0004, t01=0x0130}
0x0780…078a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0146}
0x078a…0794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0150}
0x0794…07be Head {h00=0x0026, h01=0x0050, text=» ENTRY ADDMOD,DSUMOD,MPYMOD,DIVMOD«, t00=0x0004, t01=0x015a}
0x07be…07d2 Head {h00=0x0010, h01=0x0050, text=» EXTRN HALT «, t00=0x0004, t01=0x0184}
0x07d2…07dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07dc…07e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e6…0818 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0005, t01=0x001c}
0x0818…0822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004e}
0x0822…0840 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0005, t01=0x0058}
0x0840…084a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0076}
0x084a…087c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0005, t01=0x0080}
0x087c…0886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b2}
0x0886…08c0 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0005, t01=0x00bc}
0x08c0…08f2 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0005, t01=0x00f6}
0x08f2…08fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0128}
0x08fc…0910 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0005, t01=0x0132}
0x0910…091a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0146}
0x091a…0944 Head {h00=0x0026, h01=0x0050, text=»* MULTIPLY AND DIVIDE ARE OMITTED «, t00=0x0005, t01=0x0150}
0x0944…0962 Head {h00=0x001a, h01=0x0050, text=»* BY SETTING MPYDIV=1 «, t00=0x0005, t01=0x017a}
0x0962…096c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096c…097e Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0006, t01=0x0012}
0x097e…0996 Head {h00=0x0014, h01=0x0050, text=»MPYDIV EQU 00000«, t00=0x0006, t01=0x0024}
0x0996…09a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a0…09aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0046}
0x09aa…09e4 Head {h00=0x0036, h01=0x0050, text=»SETCR EQU /1200 ADK A2,0 ;SET CR WITHOUT OVERFLOW «, t00=0x0006, t01=0x0050}
0x09e4…0a22 Head {h00=0x003a, h01=0x0050, text=»SETCRO EQU /9A09 NGR A2,A2 ;SET CR INCLUDING OVERFLOW «, t00=0x0006, t01=0x008a}
0x0a22…0a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2c…0a3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00d2}
0x0a3a…0a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e0}
0x0a44…0a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ea}
0x0a4e…0a64 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0006, t01=0x00f4}
0x0a64…0a78 Head {h00=0x0010, h01=0x0050, text=»ADDMOD EQU *«, t00=0x0006, t01=0x010a}
0x0a78…0a9a Head {h00=0x001e, h01=0x0050, text=» ADKL A14,4 STACK POINTER «, t00=0x0006, t01=0x011e}
0x0a9a…0aaa Head {h00=0x000c, h01=0x0050, text=» DAR A6 «, t00=0x0006, t01=0x0140}
0x0aaa…0ad6 Head {h00=0x0028, h01=0x0050, text=» ABR* A14 RETURN WITH CONDITIONS SET«, t00=0x0006, t01=0x0150}
0x0ad6…0ae4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x017c}
0x0ae4…0aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018a}
0x0aee…0af8 (7, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af8…0b0c Head {h00=0x0010, h01=0x0050, text=»DSUMOD EQU *«, t00=0x0007, t01=0x000e}
0x0b0c…0b2e Head {h00=0x001e, h01=0x0050, text=» ADKL A14,4 STACK POINTER «, t00=0x0007, t01=0x0022}
0x0b2e…0b3e Head {h00=0x000c, h01=0x0050, text=» DSR A6 «, t00=0x0007, t01=0x0044}
0x0b3e…0b6a Head {h00=0x0028, h01=0x0050, text=» ABR* A14 RETURN WITH CONDITIONS SET«, t00=0x0007, t01=0x0054}
0x0b6a…0b76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0080}
0x0b76…0b8c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0007, t01=0x008c}
0x0b8c…0ba0 Head {h00=0x0010, h01=0x0050, text=»ADDMOD EQU *«, t00=0x0007, t01=0x00a2}
0x0ba0…0bc2 Head {h00=0x001e, h01=0x0050, text=» ANKL A7,/7FFF «, t00=0x0007, t01=0x00b6}
0x0bc2…0be4 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/7FFF «, t00=0x0007, t01=0x00d8}
0x0be4…0c04 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A7 «, t00=0x0007, t01=0x00fa}
0x0c04…0c16 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0007, t01=0x011a}
0x0c16…0c36 Head {h00=0x001c, h01=0x0050, text=» RF(O) AOVER1«, t00=0x0007, t01=0x012c}
0x0c36…0c6a Head {h00=0x0030, h01=0x0050, text=»ANOVER ADR A1,A6 * NO OVERFLOW«, t00=0x0007, t01=0x014c}
0x0c6a…0c88 Head {h00=0x001a, h01=0x0050, text=» RF(P) END1«, t00=0x0007, t01=0x0180}
0x0c88…0ca6 Head {h00=0x001a, h01=0x0050, text=» RF(N) END2«, t00=0x0008, t01=0x000e}
0x0ca6…0cc4 Head {h00=0x001a, h01=0x0050, text=» RF(O) END3«, t00=0x0008, t01=0x002c}
0x0cc4…0ce2 Head {h00=0x001a, h01=0x0050, text=»ANOVR1 ADK A2,0«, t00=0x0008, t01=0x004a}
0x0ce2…0d00 Head {h00=0x001a, h01=0x0050, text=» RF(Z) END0«, t00=0x0008, t01=0x0068}
0x0d00…0d10 Head {h00=0x000c, h01=0x0050, text=» RF END1«, t00=0x0008, t01=0x0086}
0x0d10…0d32 Head {h00=0x001e, h01=0x0050, text=»AOVER1 ANKL A2,/7FFF«, t00=0x0008, t01=0x0096}
0x0d32…0d50 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0008, t01=0x00b8}
0x0d50…0d70 Head {h00=0x001c, h01=0x0050, text=» RF(O) AOVER3«, t00=0x0008, t01=0x00d6}
0x0d70…0d82 Head {h00=0x000e, h01=0x0050, text=» RB ANOVER«, t00=0x0008, t01=0x00f6}
0x0d82…0da2 Head {h00=0x001c, h01=0x0050, text=»AOVER3 ADR A1,A6«, t00=0x0008, t01=0x0108}
0x0da2…0dc0 Head {h00=0x001a, h01=0x0050, text=» RF(N) END3«, t00=0x0008, t01=0x0128}
0x0dc0…0dde Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0008, t01=0x0146}
0x0dde…0dfc Head {h00=0x001a, h01=0x0050, text=» RF(P) END1«, t00=0x0008, t01=0x0164}
0x0dfc…0e0e Head {h00=0x000e, h01=0x0050, text=» RB ANOVR1«, t00=0x0008, t01=0x0182}
0x0e0e…0e18 (9, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e18…0e2e Head {h00=0x0012, h01=0x0050, text=» EJECT ADDMOD«, t00=0x0009, t01=0x000e}
0x0e2e…0e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0024}
0x0e38…0e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002e}
0x0e42…0e5e Head {h00=0x0018, h01=0x0050, text=»END3 EQU * OVERFLOW «, t00=0x0009, t01=0x0038}
0x0e5e…0e72 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0009, t01=0x0054}
0x0e72…0e8e Head {h00=0x0018, h01=0x0050, text=»END2 EQU * NEGATIVE «, t00=0x0009, t01=0x0068}
0x0e8e…0ea2 Head {h00=0x0010, h01=0x0050, text=» ADK A7,/80 «, t00=0x0009, t01=0x0084}
0x0ea2…0ebe Head {h00=0x0018, h01=0x0050, text=»END1 EQU * POSITIVE «, t00=0x0009, t01=0x0098}
0x0ebe…0ed2 Head {h00=0x0010, h01=0x0050, text=» ADK A7,/80 «, t00=0x0009, t01=0x00b4}
0x0ed2…0eea Head {h00=0x0014, h01=0x0050, text=»END0 EQU * ZERO «, t00=0x0009, t01=0x00c8}
0x0eea…0efc Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0009, t01=0x00e0}
0x0efc…0f12 Head {h00=0x0012, h01=0x0050, text=» LDKL A6,/FCFF«, t00=0x0009, t01=0x00f2}
0x0f12…0f40 Head {h00=0x002a, h01=0x0050, text=» ANS A6,2,A14 RESET CR IN CALLING PSW «, t00=0x0009, t01=0x0108}
0x0f40…0f6c Head {h00=0x0028, h01=0x0050, text=» ORS A7,2,A14 SET CR IN CALLING PSW «, t00=0x0009, t01=0x0136}
0x0f6c…0f74 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0162}
0x0f74…0f92 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0009, t01=0x016a}
0x0f92…0fa0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0188}
0x0fa0…0faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0faa…0fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb4…0fc8 Head {h00=0x0010, h01=0x0050, text=»DSUMOD EQU *«, t00=0x000a, t01=0x001c}
0x0fc8…0fe8 Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x000a, t01=0x0030}
0x0fe8…1008 Head {h00=0x001c, h01=0x0050, text=» C1R A7,A7 «, t00=0x000a, t01=0x0050}
0x1008…102a Head {h00=0x001e, h01=0x0050, text=» ANKL A7,/7FFF «, t00=0x000a, t01=0x0070}
0x102a…104c Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/7FFF «, t00=0x000a, t01=0x0092}
0x104c…106a Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x000a, t01=0x00b4}
0x106a…108a Head {h00=0x001c, h01=0x0050, text=» RF(P) DNOVR1«, t00=0x000a, t01=0x00d2}
0x108a…10a8 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x000a, t01=0x00f2}
0x10a8…10c8 Head {h00=0x001c, h01=0x0050, text=» RF(O) DOVER4«, t00=0x000a, t01=0x0110}
0x10c8…10da Head {h00=0x000e, h01=0x0050, text=» RF DNOVER«, t00=0x000a, t01=0x0130}
0x10da…10fa Head {h00=0x001c, h01=0x0050, text=»DNOVR1 ADR A2,A7 «, t00=0x000a, t01=0x0142}
0x10fa…111a Head {h00=0x001c, h01=0x0050, text=» RF(O) DOVER1«, t00=0x000a, t01=0x0162}
0x111a…113a Head {h00=0x001c, h01=0x0050, text=»DNOVER ADR A1,A6«, t00=0x000a, t01=0x0182}
0x113a…114e Head {h00=0x0010, h01=0x0050, text=»DNOVR2 EQU *«, t00=0x000b, t01=0x0012}
0x114e…1160 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x000b, t01=0x0026}
0x1160…1174 Head {h00=0x0010, h01=0x0050, text=» RB(P) END1 «, t00=0x000b, t01=0x0038}
0x1174…1192 Head {h00=0x001a, h01=0x0050, text=» RB(N) END2«, t00=0x000b, t01=0x004c}
0x1192…11b0 Head {h00=0x001a, h01=0x0050, text=» RB(O) END3«, t00=0x000b, t01=0x006a}
0x11b0…11ce Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x000b, t01=0x0088}
0x11ce…11ec Head {h00=0x001a, h01=0x0050, text=» RB(Z) END0«, t00=0x000b, t01=0x00a6}
0x11ec…11fc Head {h00=0x000c, h01=0x0050, text=» RB END1«, t00=0x000b, t01=0x00c4}
0x11fc…121e Head {h00=0x001e, h01=0x0050, text=»DOVER1 ANKL A2,/7FFF«, t00=0x000b, t01=0x00d4}
0x121e…123c Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x000b, t01=0x00f6}
0x123c…125c Head {h00=0x001c, h01=0x0050, text=» RF(O) DOVER4«, t00=0x000b, t01=0x0114}
0x125c…126e Head {h00=0x000e, h01=0x0050, text=» RB DNOVER«, t00=0x000b, t01=0x0134}
0x126e…128e Head {h00=0x001c, h01=0x0050, text=»DOVER4 ADR A1,A6«, t00=0x000b, t01=0x0146}
0x128e…12ac Head {h00=0x001a, h01=0x0050, text=» RB(N) END3«, t00=0x000b, t01=0x0166}
0x12ac…12ca Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x000b, t01=0x0184}
0x12ca…12dc Head {h00=0x000e, h01=0x0050, text=» RB DNOVR2«, t00=0x000c, t01=0x0012}
0x12dc…12e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0024}
0x12e6…12f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x002e}
0x12f2…1308 Head {h00=0x0012, h01=0x0050, text=» IFT MPYDIV=0 «, t00=0x000c, t01=0x003a}
0x1308…131e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000c, t01=0x0050}
0x131e…132c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0066}
0x132c…1340 Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x000c, t01=0x0074}
0x1340…135c Head {h00=0x0018, h01=0x0050, text=» ST A3,2,A14 SAVE A3«, t00=0x000c, t01=0x0088}
0x135c…1384 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x000c, t01=0x00a4}
0x1384…13a2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 CLEAR RESULT«, t00=0x000c, t01=0x00cc}
0x13a2…13c0 Head {h00=0x001a, h01=0x0050, text=» LDK A2,0«, t00=0x000c, t01=0x00ea}
0x13c0…13d2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x000c, t01=0x0108}
0x13d2…13f4 Head {h00=0x001e, h01=0x0050, text=» RF(Z) END000 RESULT=0 =1 «, t00=0x000c, t01=0x011a}
0x13f4…1418 Head {h00=0x0020, h01=0x0050, text=» RF(NN) ARG1PS ARG1 POSITIVE«, t00=0x000c, t01=0x013c}
0x1418…142a Head {h00=0x000e, h01=0x0050, text=» NGR A6,A6«, t00=0x000c, t01=0x0160}
0x142a…143e Head {h00=0x0010, h01=0x0050, text=»ARG1PS EQU *«, t00=0x000c, t01=0x0172}
0x143e…145a Head {h00=0x0018, h01=0x0050, text=» XRR A3,A7 GET SIGN «, t00=0x000c, t01=0x0186}
0x145a…147a Head {h00=0x001c, h01=0x0050, text=» ANKL A3,/8000 SIGN BIT «, t00=0x000d, t01=0x0012}
0x147a…1498 Head {h00=0x001a, h01=0x0050, text=» ORK A3,16 BIT COUNTER«, t00=0x000d, t01=0x0032}
0x1498…14aa Head {h00=0x000e, h01=0x0050, text=» ADK A7,0 «, t00=0x000d, t01=0x0050}
0x14aa…14cc Head {h00=0x001e, h01=0x0050, text=» RF(Z) END000 RESULT=0 =1 «, t00=0x000d, t01=0x0062}
0x14cc…14f0 Head {h00=0x0020, h01=0x0050, text=» RF(NN) ARG2PS ARG2 POSITIVE«, t00=0x000d, t01=0x0084}
0x14f0…1502 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x000d, t01=0x00a8}
0x1502…1520 Head {h00=0x001a, h01=0x0050, text=»ARG2PS SRC A7,1«, t00=0x000d, t01=0x00ba}
0x1520…1542 Head {h00=0x001e, h01=0x0050, text=» RF(NN) MNOVR1 BIT NOT SET«, t00=0x000d, t01=0x00d8}
0x1542…1562 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A6 «, t00=0x000d, t01=0x00fa}
0x1562…1576 Head {h00=0x0010, h01=0x0050, text=»MNOVR1 EQU *«, t00=0x000d, t01=0x011a}
0x1576…1588 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x000d, t01=0x012e}
0x1588…159a Head {h00=0x000e, h01=0x0050, text=» CCK A3,0 «, t00=0x000d, t01=0x0140}
0x159a…15b6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MNOVR2 READY «, t00=0x000d, t01=0x0152}
0x15b6…15da Head {h00=0x0020, h01=0x0050, text=» SRL A2,1 DOUBLE SHIFT RIGHT«, t00=0x000d, t01=0x016e}
0x15da…15f8 (14, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SRC A1,1«, t00=0x000e, t01=0x0004}
0x15f8…160e Head {h00=0x0012, h01=0x0050, text=» RB(NN) ARG2PS«, t00=0x000e, t01=0x0022}
0x160e…1630 Head {h00=0x001e, h01=0x0050, text=» ORKL A2,/8000 «, t00=0x000e, t01=0x0038}
0x1630…1652 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/7FFF «, t00=0x000e, t01=0x005a}
0x1652…1664 Head {h00=0x000e, h01=0x0050, text=» RB ARG2PS«, t00=0x000e, t01=0x007c}
0x1664…166e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008e}
0x166e…1684 Head {h00=0x0012, h01=0x0050, text=» EJECT MPYMOD«, t00=0x000e, t01=0x0098}
0x1684…168e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ae}
0x168e…1698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x1698…16b0 Head {h00=0x0014, h01=0x0050, text=»END000 EQU * =1«, t00=0x000e, t01=0x00c2}
0x16b0…16ce Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SET SIGN =1 «, t00=0x000e, t01=0x00da}
0x16ce…16e2 Head {h00=0x0010, h01=0x0050, text=»MNOVR2 EQU *«, t00=0x000e, t01=0x00f8}
0x16e2…1708 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A3 SAVE SIGN INDICATOR«, t00=0x000e, t01=0x010c}
0x1708…1732 Head {h00=0x0026, h01=0x0050, text=» LD A3,-2,A14 RESTORE REGISTER A3 «, t00=0x000e, t01=0x0132}
0x1732…1744 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A1«, t00=0x000e, t01=0x015c}
0x1744…1760 Head {h00=0x0018, h01=0x0050, text=» RF(O) END OVERFLOW «, t00=0x000e, t01=0x016e}
0x1760…177c Head {h00=0x0018, h01=0x0050, text=» NGR A1,A1 RESET A1 «, t00=0x000e, t01=0x018a}
0x177c…179c Head {h00=0x001c, h01=0x0050, text=» SRL A2,1 A2 IN POSITION«, t00=0x000f, t01=0x0016}
0x179c…17ae Head {h00=0x000e, h01=0x0050, text=» ADK A6,0 «, t00=0x000f, t01=0x0036}
0x17ae…17ca Head {h00=0x0018, h01=0x0050, text=» RF(NN) END POSITIVE«, t00=0x000f, t01=0x0048}
0x17ca…17f6 Head {h00=0x0028, h01=0x0050, text=» NGR A2,A2 CHANGE RESULT TO NEGATIVE«, t00=0x000f, t01=0x0064}
0x17f6…180c Head {h00=0x0012, h01=0x0050, text=» RF(O) MNOVR4 «, t00=0x000f, t01=0x0090}
0x180c…1822 Head {h00=0x0012, h01=0x0050, text=» RF(N) MNOVR4 «, t00=0x000f, t01=0x00a6}
0x1822…1834 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000f, t01=0x00bc}
0x1834…1848 Head {h00=0x0010, h01=0x0050, text=»MNOVR4 EQU *«, t00=0x000f, t01=0x00ce}
0x1848…185e Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x000f, t01=0x00e2}
0x185e…1870 Head {h00=0x000e, h01=0x0050, text=» C1R A1,A1«, t00=0x000f, t01=0x00f8}
0x1870…1882 Head {h00=0x000e, h01=0x0050, text=»END EQU * «, t00=0x000f, t01=0x010a}
0x1882…1894 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x000f, t01=0x011c}
0x1894…18a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x012e}
0x18a2…18b6 Head {h00=0x0010, h01=0x0050, text=»DIVMOD EQU *«, t00=0x000f, t01=0x013c}
0x18b6…18d2 Head {h00=0x0018, h01=0x0050, text=» ST A3,2,A14 SAVE A3«, t00=0x000f, t01=0x0150}
0x18d2…18f0 Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 BIT COUNTER«, t00=0x000f, t01=0x016c}
0x18f0…1902 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x000f, t01=0x018a}
0x1902…193a Head {h00=0x0034, h01=0x0050, text=» ADK A1,0 *SIGN OF DIVIDEND «, t00=0x0010, t01=0x000c}
0x193a…195c Head {h00=0x001e, h01=0x0050, text=» RF(NN) DIVENP «, t00=0x0010, t01=0x0044}
0x195c…198e Head {h00=0x002e, h01=0x0050, text=» ORKL A3,/A000 INDICATE NEGATIVE DIVIDENT «, t00=0x0010, t01=0x0066}
0x198e…19ae Head {h00=0x001c, h01=0x0050, text=» C1R A1,A1 «, t00=0x0010, t01=0x0098}
0x19ae…19ce Head {h00=0x001c, h01=0x0050, text=» C1R A2,A2 «, t00=0x0010, t01=0x00b8}
0x19ce…19ec Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0010, t01=0x00d8}
0x19ec…1a02 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DIVENP«, t00=0x0010, t01=0x00f6}
0x1a02…1a20 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0010, t01=0x010c}
0x1a20…1a4a Head {h00=0x0026, h01=0x0050, text=» RF(NP) ENDOVE OVERFLOW, A1=/8000 «, t00=0x0010, t01=0x012a}
0x1a4a…1a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0154}
0x1a54…1a8a Head {h00=0x0032, h01=0x0050, text=»DIVENP ADK A6,0 *SIGN OF DIVISOR«, t00=0x0010, t01=0x015e}
0x1a8a…1aa8 (17, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF(Z) ENDOVE OVERFLOW«, t00=0x0011, t01=0x0004}
0x1aa8…1aca Head {h00=0x001e, h01=0x0050, text=» RF(NN) DIVORP «, t00=0x0011, t01=0x0022}
0x1aca…1afc Head {h00=0x002e, h01=0x0050, text=» XRKL A3,/C000 NEG DIVISOR,SIGN OF RESULT «, t00=0x0011, t01=0x0044}
0x1afc…1b0e Head {h00=0x000e, h01=0x0050, text=» NGR A6,A6«, t00=0x0011, t01=0x0076}
0x1b0e…1b2c Head {h00=0x001a, h01=0x0050, text=» RF(O) DV8000 A6=/8000«, t00=0x0011, t01=0x0088}
0x1b2c…1b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a6}
0x1b36…1b4c Head {h00=0x0012, h01=0x0050, text=» EJECT DIVMOD«, t00=0x0011, t01=0x00b0}
0x1b4c…1b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c6}
0x1b56…1b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d0}
0x1b60…1b74 Head {h00=0x0010, h01=0x0050, text=»DIVORP EQU *«, t00=0x0011, t01=0x00da}
0x1b74…1b86 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A6«, t00=0x0011, t01=0x00ee}
0x1b86…1ba4 Head {h00=0x001a, h01=0x0050, text=» RF(G) ENDOVE OVERFLOW«, t00=0x0011, t01=0x0100}
0x1ba4…1bc0 Head {h00=0x0018, h01=0x0050, text=» RF(NE) DVR000 LESS «, t00=0x0011, t01=0x011e}
0x1bc0…1bd2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0011, t01=0x013a}
0x1bd2…1c02 Head {h00=0x002c, h01=0x0050, text=» RF(NN) ENDOVE RESULT POSITIVE:OVERFLOW «, t00=0x0011, t01=0x014c}
0x1c02…1c16 Head {h00=0x0010, h01=0x0050, text=»DVR000 EQU *«, t00=0x0011, t01=0x017c}
0x1c16…1c28 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0011, t01=0x0190}
0x1c28…1c46 Head {h00=0x001a, h01=0x0050, text=» RF(N) DVR100 NEGATIVE«, t00=0x0012, t01=0x0012}
0x1c46…1c58 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A6«, t00=0x0012, t01=0x0030}
0x1c58…1c78 Head {h00=0x001c, h01=0x0050, text=» RF(L) DVR200 TOO SMALL «, t00=0x0012, t01=0x0042}
0x1c78…1c8c Head {h00=0x0010, h01=0x0050, text=»DVR100 EQU *«, t00=0x0012, t01=0x0062}
0x1c8c…1ca6 Head {h00=0x0016, h01=0x0050, text=» SUR A1,A6 DIVIDE «, t00=0x0012, t01=0x0076}
0x1ca6…1cbe Head {h00=0x0014, h01=0x0050, text=» ORK A2,1 RESULT«, t00=0x0012, t01=0x0090}
0x1cbe…1cd2 Head {h00=0x0010, h01=0x0050, text=»DVR200 EQU *«, t00=0x0012, t01=0x00a8}
0x1cd2…1cf0 Head {h00=0x001a, h01=0x0050, text=» SUK A3,1 BIT COUNTER «, t00=0x0012, t01=0x00bc}
0x1cf0…1d02 Head {h00=0x000e, h01=0x0050, text=» CCK A3,0 «, t00=0x0012, t01=0x00da}
0x1d02…1d26 Head {h00=0x0020, h01=0x0050, text=» RF(Z) END:00 ALL BITS DONE «, t00=0x0012, t01=0x00ec}
0x1d26…1d4a Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 DOUBLE SHIFT LEFT «, t00=0x0012, t01=0x0110}
0x1d4a…1d5c Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0012, t01=0x0134}
0x1d5c…1d72 Head {h00=0x0012, h01=0x0050, text=» RF(NN) DVR300«, t00=0x0012, t01=0x0146}
0x1d72…1d84 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0012, t01=0x015c}
0x1d84…1d98 Head {h00=0x0010, h01=0x0050, text=»DVR300 EQU *«, t00=0x0012, t01=0x016e}
0x1d98…1daa Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0012, t01=0x0182}
0x1daa…1dc2 (19, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RB DVR000 NEXT «, t00=0x0013, t01=0x0004}
0x1dc2…1dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001c}
0x1dcc…1de2 Head {h00=0x0012, h01=0x0050, text=» EJECT DIVMOD«, t00=0x0013, t01=0x0026}
0x1de2…1dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1dec…1df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0046}
0x1df6…1e2e Head {h00=0x0034, h01=0x0050, text=»*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS «, t00=0x0013, t01=0x0050}
0x1e2e…1e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0088}
0x1e38…1e4c Head {h00=0x0010, h01=0x0050, text=»DV8000 EQU *«, t00=0x0013, t01=0x0092}
0x1e4c…1e5e Head {h00=0x000e, h01=0x0050, text=» XRR A1,A2«, t00=0x0013, t01=0x00a6}
0x1e5e…1e70 Head {h00=0x000e, h01=0x0050, text=» XRR A2,A1«, t00=0x0013, t01=0x00b8}
0x1e70…1e82 Head {h00=0x000e, h01=0x0050, text=» XRR A1,A2«, t00=0x0013, t01=0x00ca}
0x1e82…1e94 Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0013, t01=0x00dc}
0x1e94…1eb2 Head {h00=0x001a, h01=0x0050, text=»END:00 EQU * SET SIGN «, t00=0x0013, t01=0x00ee}
0x1eb2…1ec4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0013, t01=0x010c}
0x1ec4…1eea Head {h00=0x0022, h01=0x0050, text=» RF(NN) RESPOS RESULT POSITIVE«, t00=0x0013, t01=0x011e}
0x1eea…1f0a Head {h00=0x001c, h01=0x0050, text=» LDKL A6,SETCR ADK A2,0 «, t00=0x0013, t01=0x0144}
0x1f0a…1f1c Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0013, t01=0x0164}
0x1f1c…1f42 Head {h00=0x0022, h01=0x0050, text=» RF(N) END:10 DIVISOR NEGATIVE«, t00=0x0013, t01=0x0176}
0x1f42…1f56 Head {h00=0x0010, h01=0x0050, text=»END:05 EQU *«, t00=0x0014, t01=0x000c}
0x1f56…1f7a Head {h00=0x0020, h01=0x0050, text=» NGR A1,A1 DIVIDENT NEGATIVE«, t00=0x0014, t01=0x0020}
0x1f7a…1f8e Head {h00=0x0010, h01=0x0050, text=»END:10 EQU *«, t00=0x0014, t01=0x0044}
0x1f8e…1fa0 Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x0014, t01=0x0058}
0x1fa0…1fc0 Head {h00=0x001c, h01=0x0050, text=» LD A3,2,A14 RESTORE A3 «, t00=0x0014, t01=0x006a}
0x1fc0…1fe8 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0014, t01=0x008a}
0x1fe8…1ffe Head {h00=0x0012, h01=0x0050, text=» EXR A6 SET CR«, t00=0x0014, t01=0x00b2}
0x1ffe…2010 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0014, t01=0x00c8}
0x2010…2024 Head {h00=0x0010, h01=0x0050, text=»ENDOVE EQU *«, t00=0x0014, t01=0x00da}
0x2024…204c Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/8000 INDICATE OVERFLOW«, t00=0x0014, t01=0x00ee}
0x204c…207a Head {h00=0x002a, h01=0x0050, text=»RESPOS EQU * CR SET INCLUDING OVERFLOW«, t00=0x0014, t01=0x0116}
0x207a…209c Head {h00=0x001e, h01=0x0050, text=» LDKL A6,SETCRO NGR A2,A2 «, t00=0x0014, t01=0x0144}
0x209c…20ae Head {h00=0x000e, h01=0x0050, text=» SLC A3,2 «, t00=0x0014, t01=0x0166}
0x20ae…20d6 Head {h00=0x0024, h01=0x0050, text=» RB(NN) END:10 DIVIDENT POSITIVE«, t00=0x0014, t01=0x0178}
0x20d6…20e8 Head {h00=0x000e, h01=0x0050, text=» RB END:05«, t00=0x0015, t01=0x0010}
0x20e8…20f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0022}
0x20f4…210a Head {h00=0x0012, h01=0x0050, text=» IFT MPYDIV=0 «, t00=0x0015, t01=0x002e}
0x210a…2120 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0015, t01=0x0044}
0x2120…212e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x005a}
0x212e…2142 Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x0015, t01=0x0068}
0x2142…216a Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0015, t01=0x007c}
0x216a…217c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0015, t01=0x00a4}
0x217c…218c Head {h00=0x000c, h01=0x0050, text=» MUR A6 «, t00=0x0015, t01=0x00b6}
0x218c…219e Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0015, t01=0x00c6}
0x219e…21ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00d8}
0x21ac…21c0 Head {h00=0x0010, h01=0x0050, text=»DIVMOD EQU *«, t00=0x0015, t01=0x00e6}
0x21c0…21e8 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0015, t01=0x00fa}
0x21e8…21f8 Head {h00=0x000c, h01=0x0050, text=» DVR A6 «, t00=0x0015, t01=0x0122}
0x21f8…220a Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0015, t01=0x0132}
0x220a…2216 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0144}
0x2216…222c Head {h00=0x0012, h01=0x0050, text=» IFT MPYDIV=1 «, t00=0x0015, t01=0x0150}
0x222c…223a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0166}
0x223a…224e Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x0015, t01=0x0174}
0x224e…2262 Head {h00=0x0010, h01=0x0050, text=»DIVMOD EQU *«, t00=0x0015, t01=0x0188}
0x2262…2276 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/11 «, t00=0x0016, t01=0x000c}
0x2276…228a Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x0016, t01=0x0020}
0x228a…2296 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0034}
0x2296…22a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0040}
0x22a0…22b4 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0016, t01=0x004a}
0x22b4…22b8 Head {h00=0x4004, h01=0x0000}
0x22b8…22bc 00 16 00 5e ┆ ^┆
0x22bc…22c4 (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x22c4…2314 (24, 0, 400) 00 30 00 50 5c 49 44 45 4e 54 20 44 46 54 41 42 20 5c 52 45 4c 20 31 31 2e 30 20 38 31 2d 30 31 2d 32 36 20 38 37 30 31 30 35 30 34 31 31 30 30 00 00 00 04 00 04 00 50 00 00 00 38 00 06 00 50 2a 20 00 00 00 40 00 38 00 50 2a 2a 2a 2a 2a 2a ┆ 0 P IDENT DFTAB REL 11.0 81-01-26 870105041100 P 8 P* @ 8 P******┆
0x2314…2364 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 2a 2a 00 00 00 4a 00 06 00 50 2a 20 00 00 00 86 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 52 4d ┆********************************************** J P* $ P* PHILIPS TERM┆
0x2364…23b4 49 4e 41 4c 20 53 59 53 54 45 4d 20 20 50 54 53 00 00 00 90 00 06 00 50 2a 20 00 00 00 b8 00 26 00 50 2a 20 20 20 44 46 54 41 42 20 20 3d 20 44 49 53 43 20 46 49 4c 45 20 43 4f 44 45 20 54 41 42 4c 45 20 00 00 00 c2 00 06 00 50 2a 20 00 00 ┆INAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* ┆
0x23b4…2404 00 ec 00 06 00 50 2a 20 00 00 00 f6 00 06 00 50 2a 20 00 00 01 00 00 38 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 2a 2a 2a 2a 2a 2a 2a 2a 00 00 ┆ P* P* 8 P**************************************************** ┆
0x2404…2454 01 0a 00 06 00 50 2a 20 00 00 01 46 00 1c 00 50 2a 20 20 20 44 49 53 43 20 46 49 4c 45 20 43 4f 44 45 20 54 41 42 4c 45 00 00 01 50 00 06 00 50 2a 20 00 00 01 70 00 10 00 50 5c 45 4e 54 52 59 5c 44 46 54 41 42 00 00 01 7a 00 12 00 50 5c 45 ┆ P* F P* DISC FILE CODE TABLE P P* p P ENTRY DFTAB z P E┆
0x2454…24a4 (25, 2, 356) 4e 54 52 59 5c 44 46 54 41 42 45 20 00 00 01 8e 00 12 00 50 5c 45 4e 54 52 59 5c 44 4d 54 49 44 50 20 00 01 00 14 00 12 00 50 5c 45 4e 54 52 59 5c 44 4d 54 49 44 53 20 00 01 00 2a 00 12 00 50 5c 45 4e 54 52 59 5c 44 46 54 41 42 4c 20 00 01 ┆NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P ENTRY DFTABL ┆
0x24a4…24f4 00 40 00 06 00 50 2a 20 00 01 00 56 00 10 00 50 44 46 54 41 42 5c 45 51 55 5c 2a 20 00 01 00 60 00 10 00 50 5c 44 41 54 41 5c 2f 46 30 46 31 20 00 01 00 74 00 10 00 50 5c 44 41 54 41 5c 2f 46 32 46 33 20 00 01 00 88 00 16 00 50 5c 44 41 54 ┆ @ P* V PDFTAB EQU * ` P DATA /F0F1 t P DATA /F2F3 P DAT┆
0x24f4…2544 41 5c 2f 46 34 46 35 2c 2f 46 36 46 37 20 00 01 00 9c 00 16 00 50 5c 44 41 54 41 5c 2f 46 38 46 39 2c 2f 46 41 46 42 20 00 01 00 b6 00 10 00 50 5c 44 41 54 41 5c 2f 46 43 46 43 20 00 01 00 d0 00 10 00 50 5c 44 41 54 41 5c 2f 46 44 46 44 20 ┆A /F4F5,/F6F7 P DATA /F8F9,/FAFB P DATA /FCFC P DATA /FDFD ┆
0x2544…2594 00 01 00 e4 00 10 00 50 44 46 54 41 42 45 5c 45 51 55 5c 2a 00 01 00 f8 00 10 00 50 44 4d 54 49 44 50 5c 45 51 55 5c 2a 00 01 01 0c 00 10 00 50 44 4d 54 49 44 53 5c 45 51 55 5c 2a 00 01 01 20 00 1c 00 50 44 46 54 41 42 4c 5c 45 51 55 5c 44 ┆ PDFTABE EQU * PDMTIDP EQU * PDMTIDS EQU * PDFTABL EQU D┆
0x2594…25b8 46 54 41 42 45 2d 44 46 54 41 42 20 00 01 01 34 00 08 00 50 5c 45 4e 44 00 01 01 54 40 04 00 00 00 01 01 60 ┆FTABE-DFTAB 4 P END T@ `┆
0x25b8…25c0 (26, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x25c0…25c8 (27, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x25c8…2618 (28, 0, 400) 49 4e 20 46 52 45 45 20 51 55 45 55 45 20 49 53 20 52 45 4d 4f 56 45 44 2e 20 00 0b 01 74 00 06 00 50 2a 20 00 0c 00 22 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 48 45 52 45 20 49 53 20 4e 4f 20 46 52 45 45 20 50 ┆IN FREE QUEUE IS REMOVED. t P* " 8 P* IF THERE IS NO FREE P┆
0x2618…2668 41 47 45 53 2c 20 50 41 47 45 20 45 52 52 4f 52 00 0c 00 2c 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 53 20 49 4e 44 49 43 41 54 45 44 20 41 4e 44 20 54 48 45 20 52 45 51 55 45 53 54 20 49 53 20 54 45 52 4d 49 4e 41 54 45 ┆AGES, PAGE ERROR , > P* IS INDICATED AND THE REQUEST IS TERMINATE┆
0x2668…26b8 44 2e 00 0c 00 68 00 06 00 50 2a 20 00 0c 00 aa 00 08 00 50 5c 58 49 46 00 0c 00 b4 00 12 00 50 5c 49 46 46 5c 4d 4d 55 50 41 47 3d 31 20 00 0c 00 c0 00 06 00 50 2a 20 00 0c 00 d6 00 2e 00 50 2a 5c 54 48 45 20 4c 41 53 54 20 50 41 47 45 20 ┆D. h P* P XIF P IFF MMUPAG=1 P* . P* THE LAST PAGE ┆
0x26b8…2708 49 53 20 52 45 4d 4f 56 45 44 20 46 52 4f 4d 20 46 52 45 45 20 51 55 45 55 45 00 0c 00 e0 00 08 00 50 5c 58 49 46 00 0c 01 12 00 06 00 50 2a 20 00 0c 01 1e 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 20 43 41 4c 4c 49 4e ┆IS REMOVED FROM FREE QUEUE P XIF P* > P* THE CALLIN┆
0x2708…2758 47 20 54 41 53 4b 53 20 49 44 20 49 53 20 53 54 4f 52 45 44 20 49 4e 20 46 49 52 53 54 20 57 4f 52 44 00 0c 01 28 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 20 50 41 47 45 20 42 4c 4f 43 4b 2e 00 0c 01 6a 00 3a 00 50 2a 20 ┆G TASKS ID IS STORED IN FIRST WORD ( P* IN PAGE BLOCK. j : P* ┆