|
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: 10496 (0x2900)
Notes: pts_type(SC)
Names: »MULDIV.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/MULDIV.SC«
IDENT MULDIV REL 8.2 78-09-15 870172840820 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * MULDIV = MULTIPLICATION/DIVISION * * * * * * ******************************************* * * * THIS MODULE CONTAINS SUBROUTINES TO HANDLE * INTEGER MULTIPLICATION AND DIVISION * * FORMAT MULTIPLICATION: * CF A14,T:MUL * BYTE EL1,EL2 * BYTE EL3,EL4 * * FORMAT DIVISION: * CF A14,T:DIV * BYTE EL1,EL2 * BYTE EL3,EL4 * * RESULT RETURNED IN EL1 * ENTRY T:MUL,T:DIV ENTRY T:SIGN,T:BRK ENTRY T:MULC,T:DIVC ENTRY M:BRK,M:SIGN EJECT * EXTRN T:ADD,T:SUB EXTRN T:MOV,T:CMP,T:OPA EXTRN T:SHR,T:SHL EXTRN T:OPS EXTRN RETMMM EXTRN M:ADD,M:SUB,M:MOV,M:CMP,M:OPA EXTRN M:SHR,M:SHL,M:OPS * OVERLY EQU 0 EJECT * ***************** * MULTIPLICATION* ***************** * T:MULC EQU * ADKL A13,1 INDICATE MULC * T:MUL EQU * SUKL A14,8 IFT OVERLY=0 CF A14,T:BRK GET ARGUMENT AND BREAK CF A14,T:SIGN SET START VALUES CF A14,T:MOV MOVE EL1 TO EL3 MU10 DATA /3010 CF A14,T:SUB SUB EL3 FROM EL1 MU20 DATA /1030 * MU30 CF A14,T:BRK GET ARG. AND BREAK XIF IFT OVERLY=1 CF A14,M:BRK GET ARGUMENT AND BREAK CF A14,M:SIGN SET START VALUES CF A14,M:MOV MOVE EL1 TO EL3 MU10 DATA /3010 CF A14,M:SUB SUB EL3 FROM EL1 MU20 DATA /1030 * MU30 CF A14,M:BRK GET ARG. AND BREAK XIF LD A1,4,A14 GET POINTER EL4 LCR A2,A1 GET BYTE LDR A3,A2 COPY TO A3 SRL A2,4 GET DIGIT ANK A2,/F MASK DIGIT RF(Z) MU50 NEXT DIGIT SUK A2,/F RF(Z) MU80 JUMP IF FINISHED SUK A3,/10 DECREMENT DIGIT SCR A3,A1 RESTORE BYTE IFT OVERLY=0 CF A14,T:ADD ADD EL3 TO EL1 MU40 DATA /1030 RB MU30 * MU50 CF A14,T:SHR SHIFT RIGHT EL4 MU60 DATA /4001 CF A14,T:SHL SHIFT LEFT EL3 XIF IFT OVERLY=1 CF A14,M:ADD ADD EL3 TO EL1 MU40 DATA /1030 RB MU30 * MU50 CF A14,M:SHR SHIFT RIGHT EL4 MU60 DATA /4001 CF A14,M:SHL SHIFT LEFT EL3 XIF MU70 DATA /3001 RB MU30 * MU80 EQU * ADKL A14,8 ADJUST STACK POINTER LD A6,-6,A14 GET SIGN ADDRESS LCR A1,A6 LOAD SIGN BYTE ANK A1,/F0 MASK DIGIT LDR* A2,A14 GET RESULT SIGN ORR A1,A2 INSERT SIGN SCR A1,A6 RESTORE SIGN BYTE * RET LDK A2,4 ADS A2,4,A14 MODIFY RETURN ADR IFT OVERLY=0 RTN A14 XIF IFT OVERLY=1 DATA /C0FF XIF EJECT * ***************** * DIVISION * ***************** * T:DIVC EQU * ADKL A13,1 INDICATE DIVC * T:DIV EQU * SUKL A14,8 IFT OVERLY=0 CF A14,T:BRK GET ARGUMENT AND BREAK CF A14,T:SIGN SET START VALUES CF A14,T:MOV EL4 TO EL3 DI005 DATA /3040 CF A14,T:SUB CLEAR EL4 DI010 DATA /4040 ST A11,10,A14 SAVE A11 SUR A11,A11 CLEAR A11 CF A14,T:CMP DI015 DATA /3040 RF(E) DI180 JUMP IF DIVISION WITH ZERO * DI020 CF A14,T:BRK BACK TO DISPATCHER CF A14,T:CMP CMP EL1 AND EL3 DI030 DATA /1030 RF(L) DI050 EL1 < EL3 RF(E) DI070 EL1 = EL3 IM 6,A14 INCREMENT COUNTER RF(Z) DI180 JUMP IF WHOLE EL3 SHIFTED CF A14,T:SHL SHIFT LEFT EL3 DI040 DATA /3001 SUKL A11,1 DECREMENT SHIFT COUNTER RB DI020 * DI050 LDR A11,A11 RF(Z) DI130 DIVIDEND LESS THAN DIVISOR CF A14,T:SHR SHIFT RIGHT EL3 DI060 DATA /3001 ADKL A11,1 INCREMENT SHIFT COUNTER * DI070 ST A11,6,A14 STORE SHIFT COUNTER * DI080 CF A14,T:BRK BACK TO DISPATCHER CF A14,T:SUB EL1 - EL3 DI090 DATA /1030 LD A2,4,A14 GET SIGN BYTE ADR EL4 LCR A1,A2 GET BYTE ADK A1,/10 INCREMENT QUOTIENT SCR A1,A2 RESTORE BYTE * DI095 EQU * CF A14,T:CMP DI100 EQU * DATA /1030 RB(NL) DI080 JUMP IF NOT LESS IM 6,A14 INCREMENT COUNTER RF(P) DI130 JUMP IF FINISHED CF A14,T:SHR SHIFT EL3 RIGHT DI110 DATA /3001 CF A14,T:SHL SHIFT EL4 LEFT DI120 DATA /4001 CF A14,T:BRK BACK TO DISPATCHER RB DI095 * DI130 CF A14,T:MOV MOVE EL4 TO EL1 DATA /1040 * DI140 LDK A1,0 INDICATE CR=0 DI150 LD A11,10,A14 RESTORE A11 SC A1,10,A14 STORE PSW ON STACK RB MU80 * DI180 LDK A1,3 INDICATE CR=3 RB DI150 XIF IFT OVERLY=1 CF A14,M:BRK GET ARGUMENT AND BREAK CF A14,M:SIGN SET START VALUES CF A14,M:MOV EL4 TO EL3 DI005 DATA /3040 CF A14,M:SUB CLEAR EL4 DI010 DATA /4040 ST A11,10,A14 SAVE A11 SUR A11,A11 CLEAR A11 CF A14,M:CMP DI015 DATA /3040 RF(E) DI180 JUMP IF DIVISION WITH ZERO * DI020 CF A14,M:BRK BACK TO DISPATCHER CF A14,M:CMP CMP EL1 AND EL3 DI030 DATA /1030 RF(L) DI050 EL1 < EL3 RF(E) DI070 EL1 = EL3 IM 6,A14 INCREMENT COUNTER RF(Z) DI180 JUMP IF WHOLE EL3 SHIFTED CF A14,M:SHL SHIFT LEFT EL3 DI040 DATA /3001 SUKL A11,1 DECREMENT SHIFT COUNTER RB DI020 * DI050 LDR A11,A11 RF(Z) DI130 DIVIDEND LESS THAN DIVISOR CF A14,M:SHR SHIFT RIGHT EL3 DI060 DATA /3001 ADKL A11,1 INCREMENT SHIFT COUNTER * DI070 ST A11,6,A14 STORE SHIFT COUNTER * DI080 CF A14,M:BRK BACK TO DISPATCHER CF A14,M:SUB EL1 - EL3 DI090 DATA /1030 LD A2,4,A14 GET SIGN BYTE ADR EL4 LCR A1,A2 GET BYTE ADK A1,/10 INCREMENT QUOTIENT SCR A1,A2 RESTORE BYTE * DI095 EQU * CF A14,M:CMP DI100 EQU * DATA /1030 RB(NL) DI080 JUMP IF NOT LESS IM 6,A14 INCREMENT COUNTER RF(P) DI130 JUMP IF FINISHED CF A14,M:SHR SHIFT EL3 RIGHT DI110 DATA /3001 CF A14,M:SHL SHIFT EL4 LEFT DI120 DATA /4001 CF A14,M:BRK BACK TO DISPATCHER RB DI095 * DI130 CF A14,M:MOV MOVE EL4 TO EL1 DATA /1040 * DI140 LDK A1,0 INDICATE CR=0 DI150 LD A11,10,A14 RESTORE A11 CF A14,DI155 GET CURR PSW DI155 LD A6,2,A14 ADKL A14,4 ANKL A6,/FCFF DELETE COND ECR A1,A1 ORR A6,A1 ST A6,10,A14 RB MU80 * DI180 LDK A1,3 INDICATE CR=3 RB DI150 XIF EJECT * * * T:SIGN SETS EL1 AND EL4 POSITIVE, * COMPUTES SIGN OF RESULT AND * STORE PARAMETERS OF EL1,EL3 AND EL4 * M:SIGN EQU * IFT OVERLY=1 LDK A7,/80 XRS A7,2,A14 XIF T:SIGN EQU * ARG1 LDK A7,/30 GET ELEMNT EL3 IFT OVERLY=0 CF A14,T:OPA GET ELEMENT DATA FOR EL3 SLL A1,1 NEG. NUMBER OF BYTES TIMES 2 ST A1,10,A14 STORE COUNTER ON STACK CF A14,T:MOV MOVE EL2 TO EL4 DATA /4020 ARG2 EQU *-2 LDKL A7,/1040 GET ADDRESS TO EL1 AND EL4 ARG3 EQU *-2 CF A14,T:OPS GET DATA FOR EL1 AND EL4 XIF IFT OVERLY=1 CF A14,M:OPA GET ELEMENT DATA FOR EL3 SLL A1,1 NEG. NUMBER OF BYTES TIMES 2 ST A1,10,A14 STORE COUNTER ON STACK CF A14,M:MOV MOVE EL2 TO EL4 DATA /4020 ARG2 EQU *-2 LDKL A7,/1040 GET ADDRESS TO EL1 AND EL4 ARG3 EQU *-2 CF A14,M:OPS GET DATA FOR EL1 AND EL4 XIF ST A6,6,A14 STORE ADDRESS OF EL1 ON STACK ST A10,8,A14 STORE ADDRESS OF EL4 ON STACK LCR A1,A6 GET SIGN BYTE EL1 LDR A2,A1 COPY A1 LCR A3,A10 GET SIGN BYTE EL4 ADR A2,A3 ADD BYTES ANK A1,/F0 MASK AWAY SIGN EL1 ANK A3,/F0 MASK AWAY SIGN EL4 ADK A1,/B SET POS SIGN EL1 ADK A3,/B SET POS. SIGN EL4 SCR A1,A6 STORE POS SIGN EL1 SCR A3,A10 STORE POS. SIGN EL4 LDK A1,/B LOAD PLUS SIGN SRC A2,2 SHIFT BIT 14 TO SIGN BIT RF(N) SIG100 JUMP IF BIT 14=1 LDK A1,/D LOAD MINUS SIGN SIG100 EQU * ST A1,12,A14 STORE RESULT SIGN RETUR ABL RETMMM * * * T:BRK RETURNS CONTROL TO MONITOR AND * COMPUTES ARGUMENTS FOR ALL CALLS * M:BRK EQU * IFT OVERLY=1 LDK A1,/80 XRS A1,2,A14 XIF T:BRK LKM RETURN VIA DISPATCHER DATA 0 LD A1,16,A14 GET SECOND LD A2,2,A1 - ARGUMENT /3040 LDR* A1,A1 GET FIRST ARGUMENT /1020 ST A1,ARG2 ST A2,DI005 ST A2,DI015 ST A2,DI010 SC A2,DI010 /4040 SC A2,MU60 SC A2,DI120 SC A2,DI140-1 SC A2,ARG3+1 SC A2,ARG2 SRL A2,8 A2=/0030 ANKL A1,/FF00 A1=/1000 ADR A2,A1 A2=/1030 SC A2,MU70 SC A2,DI040 SC A2,DI060 SC A2,DI110 SC A2,ARG1+1 ST A2,MU20 ST A2,MU40 ST A2,DI030 ST A2,DI090 ST A2,DI100 ECR A2,A2 A2=/3010 ST A2,MU10 SC A2,DI140-2 SC A2,ARG3 RB RETUR END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT MULDIV REL 8.2 78-09-15 870172840820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…007c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x004c}
0x007c…0086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0080}
0x0086…00ae Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008a}
0x00ae…00b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00e4 Head {h00=0x0028, h01=0x0050, text=»* MULDIV = MULTIPLICATION/DIVISION«, t00=0x0000, t01=0x00bc}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
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…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0154 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0124}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…019c Head {h00=0x0030, h01=0x0050, text=»* THIS MODULE CONTAINS SUBROUTINES TO HANDLE«, t00=0x0000, t01=0x016c}
0x019c…01ca Head {h00=0x002a, h01=0x0050, text=»* INTEGER MULTIPLICATION AND DIVISION «, t00=0x0001, t01=0x0010}
0x01ca…01d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003e}
0x01d4…01f4 Head {h00=0x001c, h01=0x0050, text=»* FORMAT MULTIPLICATION:«, t00=0x0001, t01=0x0048}
0x01f4…020a Head {h00=0x0012, h01=0x0050, text=»* CF A14,T:MUL«, t00=0x0001, t01=0x0068}
0x020a…0220 Head {h00=0x0012, h01=0x0050, text=»* BYTE EL1,EL2«, t00=0x0001, t01=0x007e}
0x0220…0236 Head {h00=0x0012, h01=0x0050, text=»* BYTE EL3,EL4«, t00=0x0001, t01=0x0094}
0x0236…0240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x0240…025a Head {h00=0x0016, h01=0x0050, text=»* FORMAT DIVISION:«, t00=0x0001, t01=0x00b4}
0x025a…0270 Head {h00=0x0012, h01=0x0050, text=»* CF A14,T:DIV«, t00=0x0001, t01=0x00ce}
0x0270…0286 Head {h00=0x0012, h01=0x0050, text=»* BYTE EL1,EL2«, t00=0x0001, t01=0x00e4}
0x0286…029c Head {h00=0x0012, h01=0x0050, text=»* BYTE EL3,EL4«, t00=0x0001, t01=0x00fa}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02c6 Head {h00=0x001c, h01=0x0050, text=»* RESULT RETURNED IN EL1«, t00=0x0001, t01=0x011a}
0x02c6…02d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…02ea Head {h00=0x0016, h01=0x0050, text=» ENTRY T:MUL,T:DIV«, t00=0x0001, t01=0x0144}
0x02ea…0306 Head {h00=0x0018, h01=0x0050, text=» ENTRY T:SIGN,T:BRK «, t00=0x0001, t01=0x015e}
0x0306…0322 Head {h00=0x0018, h01=0x0050, text=» ENTRY T:MULC,T:DIVC«, t00=0x0001, t01=0x017a}
0x0322…033e Head {h00=0x0018, h01=0x0050, text=» ENTRY M:BRK,M:SIGN «, t00=0x0002, t01=0x0008}
0x033e…034c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0024}
0x034c…0356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0032}
0x0356…0370 Head {h00=0x0016, h01=0x0050, text=» EXTRN T:ADD,T:SUB«, t00=0x0002, t01=0x003c}
0x0370…0390 Head {h00=0x001c, h01=0x0050, text=» EXTRN T:MOV,T:CMP,T:OPA«, t00=0x0002, t01=0x0056}
0x0390…03aa Head {h00=0x0016, h01=0x0050, text=» EXTRN T:SHR,T:SHL«, t00=0x0002, t01=0x0076}
0x03aa…03be Head {h00=0x0010, h01=0x0050, text=» EXTRN T:OPS«, t00=0x0002, t01=0x0090}
0x03be…03d4 Head {h00=0x0012, h01=0x0050, text=» EXTRN RETMMM «, t00=0x0002, t01=0x00a4}
0x03d4…0400 Head {h00=0x0028, h01=0x0050, text=» EXTRN M:ADD,M:SUB,M:MOV,M:CMP,M:OPA«, t00=0x0002, t01=0x00ba}
0x0400…0420 Head {h00=0x001c, h01=0x0050, text=» EXTRN M:SHR,M:SHL,M:OPS«, t00=0x0002, t01=0x00e6}
0x0420…042a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042a…043e Head {h00=0x0010, h01=0x0050, text=»OVERLY EQU 0«, t00=0x0002, t01=0x0110}
0x043e…044c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0124}
0x044c…0456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0132}
0x0456…0470 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0002, t01=0x013c}
0x0470…048a Head {h00=0x0016, h01=0x0050, text=»* MULTIPLICATION* «, t00=0x0002, t01=0x0156}
0x048a…04a4 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0002, t01=0x0170}
0x04a4…04ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018a}
0x04ae…04c2 (3, 0, 400) Head {h00=0x0010, h01=0x0050, text=»T:MULC EQU *«, t00=0x0003, t01=0x0004}
0x04c2…04e4 Head {h00=0x001e, h01=0x0050, text=» ADKL A13,1 INDICATE MULC «, t00=0x0003, t01=0x0018}
0x04e4…04ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003a}
0x04ee…0502 Head {h00=0x0010, h01=0x0050, text=»T:MUL EQU * «, t00=0x0003, t01=0x0044}
0x0502…0516 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,8 «, t00=0x0003, t01=0x0058}
0x0516…052c Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0003, t01=0x006c}
0x052c…0558 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:BRK GET ARGUMENT AND BREAK«, t00=0x0003, t01=0x0082}
0x0558…0580 Head {h00=0x0024, h01=0x0050, text=» CF A14,T:SIGN SET START VALUES «, t00=0x0003, t01=0x00ae}
0x0580…05a6 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:MOV MOVE EL1 TO EL3 «, t00=0x0003, t01=0x00d6}
0x05a6…05be Head {h00=0x0014, h01=0x0050, text=»MU10 DATA /3010 «, t00=0x0003, t01=0x00fc}
0x05be…05e4 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:SUB SUB EL3 FROM EL1«, t00=0x0003, t01=0x0114}
0x05e4…05fc Head {h00=0x0014, h01=0x0050, text=»MU20 DATA /1030 «, t00=0x0003, t01=0x013a}
0x05fc…0606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0152}
0x0606…0632 Head {h00=0x0028, h01=0x0050, text=»MU30 CF A14,T:BRK GET ARG. AND BREAK«, t00=0x0003, t01=0x015c}
0x0632…063e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x0188}
0x063e…0654 (4, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0004, t01=0x0004}
0x0654…0680 Head {h00=0x0028, h01=0x0050, text=» CF A14,M:BRK GET ARGUMENT AND BREAK«, t00=0x0004, t01=0x001a}
0x0680…06a8 Head {h00=0x0024, h01=0x0050, text=» CF A14,M:SIGN SET START VALUES «, t00=0x0004, t01=0x0046}
0x06a8…06ce Head {h00=0x0022, h01=0x0050, text=» CF A14,M:MOV MOVE EL1 TO EL3 «, t00=0x0004, t01=0x006e}
0x06ce…06e6 Head {h00=0x0014, h01=0x0050, text=»MU10 DATA /3010 «, t00=0x0004, t01=0x0094}
0x06e6…070c Head {h00=0x0022, h01=0x0050, text=» CF A14,M:SUB SUB EL3 FROM EL1«, t00=0x0004, t01=0x00ac}
0x070c…0724 Head {h00=0x0014, h01=0x0050, text=»MU20 DATA /1030 «, t00=0x0004, t01=0x00d2}
0x0724…072e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ea}
0x072e…075a Head {h00=0x0028, h01=0x0050, text=»MU30 CF A14,M:BRK GET ARG. AND BREAK«, t00=0x0004, t01=0x00f4}
0x075a…0766 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0120}
0x0766…078a Head {h00=0x0020, h01=0x0050, text=» LD A1,4,A14 GET POINTER EL4«, t00=0x0004, t01=0x012c}
0x078a…07a6 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A1 GET BYTE «, t00=0x0004, t01=0x0150}
0x07a6…07c4 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 COPY TO A3 «, t00=0x0004, t01=0x016c}
0x07c4…07e0 Head {h00=0x0018, h01=0x0050, text=» SRL A2,4 GET DIGIT «, t00=0x0004, t01=0x018a}
0x07e0…07fe Head {h00=0x001a, h01=0x0050, text=» ANK A2,/F MASK DIGIT «, t00=0x0005, t01=0x0016}
0x07fe…081c Head {h00=0x001a, h01=0x0050, text=» RF(Z) MU50 NEXT DIGIT«, t00=0x0005, t01=0x0034}
0x081c…082e Head {h00=0x000e, h01=0x0050, text=» SUK A2,/F«, t00=0x0005, t01=0x0052}
0x082e…0852 Head {h00=0x0020, h01=0x0050, text=» RF(Z) MU80 JUMP IF FINISHED«, t00=0x0005, t01=0x0064}
0x0852…0876 Head {h00=0x0020, h01=0x0050, text=» SUK A3,/10 DECREMENT DIGIT «, t00=0x0005, t01=0x0088}
0x0876…0896 Head {h00=0x001c, h01=0x0050, text=» SCR A3,A1 RESTORE BYTE «, t00=0x0005, t01=0x00ac}
0x0896…08ac Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0005, t01=0x00cc}
0x08ac…08d0 Head {h00=0x0020, h01=0x0050, text=» CF A14,T:ADD ADD EL3 TO EL1«, t00=0x0005, t01=0x00e2}
0x08d0…08e8 Head {h00=0x0014, h01=0x0050, text=»MU40 DATA /1030 «, t00=0x0005, t01=0x0106}
0x08e8…08f8 Head {h00=0x000c, h01=0x0050, text=» RB MU30«, t00=0x0005, t01=0x011e}
0x08f8…0902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012e}
0x0902…092c Head {h00=0x0026, h01=0x0050, text=»MU50 CF A14,T:SHR SHIFT RIGHT EL4 «, t00=0x0005, t01=0x0138}
0x092c…0944 Head {h00=0x0014, h01=0x0050, text=»MU60 DATA /4001 «, t00=0x0005, t01=0x0162}
0x0944…0968 Head {h00=0x0020, h01=0x0050, text=» CF A14,T:SHL SHIFT LEFT EL3«, t00=0x0005, t01=0x017a}
0x0968…0974 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x000e}
0x0974…098a Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0006, t01=0x001a}
0x098a…09ae Head {h00=0x0020, h01=0x0050, text=» CF A14,M:ADD ADD EL3 TO EL1«, t00=0x0006, t01=0x0030}
0x09ae…09c6 Head {h00=0x0014, h01=0x0050, text=»MU40 DATA /1030 «, t00=0x0006, t01=0x0054}
0x09c6…09d6 Head {h00=0x000c, h01=0x0050, text=» RB MU30«, t00=0x0006, t01=0x006c}
0x09d6…09e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007c}
0x09e0…0a0a Head {h00=0x0026, h01=0x0050, text=»MU50 CF A14,M:SHR SHIFT RIGHT EL4 «, t00=0x0006, t01=0x0086}
0x0a0a…0a22 Head {h00=0x0014, h01=0x0050, text=»MU60 DATA /4001 «, t00=0x0006, t01=0x00b0}
0x0a22…0a46 Head {h00=0x0020, h01=0x0050, text=» CF A14,M:SHL SHIFT LEFT EL3«, t00=0x0006, t01=0x00c8}
0x0a46…0a52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x00ec}
0x0a52…0a6a Head {h00=0x0014, h01=0x0050, text=»MU70 DATA /3001 «, t00=0x0006, t01=0x00f8}
0x0a6a…0a7a Head {h00=0x000c, h01=0x0050, text=» RB MU30«, t00=0x0006, t01=0x0110}
0x0a7a…0a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0120}
0x0a84…0a96 Head {h00=0x000e, h01=0x0050, text=»MU80 EQU *«, t00=0x0006, t01=0x012a}
0x0a96…0abe Head {h00=0x0024, h01=0x0050, text=» ADKL A14,8 ADJUST STACK POINTER«, t00=0x0006, t01=0x013c}
0x0abe…0ae4 Head {h00=0x0022, h01=0x0050, text=» LD A6,-6,A14 GET SIGN ADDRESS«, t00=0x0006, t01=0x0164}
0x0ae4…0b06 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A6 LOAD SIGN BYTE «, t00=0x0006, t01=0x018a}
0x0b06…0b24 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/F0 MASK DIGIT«, t00=0x0007, t01=0x001c}
0x0b24…0b48 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A14 GET RESULT SIGN«, t00=0x0007, t01=0x003a}
0x0b48…0b66 Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 INSERT SIGN«, t00=0x0007, t01=0x005e}
0x0b66…0b8a Head {h00=0x0020, h01=0x0050, text=» SCR A1,A6 RESTORE SIGN BYTE«, t00=0x0007, t01=0x007c}
0x0b8a…0b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a0}
0x0b94…0ba8 Head {h00=0x0010, h01=0x0050, text=»RET LDK A2,4«, t00=0x0007, t01=0x00aa}
0x0ba8…0bd0 Head {h00=0x0024, h01=0x0050, text=» ADS A2,4,A14 MODIFY RETURN ADR «, t00=0x0007, t01=0x00be}
0x0bd0…0be6 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0007, t01=0x00e6}
0x0be6…0bf6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0007, t01=0x00fc}
0x0bf6…0c02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x010c}
0x0c02…0c18 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0007, t01=0x0118}
0x0c18…0c2c Head {h00=0x0010, h01=0x0050, text=» DATA /C0FF «, t00=0x0007, t01=0x012e}
0x0c2c…0c38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0142}
0x0c38…0c46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x014e}
0x0c46…0c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015c}
0x0c50…0c6a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0007, t01=0x0166}
0x0c6a…0c84 Head {h00=0x0016, h01=0x0050, text=»* DIVISION * «, t00=0x0007, t01=0x0180}
0x0c84…0c9e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0008, t01=0x000a}
0x0c9e…0ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0024}
0x0ca8…0cbc Head {h00=0x0010, h01=0x0050, text=»T:DIVC EQU *«, t00=0x0008, t01=0x002e}
0x0cbc…0cde Head {h00=0x001e, h01=0x0050, text=» ADKL A13,1 INDICATE DIVC «, t00=0x0008, t01=0x0042}
0x0cde…0ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0064}
0x0ce8…0cfc Head {h00=0x0010, h01=0x0050, text=»T:DIV EQU * «, t00=0x0008, t01=0x006e}
0x0cfc…0d10 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,8 «, t00=0x0008, t01=0x0082}
0x0d10…0d26 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0008, t01=0x0096}
0x0d26…0d52 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:BRK GET ARGUMENT AND BREAK«, t00=0x0008, t01=0x00ac}
0x0d52…0d7a Head {h00=0x0024, h01=0x0050, text=» CF A14,T:SIGN SET START VALUES «, t00=0x0008, t01=0x00d8}
0x0d7a…0d9a Head {h00=0x001c, h01=0x0050, text=» CF A14,T:MOV EL4 TO EL3«, t00=0x0008, t01=0x0100}
0x0d9a…0db2 Head {h00=0x0014, h01=0x0050, text=»DI005 DATA /3040«, t00=0x0008, t01=0x0120}
0x0db2…0dd2 Head {h00=0x001c, h01=0x0050, text=» CF A14,T:SUB CLEAR EL4 «, t00=0x0008, t01=0x0138}
0x0dd2…0dea Head {h00=0x0014, h01=0x0050, text=»DI010 DATA /4040«, t00=0x0008, t01=0x0158}
0x0dea…0e0a Head {h00=0x001c, h01=0x0050, text=» ST A11,10,A14 SAVE A11 «, t00=0x0008, t01=0x0170}
0x0e0a…0e28 Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 CLEAR A11«, t00=0x0008, t01=0x0190}
0x0e28…0e3e Head {h00=0x0012, h01=0x0050, text=» CF A14,T:CMP «, t00=0x0009, t01=0x001e}
0x0e3e…0e56 Head {h00=0x0014, h01=0x0050, text=»DI015 DATA /3040«, t00=0x0009, t01=0x0034}
0x0e56…0e86 Head {h00=0x002c, h01=0x0050, text=» RF(E) DI180 JUMP IF DIVISION WITH ZERO «, t00=0x0009, t01=0x004c}
0x0e86…0e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x007c}
0x0e90…0ebe Head {h00=0x002a, h01=0x0050, text=»DI020 CF A14,T:BRK BACK TO DISPATCHER «, t00=0x0009, t01=0x0086}
0x0ebe…0ee4 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:CMP CMP EL1 AND EL3 «, t00=0x0009, t01=0x00b4}
0x0ee4…0efc Head {h00=0x0014, h01=0x0050, text=»DI030 DATA /1030«, t00=0x0009, t01=0x00da}
0x0efc…0f1a Head {h00=0x001a, h01=0x0050, text=» RF(L) DI050 EL1 < EL3«, t00=0x0009, t01=0x00f2}
0x0f1a…0f38 Head {h00=0x001a, h01=0x0050, text=» RF(E) DI070 EL1 = EL3«, t00=0x0009, t01=0x0110}
0x0f38…0f5c Head {h00=0x0020, h01=0x0050, text=» IM 6,A14 INCREMENT COUNTER «, t00=0x0009, t01=0x012e}
0x0f5c…0f8a Head {h00=0x002a, h01=0x0050, text=» RF(Z) DI180 JUMP IF WHOLE EL3 SHIFTED«, t00=0x0009, t01=0x0152}
0x0f8a…0fae Head {h00=0x0020, h01=0x0050, text=» CF A14,T:SHL SHIFT LEFT EL3«, t00=0x0009, t01=0x0180}
0x0fae…0fc6 Head {h00=0x0014, h01=0x0050, text=»DI040 DATA /3001«, t00=0x000a, t01=0x0014}
0x0fc6…0ff2 Head {h00=0x0028, h01=0x0050, text=» SUKL A11,1 DECREMENT SHIFT COUNTER «, t00=0x000a, t01=0x002c}
0x0ff2…1004 Head {h00=0x000e, h01=0x0050, text=» RB DI020 «, t00=0x000a, t01=0x0058}
0x1004…100e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006a}
0x100e…1028 Head {h00=0x0016, h01=0x0050, text=»DI050 LDR A11,A11 «, t00=0x000a, t01=0x0074}
0x1028…1058 Head {h00=0x002c, h01=0x0050, text=» RF(Z) DI130 DIVIDEND LESS THAN DIVISOR «, t00=0x000a, t01=0x008e}
0x1058…107e Head {h00=0x0022, h01=0x0050, text=» CF A14,T:SHR SHIFT RIGHT EL3 «, t00=0x000a, t01=0x00be}
0x107e…1096 Head {h00=0x0014, h01=0x0050, text=»DI060 DATA /3001«, t00=0x000a, t01=0x00e4}
0x1096…10c2 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SHIFT COUNTER «, t00=0x000a, t01=0x00fc}
0x10c2…10cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0128}
0x10cc…10fa Head {h00=0x002a, h01=0x0050, text=»DI070 ST A11,6,A14 STORE SHIFT COUNTER«, t00=0x000a, t01=0x0132}
0x10fa…1104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0160}
0x1104…1132 Head {h00=0x002a, h01=0x0050, text=»DI080 CF A14,T:BRK BACK TO DISPATCHER «, t00=0x000a, t01=0x016a}
0x1132…1152 Head {h00=0x001c, h01=0x0050, text=» CF A14,T:SUB EL1 - EL3 «, t00=0x000b, t01=0x0008}
0x1152…116a Head {h00=0x0014, h01=0x0050, text=»DI090 DATA /1030«, t00=0x000b, t01=0x0028}
0x116a…1194 Head {h00=0x0026, h01=0x0050, text=» LD A2,4,A14 GET SIGN BYTE ADR EL4«, t00=0x000b, t01=0x0040}
0x1194…11b0 Head {h00=0x0018, h01=0x0050, text=» LCR A1,A2 GET BYTE «, t00=0x000b, t01=0x006a}
0x11b0…11d6 Head {h00=0x0022, h01=0x0050, text=» ADK A1,/10 INCREMENT QUOTIENT«, t00=0x000b, t01=0x0086}
0x11d6…11f6 Head {h00=0x001c, h01=0x0050, text=» SCR A1,A2 RESTORE BYTE «, t00=0x000b, t01=0x00ac}
0x11f6…1200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00cc}
0x1200…1214 Head {h00=0x0010, h01=0x0050, text=»DI095 EQU * «, t00=0x000b, t01=0x00d6}
0x1214…122a Head {h00=0x0012, h01=0x0050, text=» CF A14,T:CMP «, t00=0x000b, t01=0x00ea}
0x122a…123e Head {h00=0x0010, h01=0x0050, text=»DI100 EQU * «, t00=0x000b, t01=0x0100}
0x123e…1252 Head {h00=0x0010, h01=0x0050, text=» DATA /1030 «, t00=0x000b, t01=0x0114}
0x1252…1278 Head {h00=0x0022, h01=0x0050, text=» RB(NL) DI080 JUMP IF NOT LESS«, t00=0x000b, t01=0x0128}
0x1278…129c Head {h00=0x0020, h01=0x0050, text=» IM 6,A14 INCREMENT COUNTER «, t00=0x000b, t01=0x014e}
0x129c…12c2 Head {h00=0x0022, h01=0x0050, text=» RF(P) DI130 JUMP IF FINISHED «, t00=0x000b, t01=0x0172}
0x12c2…12e8 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:SHR SHIFT EL3 RIGHT «, t00=0x000c, t01=0x0008}
0x12e8…1300 Head {h00=0x0014, h01=0x0050, text=»DI110 DATA /3001«, t00=0x000c, t01=0x002e}
0x1300…1324 Head {h00=0x0020, h01=0x0050, text=» CF A14,T:SHL SHIFT EL4 LEFT«, t00=0x000c, t01=0x0046}
0x1324…133c Head {h00=0x0014, h01=0x0050, text=»DI120 DATA /4001«, t00=0x000c, t01=0x006a}
0x133c…1364 Head {h00=0x0024, h01=0x0050, text=» CF A14,T:BRK BACK TO DISPATCHER«, t00=0x000c, t01=0x0082}
0x1364…1376 Head {h00=0x000e, h01=0x0050, text=» RB DI095 «, t00=0x000c, t01=0x00aa}
0x1376…1380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00bc}
0x1380…13aa Head {h00=0x0026, h01=0x0050, text=»DI130 CF A14,T:MOV MOVE EL4 TO EL1«, t00=0x000c, t01=0x00c6}
0x13aa…13be Head {h00=0x0010, h01=0x0050, text=» DATA /1040 «, t00=0x000c, t01=0x00f0}
0x13be…13c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c8…13ec Head {h00=0x0020, h01=0x0050, text=»DI140 LDK A1,0 INDICATE CR=0«, t00=0x000c, t01=0x010e}
0x13ec…1414 Head {h00=0x0024, h01=0x0050, text=»DI150 LD A11,10,A14 RESTORE A11 «, t00=0x000c, t01=0x0132}
0x1414…143c Head {h00=0x0024, h01=0x0050, text=» SC A1,10,A14 STORE PSW ON STACK«, t00=0x000c, t01=0x015a}
0x143c…144c Head {h00=0x000c, h01=0x0050, text=» RB MU80«, t00=0x000c, t01=0x0182}
0x144c…1456 (13, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x1456…147a Head {h00=0x0020, h01=0x0050, text=»DI180 LDK A1,3 INDICATE CR=3«, t00=0x000d, t01=0x000e}
0x147a…148c Head {h00=0x000e, h01=0x0050, text=» RB DI150 «, t00=0x000d, t01=0x0032}
0x148c…1498 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0044}
0x1498…14ae Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x000d, t01=0x0050}
0x14ae…14da Head {h00=0x0028, h01=0x0050, text=» CF A14,M:BRK GET ARGUMENT AND BREAK«, t00=0x000d, t01=0x0066}
0x14da…1502 Head {h00=0x0024, h01=0x0050, text=» CF A14,M:SIGN SET START VALUES «, t00=0x000d, t01=0x0092}
0x1502…1522 Head {h00=0x001c, h01=0x0050, text=» CF A14,M:MOV EL4 TO EL3«, t00=0x000d, t01=0x00ba}
0x1522…153a Head {h00=0x0014, h01=0x0050, text=»DI005 DATA /3040«, t00=0x000d, t01=0x00da}
0x153a…155a Head {h00=0x001c, h01=0x0050, text=» CF A14,M:SUB CLEAR EL4 «, t00=0x000d, t01=0x00f2}
0x155a…1572 Head {h00=0x0014, h01=0x0050, text=»DI010 DATA /4040«, t00=0x000d, t01=0x0112}
0x1572…1592 Head {h00=0x001c, h01=0x0050, text=» ST A11,10,A14 SAVE A11 «, t00=0x000d, t01=0x012a}
0x1592…15b0 Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 CLEAR A11«, t00=0x000d, t01=0x014a}
0x15b0…15c6 Head {h00=0x0012, h01=0x0050, text=» CF A14,M:CMP «, t00=0x000d, t01=0x0168}
0x15c6…15de Head {h00=0x0014, h01=0x0050, text=»DI015 DATA /3040«, t00=0x000d, t01=0x017e}
0x15de…160e Head {h00=0x002c, h01=0x0050, text=» RF(E) DI180 JUMP IF DIVISION WITH ZERO «, t00=0x000e, t01=0x0008}
0x160e…1618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0038}
0x1618…1646 Head {h00=0x002a, h01=0x0050, text=»DI020 CF A14,M:BRK BACK TO DISPATCHER «, t00=0x000e, t01=0x0042}
0x1646…166c Head {h00=0x0022, h01=0x0050, text=» CF A14,M:CMP CMP EL1 AND EL3 «, t00=0x000e, t01=0x0070}
0x166c…1684 Head {h00=0x0014, h01=0x0050, text=»DI030 DATA /1030«, t00=0x000e, t01=0x0096}
0x1684…16a2 Head {h00=0x001a, h01=0x0050, text=» RF(L) DI050 EL1 < EL3«, t00=0x000e, t01=0x00ae}
0x16a2…16c0 Head {h00=0x001a, h01=0x0050, text=» RF(E) DI070 EL1 = EL3«, t00=0x000e, t01=0x00cc}
0x16c0…16e4 Head {h00=0x0020, h01=0x0050, text=» IM 6,A14 INCREMENT COUNTER «, t00=0x000e, t01=0x00ea}
0x16e4…1712 Head {h00=0x002a, h01=0x0050, text=» RF(Z) DI180 JUMP IF WHOLE EL3 SHIFTED«, t00=0x000e, t01=0x010e}
0x1712…1736 Head {h00=0x0020, h01=0x0050, text=» CF A14,M:SHL SHIFT LEFT EL3«, t00=0x000e, t01=0x013c}
0x1736…174e Head {h00=0x0014, h01=0x0050, text=»DI040 DATA /3001«, t00=0x000e, t01=0x0160}
0x174e…177a Head {h00=0x0028, h01=0x0050, text=» SUKL A11,1 DECREMENT SHIFT COUNTER «, t00=0x000e, t01=0x0178}
0x177a…178c Head {h00=0x000e, h01=0x0050, text=» RB DI020 «, t00=0x000f, t01=0x0014}
0x178c…1796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1796…17b0 Head {h00=0x0016, h01=0x0050, text=»DI050 LDR A11,A11 «, t00=0x000f, t01=0x0030}
0x17b0…17e0 Head {h00=0x002c, h01=0x0050, text=» RF(Z) DI130 DIVIDEND LESS THAN DIVISOR «, t00=0x000f, t01=0x004a}
0x17e0…1806 Head {h00=0x0022, h01=0x0050, text=» CF A14,M:SHR SHIFT RIGHT EL3 «, t00=0x000f, t01=0x007a}
0x1806…181e Head {h00=0x0014, h01=0x0050, text=»DI060 DATA /3001«, t00=0x000f, t01=0x00a0}
0x181e…184a Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SHIFT COUNTER «, t00=0x000f, t01=0x00b8}
0x184a…1854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e4}
0x1854…1882 Head {h00=0x002a, h01=0x0050, text=»DI070 ST A11,6,A14 STORE SHIFT COUNTER«, t00=0x000f, t01=0x00ee}
0x1882…188c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011c}
0x188c…18ba Head {h00=0x002a, h01=0x0050, text=»DI080 CF A14,M:BRK BACK TO DISPATCHER «, t00=0x000f, t01=0x0126}
0x18ba…18da Head {h00=0x001c, h01=0x0050, text=» CF A14,M:SUB EL1 - EL3 «, t00=0x000f, t01=0x0154}
0x18da…18f2 Head {h00=0x0014, h01=0x0050, text=»DI090 DATA /1030«, t00=0x000f, t01=0x0174}
0x18f2…191c Head {h00=0x0026, h01=0x0050, text=» LD A2,4,A14 GET SIGN BYTE ADR EL4«, t00=0x000f, t01=0x018c}
0x191c…1938 Head {h00=0x0018, h01=0x0050, text=» LCR A1,A2 GET BYTE «, t00=0x0010, t01=0x0026}
0x1938…195e Head {h00=0x0022, h01=0x0050, text=» ADK A1,/10 INCREMENT QUOTIENT«, t00=0x0010, t01=0x0042}
0x195e…197e Head {h00=0x001c, h01=0x0050, text=» SCR A1,A2 RESTORE BYTE «, t00=0x0010, t01=0x0068}
0x197e…1988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0088}
0x1988…199c Head {h00=0x0010, h01=0x0050, text=»DI095 EQU * «, t00=0x0010, t01=0x0092}
0x199c…19b2 Head {h00=0x0012, h01=0x0050, text=» CF A14,M:CMP «, t00=0x0010, t01=0x00a6}
0x19b2…19c6 Head {h00=0x0010, h01=0x0050, text=»DI100 EQU * «, t00=0x0010, t01=0x00bc}
0x19c6…19da Head {h00=0x0010, h01=0x0050, text=» DATA /1030 «, t00=0x0010, t01=0x00d0}
0x19da…1a00 Head {h00=0x0022, h01=0x0050, text=» RB(NL) DI080 JUMP IF NOT LESS«, t00=0x0010, t01=0x00e4}
0x1a00…1a24 Head {h00=0x0020, h01=0x0050, text=» IM 6,A14 INCREMENT COUNTER «, t00=0x0010, t01=0x010a}
0x1a24…1a4a Head {h00=0x0022, h01=0x0050, text=» RF(P) DI130 JUMP IF FINISHED «, t00=0x0010, t01=0x012e}
0x1a4a…1a70 Head {h00=0x0022, h01=0x0050, text=» CF A14,M:SHR SHIFT EL3 RIGHT «, t00=0x0010, t01=0x0154}
0x1a70…1a88 Head {h00=0x0014, h01=0x0050, text=»DI110 DATA /3001«, t00=0x0010, t01=0x017a}
0x1a88…1aac (17, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CF A14,M:SHL SHIFT EL4 LEFT«, t00=0x0011, t01=0x0004}
0x1aac…1ac4 Head {h00=0x0014, h01=0x0050, text=»DI120 DATA /4001«, t00=0x0011, t01=0x0028}
0x1ac4…1aec Head {h00=0x0024, h01=0x0050, text=» CF A14,M:BRK BACK TO DISPATCHER«, t00=0x0011, t01=0x0040}
0x1aec…1afe Head {h00=0x000e, h01=0x0050, text=» RB DI095 «, t00=0x0011, t01=0x0068}
0x1afe…1b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007a}
0x1b08…1b32 Head {h00=0x0026, h01=0x0050, text=»DI130 CF A14,M:MOV MOVE EL4 TO EL1«, t00=0x0011, t01=0x0084}
0x1b32…1b46 Head {h00=0x0010, h01=0x0050, text=» DATA /1040 «, t00=0x0011, t01=0x00ae}
0x1b46…1b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c2}
0x1b50…1b74 Head {h00=0x0020, h01=0x0050, text=»DI140 LDK A1,0 INDICATE CR=0«, t00=0x0011, t01=0x00cc}
0x1b74…1b9c Head {h00=0x0024, h01=0x0050, text=»DI150 LD A11,10,A14 RESTORE A11 «, t00=0x0011, t01=0x00f0}
0x1b9c…1bbe Head {h00=0x001e, h01=0x0050, text=» CF A14,DI155 GET CURR PSW«, t00=0x0011, t01=0x0118}
0x1bbe…1bd8 Head {h00=0x0016, h01=0x0050, text=»DI155 LD A6,2,A14 «, t00=0x0011, t01=0x013a}
0x1bd8…1bec Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0011, t01=0x0154}
0x1bec…1c0e Head {h00=0x001e, h01=0x0050, text=» ANKL A6,/FCFF DELETE COND«, t00=0x0011, t01=0x0168}
0x1c0e…1c20 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0011, t01=0x018a}
0x1c20…1c32 Head {h00=0x000e, h01=0x0050, text=» ORR A6,A1«, t00=0x0012, t01=0x000c}
0x1c32…1c48 Head {h00=0x0012, h01=0x0050, text=» ST A6,10,A14 «, t00=0x0012, t01=0x001e}
0x1c48…1c58 Head {h00=0x000c, h01=0x0050, text=» RB MU80«, t00=0x0012, t01=0x0034}
0x1c58…1c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0044}
0x1c62…1c86 Head {h00=0x0020, h01=0x0050, text=»DI180 LDK A1,3 INDICATE CR=3«, t00=0x0012, t01=0x004e}
0x1c86…1c98 Head {h00=0x000e, h01=0x0050, text=» RB DI150 «, t00=0x0012, t01=0x0072}
0x1c98…1ca4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0084}
0x1ca4…1cb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0090}
0x1cb2…1cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x1cbc…1cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a8}
0x1cc6…1cf2 Head {h00=0x0028, h01=0x0050, text=»* T:SIGN SETS EL1 AND EL4 POSITIVE, «, t00=0x0012, t01=0x00b2}
0x1cf2…1d18 Head {h00=0x0022, h01=0x0050, text=»* COMPUTES SIGN OF RESULT AND «, t00=0x0012, t01=0x00de}
0x1d18…1d46 Head {h00=0x002a, h01=0x0050, text=»* STORE PARAMETERS OF EL1,EL3 AND EL4 «, t00=0x0012, t01=0x0104}
0x1d46…1d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0132}
0x1d50…1d64 Head {h00=0x0010, h01=0x0050, text=»M:SIGN EQU *«, t00=0x0012, t01=0x013c}
0x1d64…1d7a Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0012, t01=0x0150}
0x1d7a…1d8e Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0012, t01=0x0166}
0x1d8e…1da4 Head {h00=0x0012, h01=0x0050, text=» XRS A7,2,A14 «, t00=0x0012, t01=0x017a}
0x1da4…1db0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0190}
0x1db0…1dc4 Head {h00=0x0010, h01=0x0050, text=»T:SIGN EQU *«, t00=0x0013, t01=0x000c}
0x1dc4…1dea Head {h00=0x0022, h01=0x0050, text=»ARG1 LDK A7,/30 GET ELEMNT EL3«, t00=0x0013, t01=0x0020}
0x1dea…1e00 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0013, t01=0x0046}
0x1e00…1e2e Head {h00=0x002a, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT DATA FOR EL3«, t00=0x0013, t01=0x005c}
0x1e2e…1e5c Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEG. NUMBER OF BYTES TIMES 2«, t00=0x0013, t01=0x008a}
0x1e5c…1e88 Head {h00=0x0028, h01=0x0050, text=» ST A1,10,A14 STORE COUNTER ON STACK«, t00=0x0013, t01=0x00b8}
0x1e88…1eae Head {h00=0x0022, h01=0x0050, text=» CF A14,T:MOV MOVE EL2 TO EL4 «, t00=0x0013, t01=0x00e4}
0x1eae…1ec2 Head {h00=0x0010, h01=0x0050, text=» DATA /4020 «, t00=0x0013, t01=0x010a}
0x1ec2…1ed6 Head {h00=0x0010, h01=0x0050, text=»ARG2 EQU *-2«, t00=0x0013, t01=0x011e}
0x1ed6…1f08 Head {h00=0x002e, h01=0x0050, text=» LDKL A7,/1040 GET ADDRESS TO EL1 AND EL4 «, t00=0x0013, t01=0x0132}
0x1f08…1f1c Head {h00=0x0010, h01=0x0050, text=»ARG3 EQU *-2«, t00=0x0013, t01=0x0164}
0x1f1c…1f4a Head {h00=0x002a, h01=0x0050, text=» CF A14,T:OPS GET DATA FOR EL1 AND EL4«, t00=0x0013, t01=0x0178}
0x1f4a…1f56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0016}
0x1f56…1f6c Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0014, t01=0x0022}
0x1f6c…1f9a Head {h00=0x002a, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT DATA FOR EL3«, t00=0x0014, t01=0x0038}
0x1f9a…1fc8 Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEG. NUMBER OF BYTES TIMES 2«, t00=0x0014, t01=0x0066}
0x1fc8…1ff4 Head {h00=0x0028, h01=0x0050, text=» ST A1,10,A14 STORE COUNTER ON STACK«, t00=0x0014, t01=0x0094}
0x1ff4…201a Head {h00=0x0022, h01=0x0050, text=» CF A14,M:MOV MOVE EL2 TO EL4 «, t00=0x0014, t01=0x00c0}
0x201a…202e Head {h00=0x0010, h01=0x0050, text=» DATA /4020 «, t00=0x0014, t01=0x00e6}
0x202e…2042 Head {h00=0x0010, h01=0x0050, text=»ARG2 EQU *-2«, t00=0x0014, t01=0x00fa}
0x2042…2074 Head {h00=0x002e, h01=0x0050, text=» LDKL A7,/1040 GET ADDRESS TO EL1 AND EL4 «, t00=0x0014, t01=0x010e}
0x2074…2088 Head {h00=0x0010, h01=0x0050, text=»ARG3 EQU *-2«, t00=0x0014, t01=0x0140}
0x2088…20b6 Head {h00=0x002a, h01=0x0050, text=» CF A14,M:OPS GET DATA FOR EL1 AND EL4«, t00=0x0014, t01=0x0154}
0x20b6…20c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0182}
0x20c2…20f4 Head {h00=0x002e, h01=0x0050, text=» ST A6,6,A14 STORE ADDRESS OF EL1 ON STACK«, t00=0x0014, t01=0x018e}
0x20f4…2128 Head {h00=0x0030, h01=0x0050, text=» ST A10,8,A14 STORE ADDRESS OF EL4 ON STACK «, t00=0x0015, t01=0x0030}
0x2128…214c Head {h00=0x0020, h01=0x0050, text=» LCR A1,A6 GET SIGN BYTE EL1«, t00=0x0015, t01=0x0064}
0x214c…2166 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A1 COPY A1«, t00=0x0015, t01=0x0088}
0x2166…218c Head {h00=0x0022, h01=0x0050, text=» LCR A3,A10 GET SIGN BYTE EL4 «, t00=0x0015, t01=0x00a2}
0x218c…21a8 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 ADD BYTES«, t00=0x0015, t01=0x00c8}
0x21a8…21ce Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F0 MASK AWAY SIGN EL1«, t00=0x0015, t01=0x00e4}
0x21ce…21f4 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/F0 MASK AWAY SIGN EL4«, t00=0x0015, t01=0x010a}
0x21f4…2218 Head {h00=0x0020, h01=0x0050, text=» ADK A1,/B SET POS SIGN EL1 «, t00=0x0015, t01=0x0130}
0x2218…223c Head {h00=0x0020, h01=0x0050, text=» ADK A3,/B SET POS. SIGN EL4«, t00=0x0015, t01=0x0154}
0x223c…2262 Head {h00=0x0022, h01=0x0050, text=» SCR A1,A6 STORE POS SIGN EL1 «, t00=0x0015, t01=0x0178}
0x2262…228a Head {h00=0x0024, h01=0x0050, text=» SCR A3,A10 STORE POS. SIGN EL4 «, t00=0x0016, t01=0x000e}
0x228a…22ac Head {h00=0x001e, h01=0x0050, text=» LDK A1,/B LOAD PLUS SIGN «, t00=0x0016, t01=0x0036}
0x22ac…22d6 Head {h00=0x0026, h01=0x0050, text=» SRC A2,2 SHIFT BIT 14 TO SIGN BIT«, t00=0x0016, t01=0x0058}
0x22d6…22fc Head {h00=0x0022, h01=0x0050, text=» RF(N) SIG100 JUMP IF BIT 14=1«, t00=0x0016, t01=0x0082}
0x22fc…231e Head {h00=0x001e, h01=0x0050, text=» LDK A1,/D LOAD MINUS SIGN«, t00=0x0016, t01=0x00a8}
0x231e…2332 Head {h00=0x0010, h01=0x0050, text=»SIG100 EQU *«, t00=0x0016, t01=0x00ca}
0x2332…235a Head {h00=0x0024, h01=0x0050, text=» ST A1,12,A14 STORE RESULT SIGN «, t00=0x0016, t01=0x00de}
0x235a…2372 Head {h00=0x0014, h01=0x0050, text=»RETUR ABL RETMMM«, t00=0x0016, t01=0x0106}
0x2372…237c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011e}
0x237c…2386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0128}
0x2386…23b4 Head {h00=0x002a, h01=0x0050, text=»* T:BRK RETURNS CONTROL TO MONITOR AND«, t00=0x0016, t01=0x0132}
0x23b4…23de Head {h00=0x0026, h01=0x0050, text=»* COMPUTES ARGUMENTS FOR ALL CALLS«, t00=0x0016, t01=0x0160}
0x23de…23e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018a}
0x23e8…23fc (23, 0, 400) Head {h00=0x0010, h01=0x0050, text=»M:BRK EQU * «, t00=0x0017, t01=0x0004}
0x23fc…2412 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0017, t01=0x0018}
0x2412…2426 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0017, t01=0x002e}
0x2426…243c Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0017, t01=0x0042}
0x243c…2448 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0058}
0x2448…2470 Head {h00=0x0024, h01=0x0050, text=»T:BRK LKM RETURN VIA DISPATCHER«, t00=0x0017, t01=0x0064}
0x2470…2480 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0017, t01=0x008c}
0x2480…24a0 Head {h00=0x001c, h01=0x0050, text=» LD A1,16,A14 GET SECOND«, t00=0x0017, t01=0x009c}
0x24a0…24c4 Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A1 - ARGUMENT /3040«, t00=0x0017, t01=0x00bc}
0x24c4…24f0 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A1 GET FIRST ARGUMENT /1020«, t00=0x0017, t01=0x00e0}
0x24f0…2504 Head {h00=0x0010, h01=0x0050, text=» ST A1,ARG2 «, t00=0x0017, t01=0x010c}
0x2504…2518 Head {h00=0x0010, h01=0x0050, text=» ST A2,DI005«, t00=0x0017, t01=0x0120}
0x2518…252c Head {h00=0x0010, h01=0x0050, text=» ST A2,DI015«, t00=0x0017, t01=0x0134}
0x252c…2540 Head {h00=0x0010, h01=0x0050, text=» ST A2,DI010«, t00=0x0017, t01=0x0148}
0x2540…255a Head {h00=0x0016, h01=0x0050, text=» SC A2,DI010 /4040«, t00=0x0017, t01=0x015c}
0x255a…256e Head {h00=0x0010, h01=0x0050, text=» SC A2,MU60 «, t00=0x0017, t01=0x0176}
0x256e…2582 Head {h00=0x0010, h01=0x0050, text=» SC A2,DI120«, t00=0x0017, t01=0x018a}
0x2582…2598 Head {h00=0x0012, h01=0x0050, text=» SC A2,DI140-1«, t00=0x0018, t01=0x000e}
0x2598…25ae Head {h00=0x0012, h01=0x0050, text=» SC A2,ARG3+1 «, t00=0x0018, t01=0x0024}
0x25ae…25c2 Head {h00=0x0010, h01=0x0050, text=» SC A2,ARG2 «, t00=0x0018, t01=0x003a}
0x25c2…25dc Head {h00=0x0016, h01=0x0050, text=» SRL A2,8 A2=/0030«, t00=0x0018, t01=0x004e}
0x25dc…25fc Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/FF00 A1=/1000 «, t00=0x0018, t01=0x0068}
0x25fc…2618 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A1 A2=/1030 «, t00=0x0018, t01=0x0088}
0x2618…262c Head {h00=0x0010, h01=0x0050, text=» SC A2,MU70 «, t00=0x0018, t01=0x00a4}
0x262c…2640 Head {h00=0x0010, h01=0x0050, text=» SC A2,DI040«, t00=0x0018, t01=0x00b8}
0x2640…2654 Head {h00=0x0010, h01=0x0050, text=» SC A2,DI060«, t00=0x0018, t01=0x00cc}
0x2654…2668 Head {h00=0x0010, h01=0x0050, text=» SC A2,DI110«, t00=0x0018, t01=0x00e0}
0x2668…267e Head {h00=0x0012, h01=0x0050, text=» SC A2,ARG1+1 «, t00=0x0018, t01=0x00f4}
0x267e…2692 Head {h00=0x0010, h01=0x0050, text=» ST A2,MU20 «, t00=0x0018, t01=0x010a}
0x2692…26a6 Head {h00=0x0010, h01=0x0050, text=» ST A2,MU40 «, t00=0x0018, t01=0x011e}
0x26a6…26ba Head {h00=0x0010, h01=0x0050, text=» ST A2,DI030«, t00=0x0018, t01=0x0132}
0x26ba…26ce Head {h00=0x0010, h01=0x0050, text=» ST A2,DI090«, t00=0x0018, t01=0x0146}
0x26ce…26e2 Head {h00=0x0010, h01=0x0050, text=» ST A2,DI100«, t00=0x0018, t01=0x015a}
0x26e2…26fe Head {h00=0x0018, h01=0x0050, text=» ECR A2,A2 A2=/3010 «, t00=0x0018, t01=0x016e}
0x26fe…2712 Head {h00=0x0010, h01=0x0050, text=» ST A2,MU10 «, t00=0x0018, t01=0x018a}
0x2712…2728 Head {h00=0x0012, h01=0x0050, text=» SC A2,DI140-2«, t00=0x0019, t01=0x000e}
0x2728…273c Head {h00=0x0010, h01=0x0050, text=» SC A2,ARG3 «, t00=0x0019, t01=0x0024}
0x273c…274e Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0019, t01=0x0038}
0x274e…275a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x004a}
0x275a…275e Head {h00=0x4004, h01=0x0000}
0x275e…2760 00 19 ┆ ┆
0x2760…2762 00 56 ┆ V┆
0x2762…276a (26, 1, 8) 20 04 00 00 00 1a 00 04 ┆ ┆
0x276a…2772 (27, 1, 8) 20 04 00 00 00 0b 00 04 ┆ ┆
0x2772…27c2 (28, 0, 398) 5c 45 51 55 5c 2a 00 3b 01 8a 00 22 00 50 5c 43 4d 5c 58 41 43 4b 5c 52 45 53 45 54 20 27 41 43 4b 20 45 58 50 45 43 54 45 44 27 20 00 3c 00 0e 00 10 00 50 42 52 4d 32 32 30 5c 45 51 55 5c 2a 00 3c 00 34 00 1e 00 50 5c 43 4d 5c 58 53 45 4c ┆ EQU * ; " P CM XACK RESET 'ACK EXPECTED' < PBRM220 EQU * < 4 P CM XSEL┆
0x27c2…2812 5c 52 45 53 45 54 20 27 53 45 4c 45 43 54 45 44 27 20 00 3c 00 48 00 0c 00 50 5c 52 42 5c 42 52 4d 20 00 3c 00 6a 00 0a 00 50 5c 45 4a 45 43 54 00 3c 00 7a 00 06 00 50 2a 20 00 3c 00 88 00 06 00 50 2a 20 00 3c 00 92 00 1c 00 50 2a 5c 53 54 ┆ RESET 'SELECTED' < H P RB BRM < j P EJECT < z P* < P* < P* ST┆
0x2812…2862 58 20 48 41 53 20 42 45 45 4e 20 52 45 43 45 49 56 45 44 20 00 3c 00 9c 00 06 00 50 2a 20 00 3c 00 bc 00 06 00 50 2a 20 00 3c 00 c6 00 10 00 50 42 52 4d 33 30 30 5c 45 51 55 5c 2a 00 3c 00 d0 00 10 00 50 5c 43 46 5c 41 35 2c 48 50 54 49 4d ┆X HAS BEEN RECEIVED < P* < P* < PBRM300 EQU * < P CF A5,HPTIM┆
0x2862…28b2 00 3c 00 e4 00 10 00 50 5c 4c 44 5c 41 31 2c 58 53 45 4c 20 00 3c 00 f8 00 1e 00 50 5c 52 46 28 5a 29 5c 42 52 4d 33 31 35 5c 4e 4f 54 20 53 45 4c 45 43 54 45 44 00 3c 01 0c 00 12 00 50 5c 4c 44 5c 41 31 2c 44 43 52 42 55 46 20 00 3c 01 2e ┆ < P LD A1,XSEL < P RF(Z) BRM315 NOT SELECTED < P LD A1,DCRBUF < .┆
0x28b2…2900 00 28 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 43 48 41 49 4e 45 44 20 43 4f 4d 4d 41 4e 44 00 3c 01 44 00 22 00 50 5c 52 42 28 5a 29 5c 42 52 4d 5c 4e 4f 20 42 55 46 46 45 52 20 41 56 41 49 4c 41 42 4c 45 ┆ ( P*********************CHAINED COMMAND < D " P RB(Z) BRM NO BUFFER AVAILABLE┆