|
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: 10506 (0x290a)
Notes: pts_type(SC)
Names: »ARITMS.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/ARITMS.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/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 1
*
* MULTIPLY AND DIVIDE ARE OMITTED
* BY SETTING MPYDIV=1
*
X:A EQU 0
MPYDIV EQU X:A
*
*
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 1«, 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…0994 Head {h00=0x0012, h01=0x0050, text=»MPYDIV EQU X:A«, t00=0x0006, t01=0x0024}
0x0994…099e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003a}
0x099e…09a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09a8…09e2 Head {h00=0x0036, h01=0x0050, text=»SETCR EQU /1200 ADK A2,0 ;SET CR WITHOUT OVERFLOW «, t00=0x0006, t01=0x004e}
0x09e2…0a20 Head {h00=0x003a, h01=0x0050, text=»SETCRO EQU /9A09 NGR A2,A2 ;SET CR INCLUDING OVERFLOW «, t00=0x0006, t01=0x0088}
0x0a20…0a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c6}
0x0a2a…0a38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00d0}
0x0a38…0a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00de}
0x0a42…0a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e8}
0x0a4c…0a62 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0006, t01=0x00f2}
0x0a62…0a76 Head {h00=0x0010, h01=0x0050, text=»ADDMOD EQU *«, t00=0x0006, t01=0x0108}
0x0a76…0a98 Head {h00=0x001e, h01=0x0050, text=» ADKL A14,4 STACK POINTER «, t00=0x0006, t01=0x011c}
0x0a98…0aa8 Head {h00=0x000c, h01=0x0050, text=» DAR A6 «, t00=0x0006, t01=0x013e}
0x0aa8…0ad4 Head {h00=0x0028, h01=0x0050, text=» ABR* A14 RETURN WITH CONDITIONS SET«, t00=0x0006, t01=0x014e}
0x0ad4…0ae2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x017a}
0x0ae2…0aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aec…0af6 (7, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af6…0b0a Head {h00=0x0010, h01=0x0050, text=»DSUMOD EQU *«, t00=0x0007, t01=0x000e}
0x0b0a…0b2c Head {h00=0x001e, h01=0x0050, text=» ADKL A14,4 STACK POINTER «, t00=0x0007, t01=0x0022}
0x0b2c…0b3c Head {h00=0x000c, h01=0x0050, text=» DSR A6 «, t00=0x0007, t01=0x0044}
0x0b3c…0b68 Head {h00=0x0028, h01=0x0050, text=» ABR* A14 RETURN WITH CONDITIONS SET«, t00=0x0007, t01=0x0054}
0x0b68…0b74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0080}
0x0b74…0b8a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0007, t01=0x008c}
0x0b8a…0b9e Head {h00=0x0010, h01=0x0050, text=»ADDMOD EQU *«, t00=0x0007, t01=0x00a2}
0x0b9e…0bc0 Head {h00=0x001e, h01=0x0050, text=» ANKL A7,/7FFF «, t00=0x0007, t01=0x00b6}
0x0bc0…0be2 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/7FFF «, t00=0x0007, t01=0x00d8}
0x0be2…0c02 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A7 «, t00=0x0007, t01=0x00fa}
0x0c02…0c14 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0007, t01=0x011a}
0x0c14…0c34 Head {h00=0x001c, h01=0x0050, text=» RF(O) AOVER1«, t00=0x0007, t01=0x012c}
0x0c34…0c68 Head {h00=0x0030, h01=0x0050, text=»ANOVER ADR A1,A6 * NO OVERFLOW«, t00=0x0007, t01=0x014c}
0x0c68…0c86 Head {h00=0x001a, h01=0x0050, text=» RF(P) END1«, t00=0x0007, t01=0x0180}
0x0c86…0ca4 Head {h00=0x001a, h01=0x0050, text=» RF(N) END2«, t00=0x0008, t01=0x000e}
0x0ca4…0cc2 Head {h00=0x001a, h01=0x0050, text=» RF(O) END3«, t00=0x0008, t01=0x002c}
0x0cc2…0ce0 Head {h00=0x001a, h01=0x0050, text=»ANOVR1 ADK A2,0«, t00=0x0008, t01=0x004a}
0x0ce0…0cfe Head {h00=0x001a, h01=0x0050, text=» RF(Z) END0«, t00=0x0008, t01=0x0068}
0x0cfe…0d0e Head {h00=0x000c, h01=0x0050, text=» RF END1«, t00=0x0008, t01=0x0086}
0x0d0e…0d30 Head {h00=0x001e, h01=0x0050, text=»AOVER1 ANKL A2,/7FFF«, t00=0x0008, t01=0x0096}
0x0d30…0d4e Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0008, t01=0x00b8}
0x0d4e…0d6e Head {h00=0x001c, h01=0x0050, text=» RF(O) AOVER3«, t00=0x0008, t01=0x00d6}
0x0d6e…0d80 Head {h00=0x000e, h01=0x0050, text=» RB ANOVER«, t00=0x0008, t01=0x00f6}
0x0d80…0da0 Head {h00=0x001c, h01=0x0050, text=»AOVER3 ADR A1,A6«, t00=0x0008, t01=0x0108}
0x0da0…0dbe Head {h00=0x001a, h01=0x0050, text=» RF(N) END3«, t00=0x0008, t01=0x0128}
0x0dbe…0ddc Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0008, t01=0x0146}
0x0ddc…0dfa Head {h00=0x001a, h01=0x0050, text=» RF(P) END1«, t00=0x0008, t01=0x0164}
0x0dfa…0e0c Head {h00=0x000e, h01=0x0050, text=» RB ANOVR1«, t00=0x0008, t01=0x0182}
0x0e0c…0e16 (9, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e16…0e2c Head {h00=0x0012, h01=0x0050, text=» EJECT ADDMOD«, t00=0x0009, t01=0x000e}
0x0e2c…0e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0024}
0x0e36…0e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002e}
0x0e40…0e5c Head {h00=0x0018, h01=0x0050, text=»END3 EQU * OVERFLOW «, t00=0x0009, t01=0x0038}
0x0e5c…0e70 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0009, t01=0x0054}
0x0e70…0e8c Head {h00=0x0018, h01=0x0050, text=»END2 EQU * NEGATIVE «, t00=0x0009, t01=0x0068}
0x0e8c…0ea0 Head {h00=0x0010, h01=0x0050, text=» ADK A7,/80 «, t00=0x0009, t01=0x0084}
0x0ea0…0ebc Head {h00=0x0018, h01=0x0050, text=»END1 EQU * POSITIVE «, t00=0x0009, t01=0x0098}
0x0ebc…0ed0 Head {h00=0x0010, h01=0x0050, text=» ADK A7,/80 «, t00=0x0009, t01=0x00b4}
0x0ed0…0ee8 Head {h00=0x0014, h01=0x0050, text=»END0 EQU * ZERO «, t00=0x0009, t01=0x00c8}
0x0ee8…0efa Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0009, t01=0x00e0}
0x0efa…0f10 Head {h00=0x0012, h01=0x0050, text=» LDKL A6,/FCFF«, t00=0x0009, t01=0x00f2}
0x0f10…0f3e Head {h00=0x002a, h01=0x0050, text=» ANS A6,2,A14 RESET CR IN CALLING PSW «, t00=0x0009, t01=0x0108}
0x0f3e…0f6a Head {h00=0x0028, h01=0x0050, text=» ORS A7,2,A14 SET CR IN CALLING PSW «, t00=0x0009, t01=0x0136}
0x0f6a…0f72 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0162}
0x0f72…0f90 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0009, t01=0x016a}
0x0f90…0f9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0188}
0x0f9e…0fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0fa8…0fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb2…0fc6 Head {h00=0x0010, h01=0x0050, text=»DSUMOD EQU *«, t00=0x000a, t01=0x001c}
0x0fc6…0fe6 Head {h00=0x001c, h01=0x0050, text=» C1R A6,A6 «, t00=0x000a, t01=0x0030}
0x0fe6…1006 Head {h00=0x001c, h01=0x0050, text=» C1R A7,A7 «, t00=0x000a, t01=0x0050}
0x1006…1028 Head {h00=0x001e, h01=0x0050, text=» ANKL A7,/7FFF «, t00=0x000a, t01=0x0070}
0x1028…104a Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/7FFF «, t00=0x000a, t01=0x0092}
0x104a…1068 Head {h00=0x001a, h01=0x0050, text=» ADK A7,1«, t00=0x000a, t01=0x00b4}
0x1068…1088 Head {h00=0x001c, h01=0x0050, text=» RF(P) DNOVR1«, t00=0x000a, t01=0x00d2}
0x1088…10a6 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1«, t00=0x000a, t01=0x00f2}
0x10a6…10c6 Head {h00=0x001c, h01=0x0050, text=» RF(O) DOVER4«, t00=0x000a, t01=0x0110}
0x10c6…10d8 Head {h00=0x000e, h01=0x0050, text=» RF DNOVER«, t00=0x000a, t01=0x0130}
0x10d8…10f8 Head {h00=0x001c, h01=0x0050, text=»DNOVR1 ADR A2,A7 «, t00=0x000a, t01=0x0142}
0x10f8…1118 Head {h00=0x001c, h01=0x0050, text=» RF(O) DOVER1«, t00=0x000a, t01=0x0162}
0x1118…1138 Head {h00=0x001c, h01=0x0050, text=»DNOVER ADR A1,A6«, t00=0x000a, t01=0x0182}
0x1138…114c Head {h00=0x0010, h01=0x0050, text=»DNOVR2 EQU *«, t00=0x000b, t01=0x0012}
0x114c…115e Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x000b, t01=0x0026}
0x115e…1172 Head {h00=0x0010, h01=0x0050, text=» RB(P) END1 «, t00=0x000b, t01=0x0038}
0x1172…1190 Head {h00=0x001a, h01=0x0050, text=» RB(N) END2«, t00=0x000b, t01=0x004c}
0x1190…11ae Head {h00=0x001a, h01=0x0050, text=» RB(O) END3«, t00=0x000b, t01=0x006a}
0x11ae…11cc Head {h00=0x001a, h01=0x0050, text=» ADK A2,0«, t00=0x000b, t01=0x0088}
0x11cc…11ea Head {h00=0x001a, h01=0x0050, text=» RB(Z) END0«, t00=0x000b, t01=0x00a6}
0x11ea…11fa Head {h00=0x000c, h01=0x0050, text=» RB END1«, t00=0x000b, t01=0x00c4}
0x11fa…121c Head {h00=0x001e, h01=0x0050, text=»DOVER1 ANKL A2,/7FFF«, t00=0x000b, t01=0x00d4}
0x121c…123a Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x000b, t01=0x00f6}
0x123a…125a Head {h00=0x001c, h01=0x0050, text=» RF(O) DOVER4«, t00=0x000b, t01=0x0114}
0x125a…126c Head {h00=0x000e, h01=0x0050, text=» RB DNOVER«, t00=0x000b, t01=0x0134}
0x126c…128c Head {h00=0x001c, h01=0x0050, text=»DOVER4 ADR A1,A6«, t00=0x000b, t01=0x0146}
0x128c…12aa Head {h00=0x001a, h01=0x0050, text=» RB(N) END3«, t00=0x000b, t01=0x0166}
0x12aa…12c8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x000b, t01=0x0184}
0x12c8…12da Head {h00=0x000e, h01=0x0050, text=» RB DNOVR2«, t00=0x000c, t01=0x0012}
0x12da…12e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0024}
0x12e4…12f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x002e}
0x12f0…1306 Head {h00=0x0012, h01=0x0050, text=» IFT MPYDIV=0 «, t00=0x000c, t01=0x003a}
0x1306…131c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000c, t01=0x0050}
0x131c…132a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0066}
0x132a…133e Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x000c, t01=0x0074}
0x133e…135a Head {h00=0x0018, h01=0x0050, text=» ST A3,2,A14 SAVE A3«, t00=0x000c, t01=0x0088}
0x135a…1382 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x000c, t01=0x00a4}
0x1382…13a0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 CLEAR RESULT«, t00=0x000c, t01=0x00cc}
0x13a0…13be Head {h00=0x001a, h01=0x0050, text=» LDK A2,0«, t00=0x000c, t01=0x00ea}
0x13be…13d0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x000c, t01=0x0108}
0x13d0…13f2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) END000 RESULT=0 =1 «, t00=0x000c, t01=0x011a}
0x13f2…1416 Head {h00=0x0020, h01=0x0050, text=» RF(NN) ARG1PS ARG1 POSITIVE«, t00=0x000c, t01=0x013c}
0x1416…1428 Head {h00=0x000e, h01=0x0050, text=» NGR A6,A6«, t00=0x000c, t01=0x0160}
0x1428…143c Head {h00=0x0010, h01=0x0050, text=»ARG1PS EQU *«, t00=0x000c, t01=0x0172}
0x143c…1458 Head {h00=0x0018, h01=0x0050, text=» XRR A3,A7 GET SIGN «, t00=0x000c, t01=0x0186}
0x1458…1478 Head {h00=0x001c, h01=0x0050, text=» ANKL A3,/8000 SIGN BIT «, t00=0x000d, t01=0x0012}
0x1478…1496 Head {h00=0x001a, h01=0x0050, text=» ORK A3,16 BIT COUNTER«, t00=0x000d, t01=0x0032}
0x1496…14a8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,0 «, t00=0x000d, t01=0x0050}
0x14a8…14ca Head {h00=0x001e, h01=0x0050, text=» RF(Z) END000 RESULT=0 =1 «, t00=0x000d, t01=0x0062}
0x14ca…14ee Head {h00=0x0020, h01=0x0050, text=» RF(NN) ARG2PS ARG2 POSITIVE«, t00=0x000d, t01=0x0084}
0x14ee…1500 Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x000d, t01=0x00a8}
0x1500…151e Head {h00=0x001a, h01=0x0050, text=»ARG2PS SRC A7,1«, t00=0x000d, t01=0x00ba}
0x151e…1540 Head {h00=0x001e, h01=0x0050, text=» RF(NN) MNOVR1 BIT NOT SET«, t00=0x000d, t01=0x00d8}
0x1540…1560 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A6 «, t00=0x000d, t01=0x00fa}
0x1560…1574 Head {h00=0x0010, h01=0x0050, text=»MNOVR1 EQU *«, t00=0x000d, t01=0x011a}
0x1574…1586 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x000d, t01=0x012e}
0x1586…1598 Head {h00=0x000e, h01=0x0050, text=» CCK A3,0 «, t00=0x000d, t01=0x0140}
0x1598…15b4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MNOVR2 READY «, t00=0x000d, t01=0x0152}
0x15b4…15d8 Head {h00=0x0020, h01=0x0050, text=» SRL A2,1 DOUBLE SHIFT RIGHT«, t00=0x000d, t01=0x016e}
0x15d8…15f6 (14, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SRC A1,1«, t00=0x000e, t01=0x0004}
0x15f6…160c Head {h00=0x0012, h01=0x0050, text=» RB(NN) ARG2PS«, t00=0x000e, t01=0x0022}
0x160c…162e Head {h00=0x001e, h01=0x0050, text=» ORKL A2,/8000 «, t00=0x000e, t01=0x0038}
0x162e…1650 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/7FFF «, t00=0x000e, t01=0x005a}
0x1650…1662 Head {h00=0x000e, h01=0x0050, text=» RB ARG2PS«, t00=0x000e, t01=0x007c}
0x1662…166c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008e}
0x166c…1682 Head {h00=0x0012, h01=0x0050, text=» EJECT MPYMOD«, t00=0x000e, t01=0x0098}
0x1682…168c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ae}
0x168c…1696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x1696…16ae Head {h00=0x0014, h01=0x0050, text=»END000 EQU * =1«, t00=0x000e, t01=0x00c2}
0x16ae…16cc Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SET SIGN =1 «, t00=0x000e, t01=0x00da}
0x16cc…16e0 Head {h00=0x0010, h01=0x0050, text=»MNOVR2 EQU *«, t00=0x000e, t01=0x00f8}
0x16e0…1706 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A3 SAVE SIGN INDICATOR«, t00=0x000e, t01=0x010c}
0x1706…1730 Head {h00=0x0026, h01=0x0050, text=» LD A3,-2,A14 RESTORE REGISTER A3 «, t00=0x000e, t01=0x0132}
0x1730…1742 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A1«, t00=0x000e, t01=0x015c}
0x1742…175e Head {h00=0x0018, h01=0x0050, text=» RF(O) END OVERFLOW «, t00=0x000e, t01=0x016e}
0x175e…177a Head {h00=0x0018, h01=0x0050, text=» NGR A1,A1 RESET A1 «, t00=0x000e, t01=0x018a}
0x177a…179a Head {h00=0x001c, h01=0x0050, text=» SRL A2,1 A2 IN POSITION«, t00=0x000f, t01=0x0016}
0x179a…17ac Head {h00=0x000e, h01=0x0050, text=» ADK A6,0 «, t00=0x000f, t01=0x0036}
0x17ac…17c8 Head {h00=0x0018, h01=0x0050, text=» RF(NN) END POSITIVE«, t00=0x000f, t01=0x0048}
0x17c8…17f4 Head {h00=0x0028, h01=0x0050, text=» NGR A2,A2 CHANGE RESULT TO NEGATIVE«, t00=0x000f, t01=0x0064}
0x17f4…180a Head {h00=0x0012, h01=0x0050, text=» RF(O) MNOVR4 «, t00=0x000f, t01=0x0090}
0x180a…1820 Head {h00=0x0012, h01=0x0050, text=» RF(N) MNOVR4 «, t00=0x000f, t01=0x00a6}
0x1820…1832 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000f, t01=0x00bc}
0x1832…1846 Head {h00=0x0010, h01=0x0050, text=»MNOVR4 EQU *«, t00=0x000f, t01=0x00ce}
0x1846…185c Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x000f, t01=0x00e2}
0x185c…186e Head {h00=0x000e, h01=0x0050, text=» C1R A1,A1«, t00=0x000f, t01=0x00f8}
0x186e…1880 Head {h00=0x000e, h01=0x0050, text=»END EQU * «, t00=0x000f, t01=0x010a}
0x1880…1892 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x000f, t01=0x011c}
0x1892…18a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x012e}
0x18a0…18b4 Head {h00=0x0010, h01=0x0050, text=»DIVMOD EQU *«, t00=0x000f, t01=0x013c}
0x18b4…18d0 Head {h00=0x0018, h01=0x0050, text=» ST A3,2,A14 SAVE A3«, t00=0x000f, t01=0x0150}
0x18d0…18ee Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 BIT COUNTER«, t00=0x000f, t01=0x016c}
0x18ee…1900 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x000f, t01=0x018a}
0x1900…1938 Head {h00=0x0034, h01=0x0050, text=» ADK A1,0 *SIGN OF DIVIDEND «, t00=0x0010, t01=0x000c}
0x1938…195a Head {h00=0x001e, h01=0x0050, text=» RF(NN) DIVENP «, t00=0x0010, t01=0x0044}
0x195a…198c Head {h00=0x002e, h01=0x0050, text=» ORKL A3,/A000 INDICATE NEGATIVE DIVIDENT «, t00=0x0010, t01=0x0066}
0x198c…19ac Head {h00=0x001c, h01=0x0050, text=» C1R A1,A1 «, t00=0x0010, t01=0x0098}
0x19ac…19cc Head {h00=0x001c, h01=0x0050, text=» C1R A2,A2 «, t00=0x0010, t01=0x00b8}
0x19cc…19ea Head {h00=0x001a, h01=0x0050, text=» ADK A2,1«, t00=0x0010, t01=0x00d8}
0x19ea…1a00 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DIVENP«, t00=0x0010, t01=0x00f6}
0x1a00…1a1e Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0010, t01=0x010c}
0x1a1e…1a48 Head {h00=0x0026, h01=0x0050, text=» RF(NP) ENDOVE OVERFLOW, A1=/8000 «, t00=0x0010, t01=0x012a}
0x1a48…1a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0154}
0x1a52…1a88 Head {h00=0x0032, h01=0x0050, text=»DIVENP ADK A6,0 *SIGN OF DIVISOR«, t00=0x0010, t01=0x015e}
0x1a88…1aa6 (17, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF(Z) ENDOVE OVERFLOW«, t00=0x0011, t01=0x0004}
0x1aa6…1ac8 Head {h00=0x001e, h01=0x0050, text=» RF(NN) DIVORP «, t00=0x0011, t01=0x0022}
0x1ac8…1afa Head {h00=0x002e, h01=0x0050, text=» XRKL A3,/C000 NEG DIVISOR,SIGN OF RESULT «, t00=0x0011, t01=0x0044}
0x1afa…1b0c Head {h00=0x000e, h01=0x0050, text=» NGR A6,A6«, t00=0x0011, t01=0x0076}
0x1b0c…1b2a Head {h00=0x001a, h01=0x0050, text=» RF(O) DV8000 A6=/8000«, t00=0x0011, t01=0x0088}
0x1b2a…1b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a6}
0x1b34…1b4a Head {h00=0x0012, h01=0x0050, text=» EJECT DIVMOD«, t00=0x0011, t01=0x00b0}
0x1b4a…1b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c6}
0x1b54…1b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d0}
0x1b5e…1b72 Head {h00=0x0010, h01=0x0050, text=»DIVORP EQU *«, t00=0x0011, t01=0x00da}
0x1b72…1b84 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A6«, t00=0x0011, t01=0x00ee}
0x1b84…1ba2 Head {h00=0x001a, h01=0x0050, text=» RF(G) ENDOVE OVERFLOW«, t00=0x0011, t01=0x0100}
0x1ba2…1bbe Head {h00=0x0018, h01=0x0050, text=» RF(NE) DVR000 LESS «, t00=0x0011, t01=0x011e}
0x1bbe…1bd0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0011, t01=0x013a}
0x1bd0…1c00 Head {h00=0x002c, h01=0x0050, text=» RF(NN) ENDOVE RESULT POSITIVE:OVERFLOW «, t00=0x0011, t01=0x014c}
0x1c00…1c14 Head {h00=0x0010, h01=0x0050, text=»DVR000 EQU *«, t00=0x0011, t01=0x017c}
0x1c14…1c26 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0011, t01=0x0190}
0x1c26…1c44 Head {h00=0x001a, h01=0x0050, text=» RF(N) DVR100 NEGATIVE«, t00=0x0012, t01=0x0012}
0x1c44…1c56 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A6«, t00=0x0012, t01=0x0030}
0x1c56…1c76 Head {h00=0x001c, h01=0x0050, text=» RF(L) DVR200 TOO SMALL «, t00=0x0012, t01=0x0042}
0x1c76…1c8a Head {h00=0x0010, h01=0x0050, text=»DVR100 EQU *«, t00=0x0012, t01=0x0062}
0x1c8a…1ca4 Head {h00=0x0016, h01=0x0050, text=» SUR A1,A6 DIVIDE «, t00=0x0012, t01=0x0076}
0x1ca4…1cbc Head {h00=0x0014, h01=0x0050, text=» ORK A2,1 RESULT«, t00=0x0012, t01=0x0090}
0x1cbc…1cd0 Head {h00=0x0010, h01=0x0050, text=»DVR200 EQU *«, t00=0x0012, t01=0x00a8}
0x1cd0…1cee Head {h00=0x001a, h01=0x0050, text=» SUK A3,1 BIT COUNTER «, t00=0x0012, t01=0x00bc}
0x1cee…1d00 Head {h00=0x000e, h01=0x0050, text=» CCK A3,0 «, t00=0x0012, t01=0x00da}
0x1d00…1d24 Head {h00=0x0020, h01=0x0050, text=» RF(Z) END:00 ALL BITS DONE «, t00=0x0012, t01=0x00ec}
0x1d24…1d48 Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 DOUBLE SHIFT LEFT «, t00=0x0012, t01=0x0110}
0x1d48…1d5a Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0012, t01=0x0134}
0x1d5a…1d70 Head {h00=0x0012, h01=0x0050, text=» RF(NN) DVR300«, t00=0x0012, t01=0x0146}
0x1d70…1d82 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0012, t01=0x015c}
0x1d82…1d96 Head {h00=0x0010, h01=0x0050, text=»DVR300 EQU *«, t00=0x0012, t01=0x016e}
0x1d96…1da8 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0012, t01=0x0182}
0x1da8…1dc0 (19, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RB DVR000 NEXT «, t00=0x0013, t01=0x0004}
0x1dc0…1dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001c}
0x1dca…1de0 Head {h00=0x0012, h01=0x0050, text=» EJECT DIVMOD«, t00=0x0013, t01=0x0026}
0x1de0…1dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1dea…1df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0046}
0x1df4…1e2c Head {h00=0x0034, h01=0x0050, text=»*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS «, t00=0x0013, t01=0x0050}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0088}
0x1e36…1e4a Head {h00=0x0010, h01=0x0050, text=»DV8000 EQU *«, t00=0x0013, t01=0x0092}
0x1e4a…1e5c Head {h00=0x000e, h01=0x0050, text=» XRR A1,A2«, t00=0x0013, t01=0x00a6}
0x1e5c…1e6e Head {h00=0x000e, h01=0x0050, text=» XRR A2,A1«, t00=0x0013, t01=0x00b8}
0x1e6e…1e80 Head {h00=0x000e, h01=0x0050, text=» XRR A1,A2«, t00=0x0013, t01=0x00ca}
0x1e80…1e92 Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0013, t01=0x00dc}
0x1e92…1eb0 Head {h00=0x001a, h01=0x0050, text=»END:00 EQU * SET SIGN «, t00=0x0013, t01=0x00ee}
0x1eb0…1ec2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0013, t01=0x010c}
0x1ec2…1ee8 Head {h00=0x0022, h01=0x0050, text=» RF(NN) RESPOS RESULT POSITIVE«, t00=0x0013, t01=0x011e}
0x1ee8…1f08 Head {h00=0x001c, h01=0x0050, text=» LDKL A6,SETCR ADK A2,0 «, t00=0x0013, t01=0x0144}
0x1f08…1f1a Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0013, t01=0x0164}
0x1f1a…1f40 Head {h00=0x0022, h01=0x0050, text=» RF(N) END:10 DIVISOR NEGATIVE«, t00=0x0013, t01=0x0176}
0x1f40…1f54 Head {h00=0x0010, h01=0x0050, text=»END:05 EQU *«, t00=0x0014, t01=0x000c}
0x1f54…1f78 Head {h00=0x0020, h01=0x0050, text=» NGR A1,A1 DIVIDENT NEGATIVE«, t00=0x0014, t01=0x0020}
0x1f78…1f8c Head {h00=0x0010, h01=0x0050, text=»END:10 EQU *«, t00=0x0014, t01=0x0044}
0x1f8c…1f9e Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x0014, t01=0x0058}
0x1f9e…1fbe Head {h00=0x001c, h01=0x0050, text=» LD A3,2,A14 RESTORE A3 «, t00=0x0014, t01=0x006a}
0x1fbe…1fe6 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0014, t01=0x008a}
0x1fe6…1ffc Head {h00=0x0012, h01=0x0050, text=» EXR A6 SET CR«, t00=0x0014, t01=0x00b2}
0x1ffc…200e Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0014, t01=0x00c8}
0x200e…2022 Head {h00=0x0010, h01=0x0050, text=»ENDOVE EQU *«, t00=0x0014, t01=0x00da}
0x2022…204a Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/8000 INDICATE OVERFLOW«, t00=0x0014, t01=0x00ee}
0x204a…2078 Head {h00=0x002a, h01=0x0050, text=»RESPOS EQU * CR SET INCLUDING OVERFLOW«, t00=0x0014, t01=0x0116}
0x2078…209a Head {h00=0x001e, h01=0x0050, text=» LDKL A6,SETCRO NGR A2,A2 «, t00=0x0014, t01=0x0144}
0x209a…20ac Head {h00=0x000e, h01=0x0050, text=» SLC A3,2 «, t00=0x0014, t01=0x0166}
0x20ac…20d4 Head {h00=0x0024, h01=0x0050, text=» RB(NN) END:10 DIVIDENT POSITIVE«, t00=0x0014, t01=0x0178}
0x20d4…20e6 Head {h00=0x000e, h01=0x0050, text=» RB END:05«, t00=0x0015, t01=0x0010}
0x20e6…20f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0022}
0x20f2…2108 Head {h00=0x0012, h01=0x0050, text=» IFT MPYDIV=0 «, t00=0x0015, t01=0x002e}
0x2108…211e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0015, t01=0x0044}
0x211e…212c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x005a}
0x212c…2140 Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x0015, t01=0x0068}
0x2140…2168 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0015, t01=0x007c}
0x2168…217a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0015, t01=0x00a4}
0x217a…218a Head {h00=0x000c, h01=0x0050, text=» MUR A6 «, t00=0x0015, t01=0x00b6}
0x218a…219c Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0015, t01=0x00c6}
0x219c…21aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00d8}
0x21aa…21be Head {h00=0x0010, h01=0x0050, text=»DIVMOD EQU *«, t00=0x0015, t01=0x00e6}
0x21be…21e6 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0015, t01=0x00fa}
0x21e6…21f6 Head {h00=0x000c, h01=0x0050, text=» DVR A6 «, t00=0x0015, t01=0x0122}
0x21f6…2208 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0015, t01=0x0132}
0x2208…2214 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0144}
0x2214…222a Head {h00=0x0012, h01=0x0050, text=» IFT MPYDIV=1 «, t00=0x0015, t01=0x0150}
0x222a…2238 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0166}
0x2238…224c Head {h00=0x0010, h01=0x0050, text=»MPYMOD EQU *«, t00=0x0015, t01=0x0174}
0x224c…2260 Head {h00=0x0010, h01=0x0050, text=»DIVMOD EQU *«, t00=0x0015, t01=0x0188}
0x2260…2274 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/11 «, t00=0x0016, t01=0x000c}
0x2274…2288 Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x0016, t01=0x0020}
0x2288…2294 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0034}
0x2294…229e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0040}
0x229e…22b2 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0016, t01=0x004a}
0x22b2…22b6 Head {h00=0x4004, h01=0x0000}
0x22b6…22ba 00 16 00 5e ┆ ^┆
0x22ba…22c2 (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x22c2…22ca (24, 1, 8) 20 04 00 00 00 38 00 04 ┆ 8 ┆
0x22ca…231a (25, 0, 400) 97 40 03 94 1f 02 54 08 f7 a1 09 3e 8f 20 0a 1e 98 41 03 84 50 0c a0 41 03 82 3c e7 56 04 90 41 03 82 8f 20 03 aa 20 bf 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf 83 5e 00 10 83 41 0d 82 82 5f 00 0e 81 5f 00 10 83 5e 00 0c 8f 20 00 00 20 bf 81 3f ┆ @ T > A P A < V A ? ? ? ? ? ^ A _ _ ^ ?┆
0x231a…236a 82 3f 83 3f 81 20 42 70 82 24 50 10 83 54 00 05 eb 49 00 05 52 06 81 08 82 24 5c 0c 82 35 85 25 8f 20 0e d2 f7 a1 0d 5e 85 20 0f 4a 57 0c f7 a1 0d 5e 06 01 57 06 f7 a1 0d 5e 06 00 87 54 00 0a 54 1e 82 55 00 0a 81 55 00 0c 83 55 00 10 84 55 ┆ ? ? Bp $P T I R $ 5 % ^ JW ^ W ^ T T U U U U┆
0x236a…23ba 00 12 84 54 00 02 84 55 00 0e f7 a1 0d 84 57 e0 87 10 f7 a1 0e 2c 81 1c 82 10 f7 a1 0e 2c 95 20 00 06 83 14 85 34 16 00 54 04 15 00 5c 0c 84 2d 85 31 5f 26 a0 55 00 0a 84 54 00 06 50 c2 83 30 83 55 00 06 f7 a1 0e 50 87 04 84 08 f7 a1 0e 50 ┆ T U W , , 4 T - 1_& U T P 0 U P P┆
0x23ba…240a 84 1c 5f 6e 20 bf 85 3f 84 40 42 14 54 06 01 0b f7 a1 0f 26 85 30 85 41 42 14 83 31 82 51 00 02 81 51 00 04 85 3e 57 88 20 bf 83 30 81 40 42 14 81 31 84 41 42 14 82 50 00 02 81 50 00 04 57 70 82 22 81 3f 86 20 00 2a 96 14 81 58 ff fe 19 04 ┆ _n ? @B T & 0 AB 1 Q Q >W 0 @B 1 AB P P Wp " ? * X ┆
0x240a…245a 52 0c ea 59 00 01 50 20 16 04 5f 0e 81 3f 86 40 00 b6 81 38 16 02 19 04 52 0a ea 59 00 01 50 08 16 04 5f 0e 06 00 57 36 e2 38 86 58 00 02 57 2e 81 3f 81 60 00 b4 91 40 45 48 a0 04 00 10 00 54 88 00 02 22 00 00 11 04 48 01 20 00 00 80 00 20 ┆R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @EH T " H ┆
0x245a…24aa (26, 0, 400) 00 b4 19 02 e9 40 00 b4 50 0a 82 24 ef 48 00 02 5c 10 57 12 02 00 57 0e 80 be 87 3e 86 3e 85 3e 84 3e 83 3e 82 3e 81 3e 20 bf 97 a0 00 04 8f 3e 01 02 e9 40 0f 72 56 0e 81 3f 20 bf f7 c5 0f 72 81 3e 11 02 5f 14 f0 3e 81 3f 81 20 c0 c0 81 5f ┆ @ P $ H W W > > > > > > > > @ rV ? r > _ > ? _┆
0x24aa…24fa 00 04 81 3e f0 3e 81 3f e1 5e 00 18 21 fc 19 bc 59 18 81 5e 00 18 a1 20 ff fe 5f 1e 00 00 00 00 01 05 f7 a1 0f 26 f7 a1 0d 5e 81 bf 82 bf 83 bf 84 bf 85 bf 86 bf 87 c1 0f 1e 41 2e 20 7f 8f 20 2e a0 00 00 00 00 00 00 00 00 00 00 23 4d 00 31 ┆ > > ? ^ ! Y ^ _ & ^ A. . #M 1┆
0x24fa…254a 00 00 c4 c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 14 fe 12 ac 24 24 15 ea 1d a8 30 7e 00 00 00 00 42 1a 4a 03 42 03 42 c3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0a 0f 80 00 00 ┆ $$ 0~ B J B B ┆
0x254a…259a 00 00 00 00 80 41 0f 1c f7 a1 0d 5e 07 02 57 00 85 5c 0f 9a f0 55 00 06 8c 20 42 a8 f7 a1 12 d6 1f 0a 01 00 83 08 a3 20 70 00 8c 20 10 f2 83 08 23 ff 50 1e 1b 07 50 8c 13 02 88 20 10 c6 13 02 88 20 10 f2 1b 18 54 06 90 55 00 14 57 62 90 55 ┆ A ^ W U B p # P P T U Wb U┆
0x259a…25ea 00 16 f7 a1 11 64 1a 05 50 58 82 58 00 02 83 08 a2 20 20 10 54 4c 2b 10 83 59 00 02 01 10 8f 20 11 40 82 34 a0 55 00 0c 83 18 23 ff 81 02 86 24 50 28 3e e1 52 24 3e c1 90 00 00 21 00 00 00 28 08 80 00 00 3f 20 02 14 45 02 02 40 20 00 80 00 ┆ d PX X TL+ Y @ 4 U # $P(> R$> ! ( ? E @ ┆
0x25ea…263a (27, 0, 400) 87 58 00 02 27 40 54 14 87 20 ff e7 a7 59 00 02 e7 58 00 02 27 20 54 0a ee 08 50 06 04 03 f7 a1 2d 16 11 02 1b 02 5c 32 57 4a 81 20 ff ef a1 59 00 02 01 01 8f 20 11 40 8f 20 11 4e f7 a1 11 64 84 20 ff ef a4 59 00 02 83 58 00 02 23 80 50 02 ┆ X '@T Y X ' T P - 2WJ Y @ N d Y X # P ┆
0x263a…268a 5f 1a 20 bf 83 58 00 26 50 0a 83 20 ff e2 83 79 00 26 57 10 81 18 84 20 00 26 94 18 f7 a1 2d e2 10 a0 00 1e 8f 20 42 a8 86 04 a0 59 00 26 83 58 00 02 5a 10 3b 42 52 08 02 83 ea 59 00 06 58 1c f7 a1 11 cc 90 55 00 18 01 08 8f 20 11 40 86 34 ┆_ X &P y &W & - B Y & X Z ;BR Y X U @ 4┆
0x268a…26da 58 2e 90 55 00 12 90 55 00 0c 84 54 00 0c 1c 07 88 20 0f f2 82 54 00 02 f0 55 00 08 f7 a1 12 d6 86 35 82 55 00 02 8f 20 42 a8 83 08 3b 68 84 0c 23 0e 3c 63 24 0e 80 f4 00 04 58 68 eb 42 ff fe 5e 6e 90 8c 80 a2 58 74 86 42 ff fe 9e 10 5d 7c ┆X. U U T T U 5 U B ;h # <c$ Xh B ^n Xt B ]|┆
0x26da…272a 84 10 88 20 10 12 90 90 86 22 58 88 22 ff 83 58 00 02 23 60 1b 40 50 22 51 14 83 58 00 02 23 80 5c 9e e2 59 00 2b 57 0e f7 a1 11 d8 57 08 87 20 ff df a7 59 00 02 8f 20 2c 98 81 58 00 08 81 44 00 04 58 6e 85 18 95 20 00 1e 8f 04 84 34 a0 55 ┆ "X " X #` @P"Q X # Y +W W Y , X D Xn 4 U┆
0x272a…277a 00 0c a0 35 82 3f 01 00 80 a0 00 0e 90 94 86 22 50 1e 82 58 00 10 82 23 e2 58 00 06 f7 a1 11 f2 82 3e ee 10 50 10 86 10 50 0c 01 00 8f 20 12 b4 81 04 58 14 01 00 97 a0 00 00 80 15 00 00 01 90 00 42 00 41 08 00 00 20 00 04 08 00 00 01 01 00 ┆ 5 ? "P X # X > P P X B A ┆
0x277a…27ca (28, 0, 400) 00 04 57 14 02 20 aa 59 00 02 f7 a1 2c aa 57 08 f7 a1 2c aa f7 a1 11 f2 8f 20 42 a8 82 58 00 02 22 80 54 04 f7 a1 11 d8 8f 20 2c 92 85 38 25 0f 3d 41 85 54 0f 9c 57 14 20 bf 87 3f 87 58 00 26 50 08 a0 79 00 26 a0 59 00 26 87 3e 97 a0 00 02 ┆ W Y , W , B X " T , 8% =A T W ? X &P y & Y & > ┆
0x27ca…281a 80 3e f7 a1 0d 5e 80 a0 00 00 22 ff f7 a1 11 cc 20 bf 83 34 54 4e 80 d8 00 24 83 58 00 24 84 0c 23 07 3b e4 a4 20 07 00 3c c1 ab 10 a0 a0 00 08 54 58 aa 0c 01 19 f0 55 00 08 50 12 53 06 19 01 5c 0c 57 20 97 a0 00 14 01 01 8f 20 2c 98 f7 a1 ┆ > ^ " 4TN $ X $ # ; < TX U P S W , ┆
0x281a…286a 12 d6 86 35 82 55 00 02 80 82 54 04 e2 59 00 06 8f 20 0e c8 87 14 84 5c 00 0e 50 0e ee 10 58 14 83 50 00 10 50 0a 84 0c 5f 0e 86 5d 00 0e 57 04 86 51 00 10 a0 59 00 10 5f 2e 84 58 00 02 81 20 ff fb a1 59 00 02 24 04 5c 68 81 14 84 44 00 0e ┆ 5 U T Y P X P P _ ] W Q Y _. X Y $ h D ┆
0x286a…28ba 50 04 ee 10 58 4a 84 59 00 10 86 45 00 0e e2 59 00 06 01 04 a9 59 00 02 02 1c 5f 8a 84 40 0f 9a 1c 02 54 08 97 a0 00 02 28 40 80 3e 20 bf 85 50 0f 9a 58 14 f0 55 00 0a 86 34 58 1c a0 35 02 00 f7 a1 11 f2 5f 26 81 3f 81 40 12 f6 11 02 e9 20 ┆P XJ Y E Y Y _ @ T (@ > P X U 4X 5 _& ? @ ┆
0x28ba…290a 14 88 54 04 81 20 12 f8 81 41 12 f6 82 25 81 3e 97 a0 00 02 80 3e 12 f6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 54 14 20 00 21 00 00 00 02 80 40 00 00 00 00 01 00 80 44 94 10 00 00 ┆ T A % > > T ! @ D ┆