|
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: 7622 (0x1dc6)
Notes: pts_type(SC)
Names: »WSMCAL.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WSMCAL.SC«
IDENT WSMCAL W,REL=2.3,841201,870155940230 ******************************************************************* * * W S M C A L * = = = = = = * * THIS ROUTINE IS USED TO CALCULATE MULTIPLICATIONS, DIVISIONS * AND SHIFTS TO AVOID THE USE OF THE SLOW CREDIT INSTRUCTIONS * MUL AND DIV. * * THE ROUTINES FOR THIS ARE: * * * W X M U L MULTIPLY TWO BINARIES * * W X D I V DIVIDE TWO BINARIES * * W X S L R SHIFT BIN LOGICAL RIGHT * * W X S L L SHIFT BIN LOGICAL LEFT * * W X C 1 R ONES COMPLEMENTE ON A BINARY * ******************************************************************* EJECT ENTRY WXMUL ENTRY WXSLR ENTRY WXSLL ENTRY WXDIV ENTRY WXC1R EXTRN I:EVA0 EXTRN I:RT1 EJECT ************************************************************* * * W X M U L * * MULTIPLY TWO BINARIES * * CALL INTERFACE: * * CALL WXMUL,<OPER1>,<OPER2>,<RESULT> * * WHERE * * <OPER1> = OPERAND 1 * <OPER2> = OPERAND 2 * <RESULT> = RESULT = OPER1 * OPER2 * ***************************************************************** EJECT * * GET THE PARAMETERS * WXMUL EQU * CF A14,PARMS * * PERFORM THE MULTIPLICATION * * A4 = OPERAND 1 * A6 = OPERAND 2 * A9 = ADDRESS TO RESULT * SUR A1,A1 LDR A2,A4 MUR A6 SLL A1,15 GET THE MOST SIGNIFICANT BIT ORR A2,A1 INSERT INTO RESULT STR A2,A9 RETURN EQU * ABL I:RT1 EJECT ************************************************************* * * W X D I V * * DIVIDE TWO BINARIES * * CALL INTERFACE: * * CALL WXDIV,<DIVIDEND>,<DIVISOR>,<RESULT> * * WHERE * * <DIVIDEND> = DIVIDEND * <DIVISOR> = DIVISOR * <RESULT> = RESULT = DIVIDEND / DIVISOR * **************************************************************** EJECT * * GET THE PARAMETERS * WXDIV EQU * CF A14,PARMS * * PERFORM THE DIVISION * * A4 = DIVIDEND * A6 = DIVISOR * A9 = ADDRESS TO RESULT * LDR A1,A4 SRL A1,15 MOST SIGNIFICANT BIT LDR A2,A4 ANKL A2,/7FFF CLEAR MOST SIGNIFICANT BIT DVR A6 STR A2,A9 RB RETURN EJECT ************************************************************* * * W X S L R * * SHIFT A BIN LOGICAL RIGHT * * CALL INTERFACE: * * CALL WXSLR,<BIN1>,<BIN2>,<RESULT> * * WHERE * * <BIN1> = BINARY YOU WISH TO SHIFT RIGHT * <BIN2> = NO. OF SHIFT RIGHT 1-15 * <RESULT>= RESULT AFTER SLR EXECUTED * **************************************************************** EJECT * * SHIFT LOGICAL RIGHT * SRLINS SRL A4,0 * * GET THE PARAMETERS * WXSLR EQU * CF A14,PARMS * * PERFORM THE SHIFT * * A4 = BIN1 * A6 = BIN2 * A9 = ADDRESS TO RESULT * ANK A6,/F A6:=0-15 LD A2,SRLINS A2= INSTRUCTION TO PATCH ORR A2,A6 CREATE INSTRUCTION ST A2,INS1 EXK 0 INS1 EQU *-2 STR A4,A9 RB RETURN EJECT ************************************************************* * * W X S L L * * SHIFT A BIN LOGICAL LEFT * * CALL INTERFACE: * * CALL WXSLL,<BIN1>,<BIN2>,<RESULT> * * WHERE * * <BIN1> = BINARY YOU WISH TO SHIFT LEFT * <BIN2> = NO. OF SHIFT LEFT 1-15 * <RESULT>= RESULT AFTER SLL EXECUTED * **************************************************************** EJECT * * SHIFT LOGICAL LEFT * SLLINS SLL A4,0 * * GET THE PARAMETERS * WXSLL EQU * CF A14,PARMS * * PERFORM THE SHIFT * * A4 = BIN1 * A6 = BIN2 * A9 = ADDRESS TO RESULT * ANK A6,/F A6:=0-15 LD A2,SLLINS A2= INSTRUCTION TO PATCH ORR A2,A6 CREATE INSTRUCTION ST A2,INS2 EXK 0 INS2 EQU *-2 STR A4,A9 RB RETURN EJECT ************************************************************* * * W X C 1 R * * ONES COMPLEMENT ON A BINARY * * CALL INTERFACE: * * CALL WXC1R,<BIN> * * WHERE * * <BIN> = BINARY YOU WISH TO ONES-COMPLEMENT * ************************************************************* WXC1R EQU * CF A14,I:EVA0 GET PARAM. C1RS A9 ONES COMPLEMENTE RB RETURN EJECT * * GET THE PARAMETERS * PARMS EQU * CF A14,I:EVA0 GET PARM1 LDR* A4,A9 CF A14,I:EVA0 GET PARM2 LDR* A6,A9 CF A14,I:EVA0 GET PARM3 RTN A14 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT WSMCAL W,REL=2.3,841201,870155940230 «, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0044 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0040}
0x0044…0090 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0000, t01=0x0048}
0x0090…009a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0094}
0x009a…00b2 Head {h00=0x0014, h01=0x0050, text=»* W S M C A L «, t00=0x0000, t01=0x009e}
0x00b2…00ca Head {h00=0x0014, h01=0x0050, text=»* = = = = = = «, t00=0x0000, t01=0x00b6}
0x00ca…00d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ce}
0x00d4…011c Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE IS USED TO CALCULATE MULTIPLICATIONS, DIVISIONS«, t00=0x0000, t01=0x00d8}
0x011c…0164 Head {h00=0x0044, h01=0x0050, text=»* AND SHIFTS TO AVOID THE USE OF THE SLOW CREDIT INSTRUCTIONS «, t00=0x0000, t01=0x0120}
0x0164…017c Head {h00=0x0014, h01=0x0050, text=»* MUL AND DIV.«, t00=0x0000, t01=0x0168}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…01ac Head {h00=0x0022, h01=0x0050, text=»* THE ROUTINES FOR THIS ARE:«, t00=0x0000, t01=0x018a}
0x01ac…01b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0020}
0x01b6…01c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002a}
0x01c0…01f0 Head {h00=0x002c, h01=0x0050, text=»* W X M U L MULTIPLY TWO BINARIES«, t00=0x0001, t01=0x0034}
0x01f0…01fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0064}
0x01fa…0228 Head {h00=0x002a, h01=0x0050, text=»* W X D I V DIVIDE TWO BINARIES«, t00=0x0001, t01=0x006e}
0x0228…0232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009c}
0x0232…0264 Head {h00=0x002e, h01=0x0050, text=»* W X S L R SHIFT BIN LOGICAL RIGHT«, t00=0x0001, t01=0x00a6}
0x0264…026e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d8}
0x026e…02a0 Head {h00=0x002e, h01=0x0050, text=»* W X S L L SHIFT BIN LOGICAL LEFT «, t00=0x0001, t01=0x00e2}
0x02a0…02aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02aa…02e2 Head {h00=0x0034, h01=0x0050, text=»* W X C 1 R ONES COMPLEMENTE ON A BINARY «, t00=0x0001, t01=0x011e}
0x02e2…02ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0156}
0x02ec…0338 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0001, t01=0x0160}
0x0338…0346 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x001c}
0x0346…034e Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x002a}
0x034e…0362 Head {h00=0x0010, h01=0x0050, text=» ENTRY WXMUL«, t00=0x0002, t01=0x0032}
0x0362…0376 Head {h00=0x0010, h01=0x0050, text=» ENTRY WXSLR«, t00=0x0002, t01=0x0046}
0x0376…038a Head {h00=0x0010, h01=0x0050, text=» ENTRY WXSLL«, t00=0x0002, t01=0x005a}
0x038a…039e Head {h00=0x0010, h01=0x0050, text=» ENTRY WXDIV«, t00=0x0002, t01=0x006e}
0x039e…03b2 Head {h00=0x0010, h01=0x0050, text=» ENTRY WXC1R«, t00=0x0002, t01=0x0082}
0x03b2…03ba Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0096}
0x03ba…03d0 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0002, t01=0x009e}
0x03d0…03e4 Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x0002, t01=0x00b4}
0x03e4…03f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00c8}
0x03f2…03fa Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00d6}
0x03fa…0440 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0002, t01=0x00de}
0x0440…044a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0124}
0x044a…0460 Head {h00=0x0012, h01=0x0050, text=»* W X M U L «, t00=0x0002, t01=0x012e}
0x0460…046a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0144}
0x046a…048c Head {h00=0x001e, h01=0x0050, text=»* MULTIPLY TWO BINARIES «, t00=0x0002, t01=0x014e}
0x048c…0496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0170}
0x0496…04b2 Head {h00=0x0018, h01=0x0050, text=»* CALL INTERFACE: «, t00=0x0002, t01=0x017a}
0x04b2…04bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04bc…04f0 Head {h00=0x0030, h01=0x0050, text=»* CALL WXMUL,<OPER1>,<OPER2>,<RESULT>«, t00=0x0003, t01=0x0012}
0x04f0…04fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0046}
0x04fa…050c Head {h00=0x000e, h01=0x0050, text=»* WHERE «, t00=0x0003, t01=0x0050}
0x050c…0516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0062}
0x0516…0538 Head {h00=0x001e, h01=0x0050, text=»* <OPER1> = OPERAND 1«, t00=0x0003, t01=0x006c}
0x0538…055a Head {h00=0x001e, h01=0x0050, text=»* <OPER2> = OPERAND 2«, t00=0x0003, t01=0x008e}
0x055a…058a Head {h00=0x002c, h01=0x0050, text=»* <RESULT> = RESULT = OPER1 * OPER2 «, t00=0x0003, t01=0x00b0}
0x058a…0594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e0}
0x0594…05de Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0003, t01=0x00ea}
0x05de…05ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0134}
0x05ec…05f4 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0142}
0x05f4…05fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014a}
0x05fe…061c Head {h00=0x001a, h01=0x0050, text=»* GET THE PARAMETERS«, t00=0x0003, t01=0x0154}
0x061c…0626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0172}
0x0626…062e Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x017c}
0x062e…0642 Head {h00=0x0010, h01=0x0050, text=»WXMUL EQU * «, t00=0x0003, t01=0x0184}
0x0642…0658 Head {h00=0x0012, h01=0x0050, text=» CF A14,PARMS «, t00=0x0004, t01=0x0008}
0x0658…0660 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x001e}
0x0660…066a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0026}
0x066a…0690 Head {h00=0x0022, h01=0x0050, text=»* PERFORM THE MULTIPLICATION«, t00=0x0004, t01=0x0030}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x069a…06b4 Head {h00=0x0016, h01=0x0050, text=»* A4 = OPERAND 1«, t00=0x0004, t01=0x0060}
0x06b4…06ce Head {h00=0x0016, h01=0x0050, text=»* A6 = OPERAND 2«, t00=0x0004, t01=0x007a}
0x06ce…06f0 Head {h00=0x001e, h01=0x0050, text=»* A9 = ADDRESS TO RESULT«, t00=0x0004, t01=0x0094}
0x06f0…06fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b6}
0x06fa…0702 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00c0}
0x0702…0714 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A1«, t00=0x0004, t01=0x00c8}
0x0714…0726 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0004, t01=0x00da}
0x0726…0736 Head {h00=0x000c, h01=0x0050, text=» MUR A6 «, t00=0x0004, t01=0x00ec}
0x0736…0766 Head {h00=0x002c, h01=0x0050, text=» SLL A1,15 GET THE MOST SIGNIFICANT BIT «, t00=0x0004, t01=0x00fc}
0x0766…078c Head {h00=0x0022, h01=0x0050, text=» ORR A2,A1 INSERT INTO RESULT «, t00=0x0004, t01=0x012c}
0x078c…079e Head {h00=0x000e, h01=0x0050, text=» STR A2,A9«, t00=0x0004, t01=0x0152}
0x079e…07a6 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0164}
0x07a6…07ba Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x0004, t01=0x016c}
0x07ba…07cc Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x0004, t01=0x0180}
0x07cc…07da (5, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0004}
0x07da…07e2 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0012}
0x07e2…0828 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0005, t01=0x001a}
0x0828…0832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0060}
0x0832…0848 Head {h00=0x0012, h01=0x0050, text=»* W X D I V «, t00=0x0005, t01=0x006a}
0x0848…0852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0080}
0x0852…0872 Head {h00=0x001c, h01=0x0050, text=»* DIVIDE TWO BINARIES «, t00=0x0005, t01=0x008a}
0x0872…087c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x087c…0898 Head {h00=0x0018, h01=0x0050, text=»* CALL INTERFACE: «, t00=0x0005, t01=0x00b4}
0x0898…08a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d0}
0x08a2…08dc Head {h00=0x0036, h01=0x0050, text=»* CALL WXDIV,<DIVIDEND>,<DIVISOR>,<RESULT> «, t00=0x0005, t01=0x00da}
0x08dc…08e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0114}
0x08e6…08f8 Head {h00=0x000e, h01=0x0050, text=»* WHERE «, t00=0x0005, t01=0x011e}
0x08f8…0902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0130}
0x0902…0926 Head {h00=0x0020, h01=0x0050, text=»* <DIVIDEND> = DIVIDEND «, t00=0x0005, t01=0x013a}
0x0926…0948 Head {h00=0x001e, h01=0x0050, text=»* <DIVISOR> = DIVISOR«, t00=0x0005, t01=0x015e}
0x0948…097e Head {h00=0x0032, h01=0x0050, text=»* <RESULT> = RESULT = DIVIDEND / DIVISOR«, t00=0x0005, t01=0x0180}
0x097e…0988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x0988…09d0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0006, t01=0x0030}
0x09d0…09de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0078}
0x09de…09e6 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0086}
0x09e6…09f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008e}
0x09f0…0a0e Head {h00=0x001a, h01=0x0050, text=»* GET THE PARAMETERS«, t00=0x0006, t01=0x0098}
0x0a0e…0a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b6}
0x0a18…0a20 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00c0}
0x0a20…0a34 Head {h00=0x0010, h01=0x0050, text=»WXDIV EQU * «, t00=0x0006, t01=0x00c8}
0x0a34…0a4a Head {h00=0x0012, h01=0x0050, text=» CF A14,PARMS «, t00=0x0006, t01=0x00dc}
0x0a4a…0a52 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00f2}
0x0a52…0a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fa}
0x0a5c…0a7c Head {h00=0x001c, h01=0x0050, text=»* PERFORM THE DIVISION«, t00=0x0006, t01=0x0104}
0x0a7c…0a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0124}
0x0a86…0aa0 Head {h00=0x0016, h01=0x0050, text=»* A4 = DIVIDEND «, t00=0x0006, t01=0x012e}
0x0aa0…0ab8 Head {h00=0x0014, h01=0x0050, text=»* A6 = DIVISOR«, t00=0x0006, t01=0x0148}
0x0ab8…0ada Head {h00=0x001e, h01=0x0050, text=»* A9 = ADDRESS TO RESULT«, t00=0x0006, t01=0x0160}
0x0ada…0ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0182}
0x0ae4…0aec Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x018c}
0x0aec…0afe (7, 0, 398) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0007, t01=0x0004}
0x0afe…0b26 Head {h00=0x0024, h01=0x0050, text=» SRL A1,15 MOST SIGNIFICANT BIT «, t00=0x0007, t01=0x0016}
0x0b26…0b38 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0007, t01=0x003e}
0x0b38…0b6a Head {h00=0x002e, h01=0x0050, text=» ANKL A2,/7FFF CLEAR MOST SIGNIFICANT BIT «, t00=0x0007, t01=0x0050}
0x0b6a…0b7a Head {h00=0x000c, h01=0x0050, text=» DVR A6 «, t00=0x0007, t01=0x0082}
0x0b7a…0b8c Head {h00=0x000e, h01=0x0050, text=» STR A2,A9«, t00=0x0007, t01=0x0092}
0x0b8c…0b9e Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x0007, t01=0x00a4}
0x0b9e…0bac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b6}
0x0bac…0bb4 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00c4}
0x0bb4…0bfa Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x00cc}
0x0bfa…0c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0112}
0x0c04…0c1a Head {h00=0x0012, h01=0x0050, text=»* W X S L R «, t00=0x0007, t01=0x011c}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0132}
0x0c24…0c4a Head {h00=0x0022, h01=0x0050, text=»* SHIFT A BIN LOGICAL RIGHT «, t00=0x0007, t01=0x013c}
0x0c4a…0c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0162}
0x0c54…0c70 Head {h00=0x0018, h01=0x0050, text=»* CALL INTERFACE: «, t00=0x0007, t01=0x016c}
0x0c70…0c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0188}
0x0c7a…0cac (8, 0, 400) Head {h00=0x002e, h01=0x0050, text=»* CALL WXSLR,<BIN1>,<BIN2>,<RESULT>«, t00=0x0008, t01=0x0004}
0x0cac…0cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0036}
0x0cb6…0cc8 Head {h00=0x000e, h01=0x0050, text=»* WHERE «, t00=0x0008, t01=0x0040}
0x0cc8…0cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0052}
0x0cd2…0d08 Head {h00=0x0032, h01=0x0050, text=»* <BIN1> = BINARY YOU WISH TO SHIFT RIGHT«, t00=0x0008, t01=0x005c}
0x0d08…0d38 Head {h00=0x002c, h01=0x0050, text=»* <BIN2> = NO. OF SHIFT RIGHT 1-15 «, t00=0x0008, t01=0x0092}
0x0d38…0d6a Head {h00=0x002e, h01=0x0050, text=»* <RESULT>= RESULT AFTER SLR EXECUTED «, t00=0x0008, t01=0x00c2}
0x0d6a…0d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f4}
0x0d74…0dbc Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0008, t01=0x00fe}
0x0dbc…0dca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0146}
0x0dca…0dd2 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0154}
0x0dd2…0ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015c}
0x0ddc…0dfc Head {h00=0x001c, h01=0x0050, text=»* SHIFT LOGICAL RIGHT «, t00=0x0008, t01=0x0166}
0x0dfc…0e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e06…0e0e Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0190}
0x0e0e…0e26 Head {h00=0x0014, h01=0x0050, text=»SRLINS SRL A4,0 «, t00=0x0009, t01=0x0008}
0x0e26…0e2e Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0020}
0x0e2e…0e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0028}
0x0e38…0e56 Head {h00=0x001a, h01=0x0050, text=»* GET THE PARAMETERS«, t00=0x0009, t01=0x0032}
0x0e56…0e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0050}
0x0e60…0e68 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x005a}
0x0e68…0e7c Head {h00=0x0010, h01=0x0050, text=»WXSLR EQU * «, t00=0x0009, t01=0x0062}
0x0e7c…0e92 Head {h00=0x0012, h01=0x0050, text=» CF A14,PARMS «, t00=0x0009, t01=0x0076}
0x0e92…0e9a Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x008c}
0x0e9a…0ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0094}
0x0ea4…0ec2 Head {h00=0x001a, h01=0x0050, text=»* PERFORM THE SHIFT «, t00=0x0009, t01=0x009e}
0x0ec2…0ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00bc}
0x0ecc…0ee2 Head {h00=0x0012, h01=0x0050, text=»* A4 = BIN1 «, t00=0x0009, t01=0x00c6}
0x0ee2…0ef8 Head {h00=0x0012, h01=0x0050, text=»* A6 = BIN2 «, t00=0x0009, t01=0x00dc}
0x0ef8…0f1a Head {h00=0x001e, h01=0x0050, text=»* A9 = ADDRESS TO RESULT«, t00=0x0009, t01=0x00f2}
0x0f1a…0f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0114}
0x0f24…0f2c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x011e}
0x0f2c…0f48 Head {h00=0x0018, h01=0x0050, text=» ANK A6,/F A6:=0-15 «, t00=0x0009, t01=0x0126}
0x0f48…0f76 Head {h00=0x002a, h01=0x0050, text=» LD A2,SRLINS A2= INSTRUCTION TO PATCH«, t00=0x0009, t01=0x0142}
0x0f76…0f9c Head {h00=0x0022, h01=0x0050, text=» ORR A2,A6 CREATE INSTRUCTION «, t00=0x0009, t01=0x0170}
0x0f9c…0fb0 Head {h00=0x0010, h01=0x0050, text=» ST A2,INS1 «, t00=0x000a, t01=0x0008}
0x0fb0…0fbe Head {h00=0x000a, h01=0x0050, text=» EXK 0«, t00=0x000a, t01=0x001c}
0x0fbe…0fd2 Head {h00=0x0010, h01=0x0050, text=»INS1 EQU *-2«, t00=0x000a, t01=0x002a}
0x0fd2…0fe4 Head {h00=0x000e, h01=0x0050, text=» STR A4,A9«, t00=0x000a, t01=0x003e}
0x0fe4…0ff6 Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x000a, t01=0x0050}
0x0ff6…1004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0062}
0x1004…100c Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0070}
0x100c…1052 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x000a, t01=0x0078}
0x1052…105c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00be}
0x105c…1072 Head {h00=0x0012, h01=0x0050, text=»* W X S L L «, t00=0x000a, t01=0x00c8}
0x1072…107c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x107c…10a0 Head {h00=0x0020, h01=0x0050, text=»* SHIFT A BIN LOGICAL LEFT«, t00=0x000a, t01=0x00e8}
0x10a0…10aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010c}
0x10aa…10c6 Head {h00=0x0018, h01=0x0050, text=»* CALL INTERFACE: «, t00=0x000a, t01=0x0116}
0x10c6…10d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0132}
0x10d0…1102 Head {h00=0x002e, h01=0x0050, text=»* CALL WXSLL,<BIN1>,<BIN2>,<RESULT>«, t00=0x000a, t01=0x013c}
0x1102…110c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016e}
0x110c…111e Head {h00=0x000e, h01=0x0050, text=»* WHERE «, t00=0x000a, t01=0x0178}
0x111e…1128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018a}
0x1128…115e (11, 0, 398) Head {h00=0x0032, h01=0x0050, text=»* <BIN1> = BINARY YOU WISH TO SHIFT LEFT «, t00=0x000b, t01=0x0004}
0x115e…118c Head {h00=0x002a, h01=0x0050, text=»* <BIN2> = NO. OF SHIFT LEFT 1-15«, t00=0x000b, t01=0x003a}
0x118c…11be Head {h00=0x002e, h01=0x0050, text=»* <RESULT>= RESULT AFTER SLL EXECUTED «, t00=0x000b, t01=0x0068}
0x11be…11c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009a}
0x11c8…1210 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000b, t01=0x00a4}
0x1210…121e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ec}
0x121e…1226 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00fa}
0x1226…1230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0102}
0x1230…124e Head {h00=0x001a, h01=0x0050, text=»* SHIFT LOGICAL LEFT«, t00=0x000b, t01=0x010c}
0x124e…1258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x1258…1260 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0134}
0x1260…1278 Head {h00=0x0014, h01=0x0050, text=»SLLINS SLL A4,0 «, t00=0x000b, t01=0x013c}
0x1278…1280 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0154}
0x1280…128a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015c}
0x128a…12a8 Head {h00=0x001a, h01=0x0050, text=»* GET THE PARAMETERS«, t00=0x000b, t01=0x0166}
0x12a8…12b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0184}
0x12b2…12ba Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x018e}
0x12ba…12ce Head {h00=0x0010, h01=0x0050, text=»WXSLL EQU * «, t00=0x000c, t01=0x0008}
0x12ce…12e4 Head {h00=0x0012, h01=0x0050, text=» CF A14,PARMS «, t00=0x000c, t01=0x001c}
0x12e4…12ec Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0032}
0x12ec…12f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x12f6…1314 Head {h00=0x001a, h01=0x0050, text=»* PERFORM THE SHIFT «, t00=0x000c, t01=0x0044}
0x1314…131e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x131e…1334 Head {h00=0x0012, h01=0x0050, text=»* A4 = BIN1 «, t00=0x000c, t01=0x006c}
0x1334…134a Head {h00=0x0012, h01=0x0050, text=»* A6 = BIN2 «, t00=0x000c, t01=0x0082}
0x134a…136c Head {h00=0x001e, h01=0x0050, text=»* A9 = ADDRESS TO RESULT«, t00=0x000c, t01=0x0098}
0x136c…1376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ba}
0x1376…137e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00c4}
0x137e…139a Head {h00=0x0018, h01=0x0050, text=» ANK A6,/F A6:=0-15 «, t00=0x000c, t01=0x00cc}
0x139a…13c8 Head {h00=0x002a, h01=0x0050, text=» LD A2,SLLINS A2= INSTRUCTION TO PATCH«, t00=0x000c, t01=0x00e8}
0x13c8…13ee Head {h00=0x0022, h01=0x0050, text=» ORR A2,A6 CREATE INSTRUCTION «, t00=0x000c, t01=0x0116}
0x13ee…1402 Head {h00=0x0010, h01=0x0050, text=» ST A2,INS2 «, t00=0x000c, t01=0x013c}
0x1402…1410 Head {h00=0x000a, h01=0x0050, text=» EXK 0«, t00=0x000c, t01=0x0150}
0x1410…1424 Head {h00=0x0010, h01=0x0050, text=»INS2 EQU *-2«, t00=0x000c, t01=0x015e}
0x1424…1436 Head {h00=0x000e, h01=0x0050, text=» STR A4,A9«, t00=0x000c, t01=0x0172}
0x1436…1448 Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x000c, t01=0x0184}
0x1448…1456 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0008}
0x1456…149c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x000d, t01=0x0016}
0x149c…14a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005c}
0x14a6…14bc Head {h00=0x0012, h01=0x0050, text=»* W X C 1 R «, t00=0x000d, t01=0x0066}
0x14bc…14c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007c}
0x14c6…14ee Head {h00=0x0024, h01=0x0050, text=»* ONES COMPLEMENT ON A BINARY «, t00=0x000d, t01=0x0086}
0x14ee…14f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ae}
0x14f8…1514 Head {h00=0x0018, h01=0x0050, text=»* CALL INTERFACE: «, t00=0x000d, t01=0x00b8}
0x1514…151e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d4}
0x151e…153e Head {h00=0x001c, h01=0x0050, text=»* CALL WXC1R,<BIN>«, t00=0x000d, t01=0x00de}
0x153e…1548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fe}
0x1548…155a Head {h00=0x000e, h01=0x0050, text=»* WHERE «, t00=0x000d, t01=0x0108}
0x155a…1564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011a}
0x1564…159e Head {h00=0x0036, h01=0x0050, text=»* <BIN> = BINARY YOU WISH TO ONES-COMPLEMENT«, t00=0x000d, t01=0x0124}
0x159e…15a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015e}
0x15a8…15ee Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x000d, t01=0x0168}
0x15ee…15f6 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x001e}
0x15f6…15fe Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0026}
0x15fe…1606 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x002e}
0x1606…161a Head {h00=0x0010, h01=0x0050, text=»WXC1R EQU * «, t00=0x000e, t01=0x0036}
0x161a…163c Head {h00=0x001e, h01=0x0050, text=» CF A14,I:EVA0 GET PARAM. «, t00=0x000e, t01=0x004a}
0x163c…165e Head {h00=0x001e, h01=0x0050, text=» C1RS A9 ONES COMPLEMENTE «, t00=0x000e, t01=0x006c}
0x165e…1670 Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x000e, t01=0x008e}
0x1670…167e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00a0}
0x167e…1688 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ae}
0x1688…16a6 Head {h00=0x001a, h01=0x0050, text=»* GET THE PARAMETERS«, t00=0x000e, t01=0x00b8}
0x16a6…16b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d6}
0x16b0…16b8 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00e0}
0x16b8…16cc Head {h00=0x0010, h01=0x0050, text=»PARMS EQU * «, t00=0x000e, t01=0x00e8}
0x16cc…16ec Head {h00=0x001c, h01=0x0050, text=» CF A14,I:EVA0 GET PARM1«, t00=0x000e, t01=0x00fc}
0x16ec…1700 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A9 «, t00=0x000e, t01=0x011c}
0x1700…1720 Head {h00=0x001c, h01=0x0050, text=» CF A14,I:EVA0 GET PARM2«, t00=0x000e, t01=0x0130}
0x1720…1734 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x000e, t01=0x0150}
0x1734…1754 Head {h00=0x001c, h01=0x0050, text=» CF A14,I:EVA0 GET PARM3«, t00=0x000e, t01=0x0164}
0x1754…1764 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000e, t01=0x0184}
0x1764…176c (15, 2, 28) Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0004}
0x176c…1778 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000f, t01=0x000c}
0x1778…177c Head {h00=0x4004, h01=0x0000}
0x177c…1780 00 0f 00 18 ┆ ┆
0x1780…1788 (16, 1, 8) 20 04 00 00 00 10 00 04 ┆ ┆
0x1788…17d8 (17, 0, 400) 52 45 20 43 48 41 52 41 43 54 45 52 00 18 01 82 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 19 00 14 00 0e 00 50 5c 41 44 4b 4c 5c 41 39 2c 31 00 19 00 26 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 31 20 00 19 00 38 00 22 00 50 5c 52 42 28 4e 5a ┆RE CHARACTER P ADK A1,1 P ADKL A9,1 & P SUK A2,1 8 " P RB(NZ┆
0x17d8…1828 29 5c 43 48 56 32 30 30 5c 49 46 20 4e 4f 54 20 46 49 4e 49 53 48 45 44 00 19 00 4a 00 1c 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 35 5c 57 52 49 54 45 20 42 41 53 49 43 20 00 19 00 70 00 30 00 50 5c 53 55 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c ┆) CHV200 IF NOT FINISHED J P LDK A7,/85 WRITE BASIC p 0 P SU A12,-12,A13 ┆
0x1828…1878 53 41 56 45 20 52 45 54 41 44 52 45 53 53 20 49 46 20 44 49 53 4b 50 41 47 49 4e 47 00 19 00 90 00 08 00 50 5c 4c 4b 4d 00 19 00 c4 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 19 00 d0 00 2a 00 50 5c 41 44 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c ┆SAVE RETADRESS IF DISKPAGING P LKM P DATA 1 * P AD A12,-12,A13 ┆
0x1878…18c8 52 45 53 54 4f 52 45 20 43 52 45 44 49 54 20 52 45 54 41 44 52 20 00 19 00 e0 00 1c 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 30 5c 54 45 53 54 20 53 54 41 54 55 53 20 00 19 01 0e 00 30 00 50 5c 53 55 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 53 41 ┆RESTORE CREDIT RETADR P LDK A7,/80 TEST STATUS 0 P SU A12,-12,A13 SA┆
0x18c8…1918 56 45 20 52 45 54 41 44 52 45 53 53 20 49 46 20 44 49 53 4b 50 41 47 49 4e 47 00 19 01 2e 00 08 00 50 5c 4c 4b 4d 00 19 01 62 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 19 01 6e 00 2a 00 50 5c 41 44 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 52 45 ┆VE RETADRESS IF DISKPAGING . P LKM b P DATA 1 n * P AD A12,-12,A13 RE┆
0x1918…1968 (18, 0, 400) 53 54 4f 52 45 20 43 52 45 44 49 54 20 52 45 54 41 44 52 20 00 19 01 7e 00 26 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 49 4e 44 49 43 41 54 45 20 54 4f 53 53 20 46 4f 52 4d 41 54 54 45 44 20 00 1a 00 1c 00 0e 00 50 5c 52 46 5c 43 48 56 33 30 30 ┆STORE CREDIT RETADR ~ & P LDK A1,0 INDICATE TOSS FORMATTED P RF CHV300┆
0x1968…19b8 00 1a 00 46 00 2a 00 50 4e 4f 54 4f 53 53 5c 45 51 55 5c 2a 5c 4e 4f 54 20 41 20 54 4f 53 53 20 46 4f 52 4d 41 54 54 45 44 20 44 49 53 43 00 1a 00 58 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 2f 34 32 5c 4c 4f 41 44 20 52 45 54 55 52 4e 20 43 4f ┆ F * PNOTOSS EQU * NOT A TOSS FORMATTED DISC X P LDK A1,/42 LOAD RETURN CO┆
0x19b8…1a08 44 45 00 1a 00 86 00 10 00 50 43 48 56 33 30 30 5c 45 51 55 5c 2a 00 1a 00 aa 00 0e 00 50 5c 4c 44 52 5c 41 36 2c 41 36 00 1a 00 be 00 2e 00 50 5c 52 46 28 4e 5a 29 5c 43 48 56 34 30 30 5c 4a 55 4d 50 20 49 46 20 4e 4f 54 20 54 4f 20 42 45 ┆DE PCHV300 EQU * P LDR A6,A6 . P RF(NZ) CHV400 JUMP IF NOT TO BE┆
0x1a08…1a58 20 55 4e 4c 4f 41 44 45 44 20 00 1a 00 d0 00 16 00 50 5c 4c 44 4b 5c 41 37 2c 2f 42 38 5c 55 4e 4c 4f 43 4b 00 1a 01 02 00 30 00 50 5c 53 55 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 53 41 56 45 20 52 45 54 41 44 52 45 53 53 20 49 46 20 44 49 ┆ UNLOADED P LDK A7,/B8 UNLOCK 0 P SU A12,-12,A13 SAVE RETADRESS IF DI┆
0x1a58…1aa8 53 4b 50 41 47 49 4e 47 00 1a 01 1c 00 08 00 50 5c 4c 4b 4d 00 1a 01 50 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 1a 01 5c 00 2a 00 50 5c 41 44 5c 41 31 32 2c 2d 31 32 2c 41 31 33 5c 52 45 53 54 4f 52 45 20 43 52 45 44 49 54 20 52 45 54 41 44 ┆SKPAGING P LKM P P DATA 1 * P AD A12,-12,A13 RESTORE CREDIT RETAD┆
0x1aa8…1af8 (19, 0, 400) 52 20 00 1a 01 6c 00 10 00 50 43 48 56 34 30 30 5c 45 51 55 5c 2a 00 1b 00 0a 00 1a 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 54 4f 53 53 20 44 49 53 43 3f 20 00 1b 00 1e 00 2c 00 50 5c 52 42 28 4e 5a 29 5c 52 45 54 31 5c 2d 4e 4f 2c 20 55 53 ┆R l PCHV400 EQU * P LDR A1,A1 TOSS DISC? , P RB(NZ) RET1 -NO, US┆
0x1af8…1b48 45 20 45 58 49 53 54 49 4e 47 20 41 31 2d 56 41 4c 55 45 20 00 1b 00 3c 00 0c 00 50 5c 52 42 5c 52 45 54 20 00 1b 00 6c 00 0a 00 50 5c 45 4a 45 43 54 00 1b 00 7c 00 06 00 50 2a 20 00 1b 00 8a 00 2e 00 50 2a 20 20 20 20 20 20 20 20 43 41 4c ┆E EXISTING A1-VALUE < P RB RET l P EJECT | P* . P* CAL┆
0x1b48…1b98 4c 20 57 52 53 45 43 54 2c 44 53 45 54 2c 52 45 43 4e 4f 2c 42 55 46 2c 52 45 54 43 4f 44 00 1b 00 94 00 06 00 50 2a 20 00 1b 00 c6 00 2e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 44 53 45 54 20 20 20 20 20 20 45 56 45 4e 54 20 43 4f 4e ┆L WRSECT,DSET,RECNO,BUF,RETCOD P* . P* DSET EVENT CON┆
0x1b98…1be8 54 52 4f 4c 20 42 4c 4f 43 4b 00 1b 00 d0 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 43 4e 4f 20 20 20 20 20 52 45 41 4c 41 54 49 56 20 53 45 43 54 4f 52 20 4e 4f 20 57 49 54 48 49 4e 20 54 48 45 20 46 49 4c 45 20 00 1b 01 02 ┆TROL BLOCK > P* RECNO REALATIV SECTOR NO WITHIN THE FILE ┆
0x1be8…1c38 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 20 20 20 20 20 20 20 42 55 46 46 45 52 20 00 1b 01 44 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 43 4f 44 20 20 20 20 52 45 54 55 52 4e 20 43 4f 44 45 20 46 52 4f ┆ " P* BUF BUFFER D 0 P* RETCOD RETURN CODE FRO┆
0x1c38…1c88 (20, 0, 398) 4d 20 4c 4b 4d 20 00 1b 01 6a 00 06 00 50 2a 20 00 1c 00 0e 00 06 00 50 2a 20 00 1c 00 18 00 10 00 50 57 52 53 45 43 54 5c 45 51 55 5c 2a 00 1c 00 22 00 1e 00 50 5c 4c 44 4b 4c 5c 41 31 31 2c 2f 38 35 5c 42 41 53 49 43 20 57 52 49 54 45 20 ┆M LKM j P* P* PWRSECT EQU * " P LDKL A11,/85 BASIC WRITE ┆
0x1c88…1cd8 00 1c 00 36 00 0e 00 50 5c 52 46 5c 52 44 53 30 30 30 00 1c 00 58 00 06 00 50 2a 20 00 1c 00 6a 00 06 00 50 2a 20 00 1c 00 74 00 06 00 50 2a 20 00 1c 00 7e 00 2e 00 50 2a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 52 44 53 45 43 54 2c 44 53 45 ┆ 6 P RF RDS000 X P* j P* t P* ~ . P* CALL RDSECT,DSE┆
0x1cd8…1d28 54 2c 52 45 43 4e 4f 2c 42 55 46 2c 52 45 54 43 4f 44 00 1c 00 88 00 2e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 44 53 45 54 20 20 20 20 20 20 45 56 45 4e 54 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 00 1c 00 ba 00 3e 00 50 2a 20 20 20 ┆T,RECNO,BUF,RETCOD . P* DSET EVENT CONTROL BLOCK > P* ┆
0x1d28…1d78 20 20 20 20 20 20 20 20 20 52 45 43 4e 4f 20 20 20 20 20 52 45 41 4c 41 54 49 56 20 53 45 43 54 4f 52 20 4e 4f 20 57 49 54 48 49 4e 20 54 48 45 20 46 49 4c 45 20 00 1c 00 ec 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 20 20 ┆ RECNO REALATIV SECTOR NO WITHIN THE FILE " P* BUF ┆
0x1d78…1dc6 20 20 20 20 20 42 55 46 46 45 52 20 00 1c 01 2e 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 43 4f 44 20 20 20 20 52 45 54 55 52 4e 20 43 4f 44 45 20 46 52 4f 4d 20 4c 4b 4d 20 00 1c 01 54 00 06 00 50 2a 20 00 1c 01 88 ┆ BUFFER . 0 P* RETCOD RETURN CODE FROM LKM T P* ┆