|
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: 10956 (0x2acc)
Notes: pts_type(SC)
Names: »MULDIV.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »BDKAPP/MULDIV.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/MULDIV.SC«
IDENT MULDIV REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * MULDIV = MULTIPLICATION/DIVISION * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ******************************************* * * * 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…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT MULDIV REL=7.2 DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…008e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x005e}
0x008e…0098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00c0 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009c}
0x00c0…00ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c4}
0x00ca…00f6 Head {h00=0x0028, h01=0x0050, text=»* MULDIV = MULTIPLICATION/DIVISION«, t00=0x0000, t01=0x00ce}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…012c Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x010e}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0158 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x013a}
0x0158…0162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…0196 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0166}
0x0196…01a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x01a0…01aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0014}
0x01aa…01de Head {h00=0x0030, h01=0x0050, text=»* THIS MODULE CONTAINS SUBROUTINES TO HANDLE«, t00=0x0001, t01=0x001e}
0x01de…020c Head {h00=0x002a, h01=0x0050, text=»* INTEGER MULTIPLICATION AND DIVISION «, t00=0x0001, t01=0x0052}
0x020c…0216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0080}
0x0216…0236 Head {h00=0x001c, h01=0x0050, text=»* FORMAT MULTIPLICATION:«, t00=0x0001, t01=0x008a}
0x0236…024c Head {h00=0x0012, h01=0x0050, text=»* CF A14,T:MUL«, t00=0x0001, t01=0x00aa}
0x024c…0262 Head {h00=0x0012, h01=0x0050, text=»* BYTE EL1,EL2«, t00=0x0001, t01=0x00c0}
0x0262…0278 Head {h00=0x0012, h01=0x0050, text=»* BYTE EL3,EL4«, t00=0x0001, t01=0x00d6}
0x0278…0282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ec}
0x0282…029c Head {h00=0x0016, h01=0x0050, text=»* FORMAT DIVISION:«, t00=0x0001, t01=0x00f6}
0x029c…02b2 Head {h00=0x0012, h01=0x0050, text=»* CF A14,T:DIV«, t00=0x0001, t01=0x0110}
0x02b2…02c8 Head {h00=0x0012, h01=0x0050, text=»* BYTE EL1,EL2«, t00=0x0001, t01=0x0126}
0x02c8…02de Head {h00=0x0012, h01=0x0050, text=»* BYTE EL3,EL4«, t00=0x0001, t01=0x013c}
0x02de…02e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0152}
0x02e8…0308 Head {h00=0x001c, h01=0x0050, text=»* RESULT RETURNED IN EL1«, t00=0x0001, t01=0x015c}
0x0308…0312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017c}
0x0312…032c Head {h00=0x0016, h01=0x0050, text=» ENTRY T:MUL,T:DIV«, t00=0x0001, t01=0x0186}
0x032c…0348 Head {h00=0x0018, h01=0x0050, text=» ENTRY T:SIGN,T:BRK «, t00=0x0002, t01=0x0010}
0x0348…0364 Head {h00=0x0018, h01=0x0050, text=» ENTRY T:MULC,T:DIVC«, t00=0x0002, t01=0x002c}
0x0364…0380 Head {h00=0x0018, h01=0x0050, text=» ENTRY M:BRK,M:SIGN «, t00=0x0002, t01=0x0048}
0x0380…038e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0064}
0x038e…0398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0072}
0x0398…03b2 Head {h00=0x0016, h01=0x0050, text=» EXTRN T:ADD,T:SUB«, t00=0x0002, t01=0x007c}
0x03b2…03d2 Head {h00=0x001c, h01=0x0050, text=» EXTRN T:MOV,T:CMP,T:OPA«, t00=0x0002, t01=0x0096}
0x03d2…03ec Head {h00=0x0016, h01=0x0050, text=» EXTRN T:SHR,T:SHL«, t00=0x0002, t01=0x00b6}
0x03ec…0400 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:OPS«, t00=0x0002, t01=0x00d0}
0x0400…0416 Head {h00=0x0012, h01=0x0050, text=» EXTRN RETMMM «, t00=0x0002, t01=0x00e4}
0x0416…0442 Head {h00=0x0028, h01=0x0050, text=» EXTRN M:ADD,M:SUB,M:MOV,M:CMP,M:OPA«, t00=0x0002, t01=0x00fa}
0x0442…0462 Head {h00=0x001c, h01=0x0050, text=» EXTRN M:SHR,M:SHL,M:OPS«, t00=0x0002, t01=0x0126}
0x0462…046c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0146}
0x046c…0480 Head {h00=0x0010, h01=0x0050, text=»OVERLY EQU 0«, t00=0x0002, t01=0x0150}
0x0480…048e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0164}
0x048e…0498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0172}
0x0498…04b2 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0002, t01=0x017c}
0x04b2…04cc Head {h00=0x0016, h01=0x0050, text=»* MULTIPLICATION* «, t00=0x0003, t01=0x0008}
0x04cc…04e6 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0003, t01=0x0022}
0x04e6…04f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003c}
0x04f0…0504 Head {h00=0x0010, h01=0x0050, text=»T:MULC EQU *«, t00=0x0003, t01=0x0046}
0x0504…0526 Head {h00=0x001e, h01=0x0050, text=» ADKL A13,1 INDICATE MULC «, t00=0x0003, t01=0x005a}
0x0526…0530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007c}
0x0530…0544 Head {h00=0x0010, h01=0x0050, text=»T:MUL EQU * «, t00=0x0003, t01=0x0086}
0x0544…0558 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,8 «, t00=0x0003, t01=0x009a}
0x0558…056e Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0003, t01=0x00ae}
0x056e…059a Head {h00=0x0028, h01=0x0050, text=» CF A14,T:BRK GET ARGUMENT AND BREAK«, t00=0x0003, t01=0x00c4}
0x059a…05c2 Head {h00=0x0024, h01=0x0050, text=» CF A14,T:SIGN SET START VALUES «, t00=0x0003, t01=0x00f0}
0x05c2…05e8 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:MOV MOVE EL1 TO EL3 «, t00=0x0003, t01=0x0118}
0x05e8…0600 Head {h00=0x0014, h01=0x0050, text=»MU10 DATA /3010 «, t00=0x0003, t01=0x013e}
0x0600…0626 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:SUB SUB EL3 FROM EL1«, t00=0x0003, t01=0x0156}
0x0626…063e Head {h00=0x0014, h01=0x0050, text=»MU20 DATA /1030 «, t00=0x0003, t01=0x017c}
0x063e…0648 (4, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x0648…0674 Head {h00=0x0028, h01=0x0050, text=»MU30 CF A14,T:BRK GET ARG. AND BREAK«, t00=0x0004, t01=0x000e}
0x0674…0680 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x003a}
0x0680…0696 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0004, t01=0x0046}
0x0696…06c2 Head {h00=0x0028, h01=0x0050, text=» CF A14,M:BRK GET ARGUMENT AND BREAK«, t00=0x0004, t01=0x005c}
0x06c2…06ea Head {h00=0x0024, h01=0x0050, text=» CF A14,M:SIGN SET START VALUES «, t00=0x0004, t01=0x0088}
0x06ea…0710 Head {h00=0x0022, h01=0x0050, text=» CF A14,M:MOV MOVE EL1 TO EL3 «, t00=0x0004, t01=0x00b0}
0x0710…0728 Head {h00=0x0014, h01=0x0050, text=»MU10 DATA /3010 «, t00=0x0004, t01=0x00d6}
0x0728…074e Head {h00=0x0022, h01=0x0050, text=» CF A14,M:SUB SUB EL3 FROM EL1«, t00=0x0004, t01=0x00ee}
0x074e…0766 Head {h00=0x0014, h01=0x0050, text=»MU20 DATA /1030 «, t00=0x0004, t01=0x0114}
0x0766…0770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012c}
0x0770…079c Head {h00=0x0028, h01=0x0050, text=»MU30 CF A14,M:BRK GET ARG. AND BREAK«, t00=0x0004, t01=0x0136}
0x079c…07a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0162}
0x07a8…07cc Head {h00=0x0020, h01=0x0050, text=» LD A1,4,A14 GET POINTER EL4«, t00=0x0004, t01=0x016e}
0x07cc…07e8 (5, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LCR A2,A1 GET BYTE «, t00=0x0005, t01=0x0004}
0x07e8…0806 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 COPY TO A3 «, t00=0x0005, t01=0x0020}
0x0806…0822 Head {h00=0x0018, h01=0x0050, text=» SRL A2,4 GET DIGIT «, t00=0x0005, t01=0x003e}
0x0822…0840 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/F MASK DIGIT «, t00=0x0005, t01=0x005a}
0x0840…085e Head {h00=0x001a, h01=0x0050, text=» RF(Z) MU50 NEXT DIGIT«, t00=0x0005, t01=0x0078}
0x085e…0870 Head {h00=0x000e, h01=0x0050, text=» SUK A2,/F«, t00=0x0005, t01=0x0096}
0x0870…0894 Head {h00=0x0020, h01=0x0050, text=» RF(Z) MU80 JUMP IF FINISHED«, t00=0x0005, t01=0x00a8}
0x0894…08b8 Head {h00=0x0020, h01=0x0050, text=» SUK A3,/10 DECREMENT DIGIT «, t00=0x0005, t01=0x00cc}
0x08b8…08d8 Head {h00=0x001c, h01=0x0050, text=» SCR A3,A1 RESTORE BYTE «, t00=0x0005, t01=0x00f0}
0x08d8…08ee Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0005, t01=0x0110}
0x08ee…0912 Head {h00=0x0020, h01=0x0050, text=» CF A14,T:ADD ADD EL3 TO EL1«, t00=0x0005, t01=0x0126}
0x0912…092a Head {h00=0x0014, h01=0x0050, text=»MU40 DATA /1030 «, t00=0x0005, t01=0x014a}
0x092a…093a Head {h00=0x000c, h01=0x0050, text=» RB MU30«, t00=0x0005, t01=0x0162}
0x093a…0944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0172}
0x0944…096e Head {h00=0x0026, h01=0x0050, text=»MU50 CF A14,T:SHR SHIFT RIGHT EL4 «, t00=0x0005, t01=0x017c}
0x096e…0986 Head {h00=0x0014, h01=0x0050, text=»MU60 DATA /4001 «, t00=0x0006, t01=0x0016}
0x0986…09aa Head {h00=0x0020, h01=0x0050, text=» CF A14,T:SHL SHIFT LEFT EL3«, t00=0x0006, t01=0x002e}
0x09aa…09b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0052}
0x09b6…09cc Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0006, t01=0x005e}
0x09cc…09f0 Head {h00=0x0020, h01=0x0050, text=» CF A14,M:ADD ADD EL3 TO EL1«, t00=0x0006, t01=0x0074}
0x09f0…0a08 Head {h00=0x0014, h01=0x0050, text=»MU40 DATA /1030 «, t00=0x0006, t01=0x0098}
0x0a08…0a18 Head {h00=0x000c, h01=0x0050, text=» RB MU30«, t00=0x0006, t01=0x00b0}
0x0a18…0a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c0}
0x0a22…0a4c Head {h00=0x0026, h01=0x0050, text=»MU50 CF A14,M:SHR SHIFT RIGHT EL4 «, t00=0x0006, t01=0x00ca}
0x0a4c…0a64 Head {h00=0x0014, h01=0x0050, text=»MU60 DATA /4001 «, t00=0x0006, t01=0x00f4}
0x0a64…0a88 Head {h00=0x0020, h01=0x0050, text=» CF A14,M:SHL SHIFT LEFT EL3«, t00=0x0006, t01=0x010c}
0x0a88…0a94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0130}
0x0a94…0aac Head {h00=0x0014, h01=0x0050, text=»MU70 DATA /3001 «, t00=0x0006, t01=0x013c}
0x0aac…0abc Head {h00=0x000c, h01=0x0050, text=» RB MU30«, t00=0x0006, t01=0x0154}
0x0abc…0ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0164}
0x0ac6…0ad8 Head {h00=0x000e, h01=0x0050, text=»MU80 EQU *«, t00=0x0006, t01=0x016e}
0x0ad8…0b00 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,8 ADJUST STACK POINTER«, t00=0x0006, t01=0x0180}
0x0b00…0b26 Head {h00=0x0022, h01=0x0050, text=» LD A6,-6,A14 GET SIGN ADDRESS«, t00=0x0007, t01=0x0018}
0x0b26…0b48 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A6 LOAD SIGN BYTE «, t00=0x0007, t01=0x003e}
0x0b48…0b66 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/F0 MASK DIGIT«, t00=0x0007, t01=0x0060}
0x0b66…0b8a Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A14 GET RESULT SIGN«, t00=0x0007, t01=0x007e}
0x0b8a…0ba8 Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 INSERT SIGN«, t00=0x0007, t01=0x00a2}
0x0ba8…0bcc Head {h00=0x0020, h01=0x0050, text=» SCR A1,A6 RESTORE SIGN BYTE«, t00=0x0007, t01=0x00c0}
0x0bcc…0bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e4}
0x0bd6…0bea Head {h00=0x0010, h01=0x0050, text=»RET LDK A2,4«, t00=0x0007, t01=0x00ee}
0x0bea…0c12 Head {h00=0x0024, h01=0x0050, text=» ADS A2,4,A14 MODIFY RETURN ADR «, t00=0x0007, t01=0x0102}
0x0c12…0c28 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0007, t01=0x012a}
0x0c28…0c38 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0007, t01=0x0140}
0x0c38…0c44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0150}
0x0c44…0c5a Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0007, t01=0x015c}
0x0c5a…0c6e Head {h00=0x0010, h01=0x0050, text=» DATA /C0FF «, t00=0x0007, t01=0x0172}
0x0c6e…0c7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0186}
0x0c7a…0c88 (8, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0004}
0x0c88…0c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0012}
0x0c92…0cac Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0008, t01=0x001c}
0x0cac…0cc6 Head {h00=0x0016, h01=0x0050, text=»* DIVISION * «, t00=0x0008, t01=0x0036}
0x0cc6…0ce0 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0008, t01=0x0050}
0x0ce0…0cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006a}
0x0cea…0cfe Head {h00=0x0010, h01=0x0050, text=»T:DIVC EQU *«, t00=0x0008, t01=0x0074}
0x0cfe…0d20 Head {h00=0x001e, h01=0x0050, text=» ADKL A13,1 INDICATE DIVC «, t00=0x0008, t01=0x0088}
0x0d20…0d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00aa}
0x0d2a…0d3e Head {h00=0x0010, h01=0x0050, text=»T:DIV EQU * «, t00=0x0008, t01=0x00b4}
0x0d3e…0d52 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,8 «, t00=0x0008, t01=0x00c8}
0x0d52…0d68 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0008, t01=0x00dc}
0x0d68…0d94 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:BRK GET ARGUMENT AND BREAK«, t00=0x0008, t01=0x00f2}
0x0d94…0dbc Head {h00=0x0024, h01=0x0050, text=» CF A14,T:SIGN SET START VALUES «, t00=0x0008, t01=0x011e}
0x0dbc…0ddc Head {h00=0x001c, h01=0x0050, text=» CF A14,T:MOV EL4 TO EL3«, t00=0x0008, t01=0x0146}
0x0ddc…0df4 Head {h00=0x0014, h01=0x0050, text=»DI005 DATA /3040«, t00=0x0008, t01=0x0166}
0x0df4…0e14 Head {h00=0x001c, h01=0x0050, text=» CF A14,T:SUB CLEAR EL4 «, t00=0x0008, t01=0x017e}
0x0e14…0e2c Head {h00=0x0014, h01=0x0050, text=»DI010 DATA /4040«, t00=0x0009, t01=0x000e}
0x0e2c…0e4c Head {h00=0x001c, h01=0x0050, text=» ST A11,10,A14 SAVE A11 «, t00=0x0009, t01=0x0026}
0x0e4c…0e6a Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 CLEAR A11«, t00=0x0009, t01=0x0046}
0x0e6a…0e80 Head {h00=0x0012, h01=0x0050, text=» CF A14,T:CMP «, t00=0x0009, t01=0x0064}
0x0e80…0e98 Head {h00=0x0014, h01=0x0050, text=»DI015 DATA /3040«, t00=0x0009, t01=0x007a}
0x0e98…0ec8 Head {h00=0x002c, h01=0x0050, text=» RF(E) DI180 JUMP IF DIVISION WITH ZERO «, t00=0x0009, t01=0x0092}
0x0ec8…0ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed2…0f00 Head {h00=0x002a, h01=0x0050, text=»DI020 CF A14,T:BRK BACK TO DISPATCHER «, t00=0x0009, t01=0x00cc}
0x0f00…0f26 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:CMP CMP EL1 AND EL3 «, t00=0x0009, t01=0x00fa}
0x0f26…0f3e Head {h00=0x0014, h01=0x0050, text=»DI030 DATA /1030«, t00=0x0009, t01=0x0120}
0x0f3e…0f5c Head {h00=0x001a, h01=0x0050, text=» RF(L) DI050 EL1 < EL3«, t00=0x0009, t01=0x0138}
0x0f5c…0f7a Head {h00=0x001a, h01=0x0050, text=» RF(E) DI070 EL1 = EL3«, t00=0x0009, t01=0x0156}
0x0f7a…0f9e Head {h00=0x0020, h01=0x0050, text=» IM 6,A14 INCREMENT COUNTER «, t00=0x0009, t01=0x0174}
0x0f9e…0fcc Head {h00=0x002a, h01=0x0050, text=» RF(Z) DI180 JUMP IF WHOLE EL3 SHIFTED«, t00=0x000a, t01=0x0008}
0x0fcc…0ff0 Head {h00=0x0020, h01=0x0050, text=» CF A14,T:SHL SHIFT LEFT EL3«, t00=0x000a, t01=0x0036}
0x0ff0…1008 Head {h00=0x0014, h01=0x0050, text=»DI040 DATA /3001«, t00=0x000a, t01=0x005a}
0x1008…1034 Head {h00=0x0028, h01=0x0050, text=» SUKL A11,1 DECREMENT SHIFT COUNTER «, t00=0x000a, t01=0x0072}
0x1034…1046 Head {h00=0x000e, h01=0x0050, text=» RB DI020 «, t00=0x000a, t01=0x009e}
0x1046…1050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b0}
0x1050…106a Head {h00=0x0016, h01=0x0050, text=»DI050 LDR A11,A11 «, t00=0x000a, t01=0x00ba}
0x106a…109a Head {h00=0x002c, h01=0x0050, text=» RF(Z) DI130 DIVIDEND LESS THAN DIVISOR «, t00=0x000a, t01=0x00d4}
0x109a…10c0 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:SHR SHIFT RIGHT EL3 «, t00=0x000a, t01=0x0104}
0x10c0…10d8 Head {h00=0x0014, h01=0x0050, text=»DI060 DATA /3001«, t00=0x000a, t01=0x012a}
0x10d8…1104 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SHIFT COUNTER «, t00=0x000a, t01=0x0142}
0x1104…110e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016e}
0x110e…113c Head {h00=0x002a, h01=0x0050, text=»DI070 ST A11,6,A14 STORE SHIFT COUNTER«, t00=0x000a, t01=0x0178}
0x113c…1146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0016}
0x1146…1174 Head {h00=0x002a, h01=0x0050, text=»DI080 CF A14,T:BRK BACK TO DISPATCHER «, t00=0x000b, t01=0x0020}
0x1174…1194 Head {h00=0x001c, h01=0x0050, text=» CF A14,T:SUB EL1 - EL3 «, t00=0x000b, t01=0x004e}
0x1194…11ac Head {h00=0x0014, h01=0x0050, text=»DI090 DATA /1030«, t00=0x000b, t01=0x006e}
0x11ac…11d6 Head {h00=0x0026, h01=0x0050, text=» LD A2,4,A14 GET SIGN BYTE ADR EL4«, t00=0x000b, t01=0x0086}
0x11d6…11f2 Head {h00=0x0018, h01=0x0050, text=» LCR A1,A2 GET BYTE «, t00=0x000b, t01=0x00b0}
0x11f2…1218 Head {h00=0x0022, h01=0x0050, text=» ADK A1,/10 INCREMENT QUOTIENT«, t00=0x000b, t01=0x00cc}
0x1218…1238 Head {h00=0x001c, h01=0x0050, text=» SCR A1,A2 RESTORE BYTE «, t00=0x000b, t01=0x00f2}
0x1238…1242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0112}
0x1242…1256 Head {h00=0x0010, h01=0x0050, text=»DI095 EQU * «, t00=0x000b, t01=0x011c}
0x1256…126c Head {h00=0x0012, h01=0x0050, text=» CF A14,T:CMP «, t00=0x000b, t01=0x0130}
0x126c…1280 Head {h00=0x0010, h01=0x0050, text=»DI100 EQU * «, t00=0x000b, t01=0x0146}
0x1280…1294 Head {h00=0x0010, h01=0x0050, text=» DATA /1030 «, t00=0x000b, t01=0x015a}
0x1294…12ba Head {h00=0x0022, h01=0x0050, text=» RB(NL) DI080 JUMP IF NOT LESS«, t00=0x000b, t01=0x016e}
0x12ba…12de (12, 0, 400) Head {h00=0x0020, h01=0x0050, text=» IM 6,A14 INCREMENT COUNTER «, t00=0x000c, t01=0x0004}
0x12de…1304 Head {h00=0x0022, h01=0x0050, text=» RF(P) DI130 JUMP IF FINISHED «, t00=0x000c, t01=0x0028}
0x1304…132a Head {h00=0x0022, h01=0x0050, text=» CF A14,T:SHR SHIFT EL3 RIGHT «, t00=0x000c, t01=0x004e}
0x132a…1342 Head {h00=0x0014, h01=0x0050, text=»DI110 DATA /3001«, t00=0x000c, t01=0x0074}
0x1342…1366 Head {h00=0x0020, h01=0x0050, text=» CF A14,T:SHL SHIFT EL4 LEFT«, t00=0x000c, t01=0x008c}
0x1366…137e Head {h00=0x0014, h01=0x0050, text=»DI120 DATA /4001«, t00=0x000c, t01=0x00b0}
0x137e…13a6 Head {h00=0x0024, h01=0x0050, text=» CF A14,T:BRK BACK TO DISPATCHER«, t00=0x000c, t01=0x00c8}
0x13a6…13b8 Head {h00=0x000e, h01=0x0050, text=» RB DI095 «, t00=0x000c, t01=0x00f0}
0x13b8…13c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0102}
0x13c2…13ec Head {h00=0x0026, h01=0x0050, text=»DI130 CF A14,T:MOV MOVE EL4 TO EL1«, t00=0x000c, t01=0x010c}
0x13ec…1400 Head {h00=0x0010, h01=0x0050, text=» DATA /1040 «, t00=0x000c, t01=0x0136}
0x1400…140a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014a}
0x140a…142e Head {h00=0x0020, h01=0x0050, text=»DI140 LDK A1,0 INDICATE CR=0«, t00=0x000c, t01=0x0154}
0x142e…1456 Head {h00=0x0024, h01=0x0050, text=»DI150 LD A11,10,A14 RESTORE A11 «, t00=0x000c, t01=0x0178}
0x1456…147e Head {h00=0x0024, h01=0x0050, text=» SC A1,10,A14 STORE PSW ON STACK«, t00=0x000d, t01=0x0010}
0x147e…148e Head {h00=0x000c, h01=0x0050, text=» RB MU80«, t00=0x000d, t01=0x0038}
0x148e…1498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0048}
0x1498…14bc Head {h00=0x0020, h01=0x0050, text=»DI180 LDK A1,3 INDICATE CR=3«, t00=0x000d, t01=0x0052}
0x14bc…14ce Head {h00=0x000e, h01=0x0050, text=» RB DI150 «, t00=0x000d, t01=0x0076}
0x14ce…14da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0088}
0x14da…14f0 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x000d, t01=0x0094}
0x14f0…151c Head {h00=0x0028, h01=0x0050, text=» CF A14,M:BRK GET ARGUMENT AND BREAK«, t00=0x000d, t01=0x00aa}
0x151c…1544 Head {h00=0x0024, h01=0x0050, text=» CF A14,M:SIGN SET START VALUES «, t00=0x000d, t01=0x00d6}
0x1544…1564 Head {h00=0x001c, h01=0x0050, text=» CF A14,M:MOV EL4 TO EL3«, t00=0x000d, t01=0x00fe}
0x1564…157c Head {h00=0x0014, h01=0x0050, text=»DI005 DATA /3040«, t00=0x000d, t01=0x011e}
0x157c…159c Head {h00=0x001c, h01=0x0050, text=» CF A14,M:SUB CLEAR EL4 «, t00=0x000d, t01=0x0136}
0x159c…15b4 Head {h00=0x0014, h01=0x0050, text=»DI010 DATA /4040«, t00=0x000d, t01=0x0156}
0x15b4…15d4 Head {h00=0x001c, h01=0x0050, text=» ST A11,10,A14 SAVE A11 «, t00=0x000d, t01=0x016e}
0x15d4…15f2 Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 CLEAR A11«, t00=0x000d, t01=0x018e}
0x15f2…1608 Head {h00=0x0012, h01=0x0050, text=» CF A14,M:CMP «, t00=0x000e, t01=0x001c}
0x1608…1620 Head {h00=0x0014, h01=0x0050, text=»DI015 DATA /3040«, t00=0x000e, t01=0x0032}
0x1620…1650 Head {h00=0x002c, h01=0x0050, text=» RF(E) DI180 JUMP IF DIVISION WITH ZERO «, t00=0x000e, t01=0x004a}
0x1650…165a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007a}
0x165a…1688 Head {h00=0x002a, h01=0x0050, text=»DI020 CF A14,M:BRK BACK TO DISPATCHER «, t00=0x000e, t01=0x0084}
0x1688…16ae Head {h00=0x0022, h01=0x0050, text=» CF A14,M:CMP CMP EL1 AND EL3 «, t00=0x000e, t01=0x00b2}
0x16ae…16c6 Head {h00=0x0014, h01=0x0050, text=»DI030 DATA /1030«, t00=0x000e, t01=0x00d8}
0x16c6…16e4 Head {h00=0x001a, h01=0x0050, text=» RF(L) DI050 EL1 < EL3«, t00=0x000e, t01=0x00f0}
0x16e4…1702 Head {h00=0x001a, h01=0x0050, text=» RF(E) DI070 EL1 = EL3«, t00=0x000e, t01=0x010e}
0x1702…1726 Head {h00=0x0020, h01=0x0050, text=» IM 6,A14 INCREMENT COUNTER «, t00=0x000e, t01=0x012c}
0x1726…1754 Head {h00=0x002a, h01=0x0050, text=» RF(Z) DI180 JUMP IF WHOLE EL3 SHIFTED«, t00=0x000e, t01=0x0150}
0x1754…1778 Head {h00=0x0020, h01=0x0050, text=» CF A14,M:SHL SHIFT LEFT EL3«, t00=0x000e, t01=0x017e}
0x1778…1790 Head {h00=0x0014, h01=0x0050, text=»DI040 DATA /3001«, t00=0x000f, t01=0x0012}
0x1790…17bc Head {h00=0x0028, h01=0x0050, text=» SUKL A11,1 DECREMENT SHIFT COUNTER «, t00=0x000f, t01=0x002a}
0x17bc…17ce Head {h00=0x000e, h01=0x0050, text=» RB DI020 «, t00=0x000f, t01=0x0056}
0x17ce…17d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0068}
0x17d8…17f2 Head {h00=0x0016, h01=0x0050, text=»DI050 LDR A11,A11 «, t00=0x000f, t01=0x0072}
0x17f2…1822 Head {h00=0x002c, h01=0x0050, text=» RF(Z) DI130 DIVIDEND LESS THAN DIVISOR «, t00=0x000f, t01=0x008c}
0x1822…1848 Head {h00=0x0022, h01=0x0050, text=» CF A14,M:SHR SHIFT RIGHT EL3 «, t00=0x000f, t01=0x00bc}
0x1848…1860 Head {h00=0x0014, h01=0x0050, text=»DI060 DATA /3001«, t00=0x000f, t01=0x00e2}
0x1860…188c Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SHIFT COUNTER «, t00=0x000f, t01=0x00fa}
0x188c…1896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0126}
0x1896…18c4 Head {h00=0x002a, h01=0x0050, text=»DI070 ST A11,6,A14 STORE SHIFT COUNTER«, t00=0x000f, t01=0x0130}
0x18c4…18ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015e}
0x18ce…18fc Head {h00=0x002a, h01=0x0050, text=»DI080 CF A14,M:BRK BACK TO DISPATCHER «, t00=0x000f, t01=0x0168}
0x18fc…191c Head {h00=0x001c, h01=0x0050, text=» CF A14,M:SUB EL1 - EL3 «, t00=0x0010, t01=0x0008}
0x191c…1934 Head {h00=0x0014, h01=0x0050, text=»DI090 DATA /1030«, t00=0x0010, t01=0x0028}
0x1934…195e Head {h00=0x0026, h01=0x0050, text=» LD A2,4,A14 GET SIGN BYTE ADR EL4«, t00=0x0010, t01=0x0040}
0x195e…197a Head {h00=0x0018, h01=0x0050, text=» LCR A1,A2 GET BYTE «, t00=0x0010, t01=0x006a}
0x197a…19a0 Head {h00=0x0022, h01=0x0050, text=» ADK A1,/10 INCREMENT QUOTIENT«, t00=0x0010, t01=0x0086}
0x19a0…19c0 Head {h00=0x001c, h01=0x0050, text=» SCR A1,A2 RESTORE BYTE «, t00=0x0010, t01=0x00ac}
0x19c0…19ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00cc}
0x19ca…19de Head {h00=0x0010, h01=0x0050, text=»DI095 EQU * «, t00=0x0010, t01=0x00d6}
0x19de…19f4 Head {h00=0x0012, h01=0x0050, text=» CF A14,M:CMP «, t00=0x0010, t01=0x00ea}
0x19f4…1a08 Head {h00=0x0010, h01=0x0050, text=»DI100 EQU * «, t00=0x0010, t01=0x0100}
0x1a08…1a1c Head {h00=0x0010, h01=0x0050, text=» DATA /1030 «, t00=0x0010, t01=0x0114}
0x1a1c…1a42 Head {h00=0x0022, h01=0x0050, text=» RB(NL) DI080 JUMP IF NOT LESS«, t00=0x0010, t01=0x0128}
0x1a42…1a66 Head {h00=0x0020, h01=0x0050, text=» IM 6,A14 INCREMENT COUNTER «, t00=0x0010, t01=0x014e}
0x1a66…1a8c Head {h00=0x0022, h01=0x0050, text=» RF(P) DI130 JUMP IF FINISHED «, t00=0x0010, t01=0x0172}
0x1a8c…1ab2 Head {h00=0x0022, h01=0x0050, text=» CF A14,M:SHR SHIFT EL3 RIGHT «, t00=0x0011, t01=0x0008}
0x1ab2…1aca Head {h00=0x0014, h01=0x0050, text=»DI110 DATA /3001«, t00=0x0011, t01=0x002e}
0x1aca…1aee Head {h00=0x0020, h01=0x0050, text=» CF A14,M:SHL SHIFT EL4 LEFT«, t00=0x0011, t01=0x0046}
0x1aee…1b06 Head {h00=0x0014, h01=0x0050, text=»DI120 DATA /4001«, t00=0x0011, t01=0x006a}
0x1b06…1b2e Head {h00=0x0024, h01=0x0050, text=» CF A14,M:BRK BACK TO DISPATCHER«, t00=0x0011, t01=0x0082}
0x1b2e…1b40 Head {h00=0x000e, h01=0x0050, text=» RB DI095 «, t00=0x0011, t01=0x00aa}
0x1b40…1b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00bc}
0x1b4a…1b74 Head {h00=0x0026, h01=0x0050, text=»DI130 CF A14,M:MOV MOVE EL4 TO EL1«, t00=0x0011, t01=0x00c6}
0x1b74…1b88 Head {h00=0x0010, h01=0x0050, text=» DATA /1040 «, t00=0x0011, t01=0x00f0}
0x1b88…1b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0104}
0x1b92…1bb6 Head {h00=0x0020, h01=0x0050, text=»DI140 LDK A1,0 INDICATE CR=0«, t00=0x0011, t01=0x010e}
0x1bb6…1bde Head {h00=0x0024, h01=0x0050, text=»DI150 LD A11,10,A14 RESTORE A11 «, t00=0x0011, t01=0x0132}
0x1bde…1c00 Head {h00=0x001e, h01=0x0050, text=» CF A14,DI155 GET CURR PSW«, t00=0x0011, t01=0x015a}
0x1c00…1c1a Head {h00=0x0016, h01=0x0050, text=»DI155 LD A6,2,A14 «, t00=0x0011, t01=0x017c}
0x1c1a…1c2e Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0012, t01=0x0008}
0x1c2e…1c50 Head {h00=0x001e, h01=0x0050, text=» ANKL A6,/FCFF DELETE COND«, t00=0x0012, t01=0x001c}
0x1c50…1c62 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0012, t01=0x003e}
0x1c62…1c74 Head {h00=0x000e, h01=0x0050, text=» ORR A6,A1«, t00=0x0012, t01=0x0050}
0x1c74…1c8a Head {h00=0x0012, h01=0x0050, text=» ST A6,10,A14 «, t00=0x0012, t01=0x0062}
0x1c8a…1c9a Head {h00=0x000c, h01=0x0050, text=» RB MU80«, t00=0x0012, t01=0x0078}
0x1c9a…1ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0088}
0x1ca4…1cc8 Head {h00=0x0020, h01=0x0050, text=»DI180 LDK A1,3 INDICATE CR=3«, t00=0x0012, t01=0x0092}
0x1cc8…1cda Head {h00=0x000e, h01=0x0050, text=» RB DI150 «, t00=0x0012, t01=0x00b6}
0x1cda…1ce6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00c8}
0x1ce6…1cf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00d4}
0x1cf4…1cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1cfe…1d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ec}
0x1d08…1d34 Head {h00=0x0028, h01=0x0050, text=»* T:SIGN SETS EL1 AND EL4 POSITIVE, «, t00=0x0012, t01=0x00f6}
0x1d34…1d5a Head {h00=0x0022, h01=0x0050, text=»* COMPUTES SIGN OF RESULT AND «, t00=0x0012, t01=0x0122}
0x1d5a…1d88 Head {h00=0x002a, h01=0x0050, text=»* STORE PARAMETERS OF EL1,EL3 AND EL4 «, t00=0x0012, t01=0x0148}
0x1d88…1d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0176}
0x1d92…1da6 Head {h00=0x0010, h01=0x0050, text=»M:SIGN EQU *«, t00=0x0012, t01=0x0180}
0x1da6…1dbc (19, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0013, t01=0x0004}
0x1dbc…1dd0 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0013, t01=0x001a}
0x1dd0…1de6 Head {h00=0x0012, h01=0x0050, text=» XRS A7,2,A14 «, t00=0x0013, t01=0x002e}
0x1de6…1df2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0044}
0x1df2…1e06 Head {h00=0x0010, h01=0x0050, text=»T:SIGN EQU *«, t00=0x0013, t01=0x0050}
0x1e06…1e2c Head {h00=0x0022, h01=0x0050, text=»ARG1 LDK A7,/30 GET ELEMNT EL3«, t00=0x0013, t01=0x0064}
0x1e2c…1e42 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0013, t01=0x008a}
0x1e42…1e70 Head {h00=0x002a, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT DATA FOR EL3«, t00=0x0013, t01=0x00a0}
0x1e70…1e9e Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEG. NUMBER OF BYTES TIMES 2«, t00=0x0013, t01=0x00ce}
0x1e9e…1eca Head {h00=0x0028, h01=0x0050, text=» ST A1,10,A14 STORE COUNTER ON STACK«, t00=0x0013, t01=0x00fc}
0x1eca…1ef0 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:MOV MOVE EL2 TO EL4 «, t00=0x0013, t01=0x0128}
0x1ef0…1f04 Head {h00=0x0010, h01=0x0050, text=» DATA /4020 «, t00=0x0013, t01=0x014e}
0x1f04…1f18 Head {h00=0x0010, h01=0x0050, text=»ARG2 EQU *-2«, t00=0x0013, t01=0x0162}
0x1f18…1f4a Head {h00=0x002e, h01=0x0050, text=» LDKL A7,/1040 GET ADDRESS TO EL1 AND EL4 «, t00=0x0013, t01=0x0176}
0x1f4a…1f5e Head {h00=0x0010, h01=0x0050, text=»ARG3 EQU *-2«, t00=0x0014, t01=0x0018}
0x1f5e…1f8c Head {h00=0x002a, h01=0x0050, text=» CF A14,T:OPS GET DATA FOR EL1 AND EL4«, t00=0x0014, t01=0x002c}
0x1f8c…1f98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x005a}
0x1f98…1fae Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0014, t01=0x0066}
0x1fae…1fdc Head {h00=0x002a, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT DATA FOR EL3«, t00=0x0014, t01=0x007c}
0x1fdc…200a Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEG. NUMBER OF BYTES TIMES 2«, t00=0x0014, t01=0x00aa}
0x200a…2036 Head {h00=0x0028, h01=0x0050, text=» ST A1,10,A14 STORE COUNTER ON STACK«, t00=0x0014, t01=0x00d8}
0x2036…205c Head {h00=0x0022, h01=0x0050, text=» CF A14,M:MOV MOVE EL2 TO EL4 «, t00=0x0014, t01=0x0104}
0x205c…2070 Head {h00=0x0010, h01=0x0050, text=» DATA /4020 «, t00=0x0014, t01=0x012a}
0x2070…2084 Head {h00=0x0010, h01=0x0050, text=»ARG2 EQU *-2«, t00=0x0014, t01=0x013e}
0x2084…20b6 Head {h00=0x002e, h01=0x0050, text=» LDKL A7,/1040 GET ADDRESS TO EL1 AND EL4 «, t00=0x0014, t01=0x0152}
0x20b6…20ca Head {h00=0x0010, h01=0x0050, text=»ARG3 EQU *-2«, t00=0x0014, t01=0x0184}
0x20ca…20f8 Head {h00=0x002a, h01=0x0050, text=» CF A14,M:OPS GET DATA FOR EL1 AND EL4«, t00=0x0015, t01=0x0008}
0x20f8…2104 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0036}
0x2104…2136 Head {h00=0x002e, h01=0x0050, text=» ST A6,6,A14 STORE ADDRESS OF EL1 ON STACK«, t00=0x0015, t01=0x0042}
0x2136…216a Head {h00=0x0030, h01=0x0050, text=» ST A10,8,A14 STORE ADDRESS OF EL4 ON STACK «, t00=0x0015, t01=0x0074}
0x216a…218e Head {h00=0x0020, h01=0x0050, text=» LCR A1,A6 GET SIGN BYTE EL1«, t00=0x0015, t01=0x00a8}
0x218e…21a8 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A1 COPY A1«, t00=0x0015, t01=0x00cc}
0x21a8…21ce Head {h00=0x0022, h01=0x0050, text=» LCR A3,A10 GET SIGN BYTE EL4 «, t00=0x0015, t01=0x00e6}
0x21ce…21ea Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 ADD BYTES«, t00=0x0015, t01=0x010c}
0x21ea…2210 Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F0 MASK AWAY SIGN EL1«, t00=0x0015, t01=0x0128}
0x2210…2236 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/F0 MASK AWAY SIGN EL4«, t00=0x0015, t01=0x014e}
0x2236…225a Head {h00=0x0020, h01=0x0050, text=» ADK A1,/B SET POS SIGN EL1 «, t00=0x0015, t01=0x0174}
0x225a…227e Head {h00=0x0020, h01=0x0050, text=» ADK A3,/B SET POS. SIGN EL4«, t00=0x0016, t01=0x0008}
0x227e…22a4 Head {h00=0x0022, h01=0x0050, text=» SCR A1,A6 STORE POS SIGN EL1 «, t00=0x0016, t01=0x002c}
0x22a4…22cc Head {h00=0x0024, h01=0x0050, text=» SCR A3,A10 STORE POS. SIGN EL4 «, t00=0x0016, t01=0x0052}
0x22cc…22ee Head {h00=0x001e, h01=0x0050, text=» LDK A1,/B LOAD PLUS SIGN «, t00=0x0016, t01=0x007a}
0x22ee…2318 Head {h00=0x0026, h01=0x0050, text=» SRC A2,2 SHIFT BIT 14 TO SIGN BIT«, t00=0x0016, t01=0x009c}
0x2318…233e Head {h00=0x0022, h01=0x0050, text=» RF(N) SIG100 JUMP IF BIT 14=1«, t00=0x0016, t01=0x00c6}
0x233e…2360 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/D LOAD MINUS SIGN«, t00=0x0016, t01=0x00ec}
0x2360…2374 Head {h00=0x0010, h01=0x0050, text=»SIG100 EQU *«, t00=0x0016, t01=0x010e}
0x2374…239c Head {h00=0x0024, h01=0x0050, text=» ST A1,12,A14 STORE RESULT SIGN «, t00=0x0016, t01=0x0122}
0x239c…23b4 Head {h00=0x0014, h01=0x0050, text=»RETUR ABL RETMMM«, t00=0x0016, t01=0x014a}
0x23b4…23be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0162}
0x23be…23c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x016c}
0x23c8…23f6 Head {h00=0x002a, h01=0x0050, text=»* T:BRK RETURNS CONTROL TO MONITOR AND«, t00=0x0016, t01=0x0176}
0x23f6…2420 Head {h00=0x0026, h01=0x0050, text=»* COMPUTES ARGUMENTS FOR ALL CALLS«, t00=0x0017, t01=0x0014}
0x2420…242a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003e}
0x242a…243e Head {h00=0x0010, h01=0x0050, text=»M:BRK EQU * «, t00=0x0017, t01=0x0048}
0x243e…2454 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0017, t01=0x005c}
0x2454…2468 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0017, t01=0x0072}
0x2468…247e Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0017, t01=0x0086}
0x247e…248a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x009c}
0x248a…24b2 Head {h00=0x0024, h01=0x0050, text=»T:BRK LKM RETURN VIA DISPATCHER«, t00=0x0017, t01=0x00a8}
0x24b2…24c2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0017, t01=0x00d0}
0x24c2…24e2 Head {h00=0x001c, h01=0x0050, text=» LD A1,16,A14 GET SECOND«, t00=0x0017, t01=0x00e0}
0x24e2…2506 Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A1 - ARGUMENT /3040«, t00=0x0017, t01=0x0100}
0x2506…2532 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A1 GET FIRST ARGUMENT /1020«, t00=0x0017, t01=0x0124}
0x2532…2546 Head {h00=0x0010, h01=0x0050, text=» ST A1,ARG2 «, t00=0x0017, t01=0x0150}
0x2546…255a Head {h00=0x0010, h01=0x0050, text=» ST A2,DI005«, t00=0x0017, t01=0x0164}
0x255a…256e Head {h00=0x0010, h01=0x0050, text=» ST A2,DI015«, t00=0x0017, t01=0x0178}
0x256e…2582 Head {h00=0x0010, h01=0x0050, text=» ST A2,DI010«, t00=0x0017, t01=0x018c}
0x2582…259c Head {h00=0x0016, h01=0x0050, text=» SC A2,DI010 /4040«, t00=0x0018, t01=0x0010}
0x259c…25b0 Head {h00=0x0010, h01=0x0050, text=» SC A2,MU60 «, t00=0x0018, t01=0x002a}
0x25b0…25c4 Head {h00=0x0010, h01=0x0050, text=» SC A2,DI120«, t00=0x0018, t01=0x003e}
0x25c4…25da Head {h00=0x0012, h01=0x0050, text=» SC A2,DI140-1«, t00=0x0018, t01=0x0052}
0x25da…25f0 Head {h00=0x0012, h01=0x0050, text=» SC A2,ARG3+1 «, t00=0x0018, t01=0x0068}
0x25f0…2604 Head {h00=0x0010, h01=0x0050, text=» SC A2,ARG2 «, t00=0x0018, t01=0x007e}
0x2604…261e Head {h00=0x0016, h01=0x0050, text=» SRL A2,8 A2=/0030«, t00=0x0018, t01=0x0092}
0x261e…263e Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/FF00 A1=/1000 «, t00=0x0018, t01=0x00ac}
0x263e…265a Head {h00=0x0018, h01=0x0050, text=» ADR A2,A1 A2=/1030 «, t00=0x0018, t01=0x00cc}
0x265a…266e Head {h00=0x0010, h01=0x0050, text=» SC A2,MU70 «, t00=0x0018, t01=0x00e8}
0x266e…2682 Head {h00=0x0010, h01=0x0050, text=» SC A2,DI040«, t00=0x0018, t01=0x00fc}
0x2682…2696 Head {h00=0x0010, h01=0x0050, text=» SC A2,DI060«, t00=0x0018, t01=0x0110}
0x2696…26aa Head {h00=0x0010, h01=0x0050, text=» SC A2,DI110«, t00=0x0018, t01=0x0124}
0x26aa…26c0 Head {h00=0x0012, h01=0x0050, text=» SC A2,ARG1+1 «, t00=0x0018, t01=0x0138}
0x26c0…26d4 Head {h00=0x0010, h01=0x0050, text=» ST A2,MU20 «, t00=0x0018, t01=0x014e}
0x26d4…26e8 Head {h00=0x0010, h01=0x0050, text=» ST A2,MU40 «, t00=0x0018, t01=0x0162}
0x26e8…26fc Head {h00=0x0010, h01=0x0050, text=» ST A2,DI030«, t00=0x0018, t01=0x0176}
0x26fc…2710 Head {h00=0x0010, h01=0x0050, text=» ST A2,DI090«, t00=0x0018, t01=0x018a}
0x2710…2724 Head {h00=0x0010, h01=0x0050, text=» ST A2,DI100«, t00=0x0019, t01=0x000e}
0x2724…2740 Head {h00=0x0018, h01=0x0050, text=» ECR A2,A2 A2=/3010 «, t00=0x0019, t01=0x0022}
0x2740…2754 Head {h00=0x0010, h01=0x0050, text=» ST A2,MU10 «, t00=0x0019, t01=0x003e}
0x2754…276a Head {h00=0x0012, h01=0x0050, text=» SC A2,DI140-2«, t00=0x0019, t01=0x0052}
0x276a…277e Head {h00=0x0010, h01=0x0050, text=» SC A2,ARG3 «, t00=0x0019, t01=0x0068}
0x277e…2790 Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0019, t01=0x007c}
0x2790…279c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x008e}
0x279c…27a0 Head {h00=0x4004, h01=0x0000}
0x27a0…27a4 00 19 00 9a ┆ ┆
0x27a4…27ac (26, 1, 8) 20 04 00 00 00 1a 00 04 ┆ ┆
0x27ac…27fc (27, 0, 400) 20 42 59 54 45 53 00 12 01 80 00 12 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 20 00 13 00 0e 00 10 00 50 5c 43 46 5c 41 35 2c 4c 44 3a 52 43 00 13 00 24 00 20 00 50 5c 4c 44 5c 41 31 2c 44 57 54 41 33 2c 41 36 5c 44 52 49 56 45 20 49 4e ┆ BYTES P CF A5,FD:REA P CF A5,LD:RC $ P LD A1,DWTA3,A6 DRIVE IN┆
0x27fc…284c 44 45 58 20 00 13 00 38 00 10 00 50 5c 4c 44 4b 4c 5c 41 34 2c 42 55 46 00 13 00 5c 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 33 34 00 13 00 70 00 10 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 34 20 00 13 00 82 00 10 00 50 5c 43 57 4b 5c 41 32 2c 27 44 ┆DEX 8 P LDKL A4,BUF P ADK A4,34 p P LDR* A2,A4 P CWK A2,'D┆
0x284c…289c 54 27 00 13 00 96 00 28 00 50 5c 52 46 28 4e 45 29 5c 46 44 3a 31 31 30 5c 49 42 4d 20 4c 41 42 45 4c 20 50 52 45 41 53 53 55 4d 45 44 20 00 13 00 aa 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 32 20 00 13 00 d6 00 10 00 50 5c 4c 44 52 2a 5c 41 32 ┆T' ( P RF(NE) FD:110 IBM LABEL PREASSUMED P ADK A4,2 P LDR* A2┆
0x289c…28ec 2c 41 34 20 00 13 00 e8 00 10 00 50 5c 43 57 4b 5c 41 32 2c 27 4f 53 27 00 13 00 fc 00 1c 00 50 5c 52 46 28 4e 45 29 5c 46 44 3a 31 31 30 5c 49 42 4d 20 4c 41 42 45 4c 00 13 01 10 00 08 00 50 5c 58 49 46 00 13 01 30 00 06 00 50 2a 20 00 13 ┆,A4 P CWK A2,'OS' P RF(NE) FD:110 IBM LABEL P XIF 0 P* ┆
0x28ec…293c 01 3c 00 18 00 50 2a 20 20 52 45 41 44 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 13 01 46 00 06 00 50 2a 20 00 13 01 62 00 14 00 50 5c 4c 44 4b 5c 41 33 2c 38 5c 4c 45 4e 47 54 48 00 13 01 6c 00 12 00 50 5c 4c 44 4b 5c 41 32 2c 30 5c 42 49 ┆ < P* READ VOLUME NAME F P* b P LDK A3,8 LENGTH l P LDK A2,0 BI┆
0x293c…298c (28, 0, 400) 4f 20 00 13 01 84 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 14 00 0a 00 0e 00 50 5c 43 31 52 5c 41 31 2c 41 31 00 14 00 1c 00 16 00 50 5c 41 4e 53 5c 41 31 2c 44 57 54 4c 41 42 2c 41 36 20 00 14 00 2e 00 0e 00 50 5c 52 46 5c 46 44 3a 31 ┆O P IFT IBM=1 P C1R A1,A1 P ANS A1,DWTLAB,A6 . P RF FD:1┆
0x298c…29dc 32 30 00 14 00 48 00 06 00 50 2a 20 00 14 00 5a 00 1c 00 50 46 44 3a 31 31 30 5c 4c 44 4b 5c 41 33 2c 31 30 5c 4c 45 4e 47 54 48 20 00 14 00 64 00 14 00 50 5c 4c 44 4b 5c 41 32 2c 2f 33 30 5c 42 49 4f 20 00 14 00 84 00 28 00 50 5c 4f 52 53 ┆20 H P* Z PFD:110 LDK A3,10 LENGTH d P LDK A2,/30 BIO ( P ORS┆
0x29dc…2a2c 5c 41 31 2c 44 57 54 4c 41 42 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 49 42 4d 20 44 49 53 43 20 00 14 00 9c 00 10 00 50 46 44 3a 31 32 30 5c 45 51 55 5c 2a 00 14 00 c8 00 08 00 50 5c 58 49 46 00 14 00 dc 00 20 00 50 5c 4c 44 4b 4c 5c 41 34 ┆ A1,DWTLAB,A6 INDICATE IBM DISC PFD:120 EQU * P XIF P LDKL A4┆
0x2a2c…2a7c 2c 42 55 46 5c 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 14 00 e8 00 12 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 20 00 14 01 0c 00 10 00 50 5c 43 46 5c 41 35 2c 4c 44 3a 52 43 00 14 01 22 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 32 20 ┆,BUF BUFFER ADDRESS P CF A5,FD:REA P CF A5,LD:RC " P LDK A1,2 ┆
0x2a7c…2acc 00 14 01 36 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 14 01 48 00 14 00 50 5c 4c 44 5c 41 32 2c 44 57 54 4c 41 42 2c 41 36 00 14 01 5a 00 14 00 50 5c 41 4e 5c 41 32 2c 44 57 54 41 33 2c 41 36 20 00 14 01 72 00 1c 00 50 5c 52 46 28 5a 29 ┆ 6 P IFT IBM=1 H P LD A2,DWTLAB,A6 Z P AN A2,DWTA3,A6 r P RF(Z)┆