|
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: 4712 (0x1268)
Notes: pts_type(SC)
Names: »TSWBLK.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/TSWBLK.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/TSWBLK.SC«
IDENT TSWBLK REL 11.0 81-01-26 870105041100 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TSWBLK = LOAD/STORE SWAPPABLE WORK BLOCK * * * * ************************************************** * * * THIS MODULE CONTAINS THE LOAD/STORE SWAPPABLE WORK BLOCK * LKM PROCESSOR, USED IN TOSS MEMORY MANAGEMENT SYSTEMS. * * EJECT TSWBLK * * *********** * ENTRIES * *********** * * ENTRY TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK * * ************* * EXTERNALS * ************* * * EXTRN TDISP DISPATCHER EXTRN LKMRQE LKM REQUEST ERROR EXTRN ACBSWB SWBTAB ADDRESS EXTRN TTB:AP ACB ADDRESS EXTRN QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB EJECT TSWBLK * * ********** * TSWBLK * ********** * * * THIS IS THE LOAD/STORE SWAPPABLE WORK BLOCK LKM PROCESSOR. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A5 = TTAB ADDRESS * A6 = LKM DATA DIRECTIVE: 19 IF LOAD SWB * = 20 IF STORE SWB * A7 = LEFT BYTE : SWB TYPE (NUMBER) * = RIGHT BYTE: INDEX WITHIN TYPE * A8 = MEMORY ADDRESS OF WHERE TO LOAD THE SWB (A6 = 19) * = " " " THE SWB TO STORE (A6 = 20) * * TSWBLK WILL ACTIVATE LDTASK (THE LOAD TASK) AT LABEL LT:SWB * AND LDTASK WILL LOAD/STORE REQUESTED WORK BLOCK. * * IT RETURNS TO CALLING TASK WITH * THE FOLLOWING PARAMETERS: * * A7 = UNCHANGED IF LOADING/STORING IS SUCCESSFUL, ELSE * A7 = -1 IF REQUEST ERROR, ELSE * A7 = -2 IF DISC I/O ERROR, ELSE * A7 = -3 IF DISC NOT OPERABLE * EJECT TSWBLK * * CHECK VALIDITY OF SWPBLK PARAMETERS * TSWBLK EQU * SWB HANDLING ENTRY LD A1,TTB:AP,A5 ACB ADDRESS LD A1,ACBSWB,A1 GET SWBTAB ADDRESS RF(NZ) TSW:10 SWBTAB PRESENT * SWBERR EQU * COMMON REQUEST ERROR EXIT ABL LKMRQE LKM REQUEST ERROR * TSW:10 EQU * ECR A4,A7 ANK A4,/FF GET TYPE NUMBER CWR* A4,A1 CHECK IF LEGAL RB(G) SWBERR SWB TYPE NUMBER TOO BIG ADR A4,A4 ADR A1,A4 GET ADDRESS TO SWB TYPE POINTER LDR* A1,A1 GET ADDRESS TO SWB TYPE CCR A7,A1 CHECK IF LEGAL RB(G) SWBERR SWB COPY NUMBER TOO BIG * * ACTIVATE LOAD TASK * LDR A3,A5 GET TTAB ADDRESS OF CALLING TASK LDR A4,A6 LKM DATA DIRECTIVE CF A15,QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB ABL TDISP GO TO DISPATCHER * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TSWBLK REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be Head {h00=0x0024, h01=0x0020, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x009a}
0x00be…00c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00fc Head {h00=0x0030, h01=0x002c, text=»* TSWBLK = LOAD/STORE SWAPPABLE WORK BLOCK«, t00=0x0000, t01=0x00cc}
0x00fc…0106 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x010a}
0x0110…011a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x011e}
0x0124…015e Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0000, t01=0x0128}
0x015e…0168 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0162}
0x0168…0172 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x016c}
0x0172…01b6 Head {h00=0x0040, h01=0x003c, text=»* THIS MODULE CONTAINS THE LOAD/STORE SWAPPABLE WORK BLOCK«, t00=0x0000, t01=0x0176}
0x01b6…01f8 Head {h00=0x003e, h01=0x003a, text=»* LKM PROCESSOR, USED IN TOSS MEMORY MANAGEMENT SYSTEMS.«, t00=0x0001, t01=0x002a}
0x01f8…0202 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x006c}
0x0202…020c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0076}
0x020c…0224 Head {h00=0x0014, h01=0x000f, text=» EJECT TSWBLK «, t00=0x0001, t01=0x0080}
0x0224…022e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0098}
0x022e…0238 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00a2}
0x0238…024c Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0001, t01=0x00ac}
0x024c…0260 Head {h00=0x0010, h01=0x000b, text=»* ENTRIES * «, t00=0x0001, t01=0x00c0}
0x0260…0274 Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0001, t01=0x00d4}
0x0274…027e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00e8}
0x027e…0288 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…02be Head {h00=0x0032, h01=0x002d, text=» ENTRY TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK «, t00=0x0001, t01=0x00fc}
0x02be…02c6 Head {h00=0x0004, h01=0x0002, t00=0x0001, t01=0x0132}
0x02c6…02ce Head {h00=0x0004, h01=0x0002, t00=0x0001, t01=0x013a}
0x02ce…02d6 Head {h00=0x0004, h01=0x0002, t00=0x0001, t01=0x0142}
0x02d6…02e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x014a}
0x02e0…02ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0154}
0x02ea…0300 Head {h00=0x0012, h01=0x000d, text=»************* «, t00=0x0001, t01=0x015e}
0x0300…0316 Head {h00=0x0012, h01=0x000d, text=»* EXTERNALS * «, t00=0x0001, t01=0x0174}
0x0316…032c Head {h00=0x0012, h01=0x000d, text=»************* «, t00=0x0001, t01=0x018a}
0x032c…0336 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0010}
0x0336…0340 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x001a}
0x0340…0360 Head {h00=0x001c, h01=0x0017, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0024}
0x0360…0388 Head {h00=0x0024, h01=0x001f, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0044}
0x0388…03ac Head {h00=0x0020, h01=0x0050, text=» EXTRN ACBSWB SWBTAB ADDRESS«, t00=0x0002, t01=0x006c}
0x03ac…03ce Head {h00=0x001e, h01=0x0050, text=» EXTRN TTB:AP ACB ADDRESS «, t00=0x0002, t01=0x0090}
0x03ce…0404 Head {h00=0x0032, h01=0x002d, text=» EXTRN QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB «, t00=0x0002, t01=0x00b2}
0x0404…041c Head {h00=0x0014, h01=0x000f, text=» EJECT TSWBLK «, t00=0x0002, t01=0x00e8}
0x041c…0426 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0100}
0x0426…0430 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x010a}
0x0430…0442 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0002, t01=0x0114}
0x0442…0454 Head {h00=0x000e, h01=0x000a, text=»* TSWBLK *«, t00=0x0002, t01=0x0126}
0x0454…0466 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0002, t01=0x0138}
0x0466…0470 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x014a}
0x0470…047a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0154}
0x047a…04c0 Head {h00=0x0042, h01=0x003e, text=»* THIS IS THE LOAD/STORE SWAPPABLE WORK BLOCK LKM PROCESSOR.«, t00=0x0002, t01=0x015e}
0x04c0…04ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0014}
0x04ca…04f8 Head {h00=0x002a, h01=0x0026, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0003, t01=0x001e}
0x04f8…0522 Head {h00=0x0026, h01=0x0022, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0003, t01=0x004c}
0x0522…052c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0076}
0x052c…054a Head {h00=0x001a, h01=0x0015, text=»* A5 = TTAB ADDRESS «, t00=0x0003, t01=0x0080}
0x054a…057e Head {h00=0x0030, h01=0x002b, text=»* A6 = LKM DATA DIRECTIVE: 19 IF LOAD SWB «, t00=0x0003, t01=0x009e}
0x057e…05b2 Head {h00=0x0030, h01=0x002c, text=»* = 20 IF STORE SWB«, t00=0x0003, t01=0x00d2}
0x05b2…05e0 Head {h00=0x002a, h01=0x0026, text=»* A7 = LEFT BYTE : SWB TYPE (NUMBER)«, t00=0x0003, t01=0x0106}
0x05e0…060e Head {h00=0x002a, h01=0x0026, text=»* = RIGHT BYTE: INDEX WITHIN TYPE«, t00=0x0003, t01=0x0134}
0x060e…0650 Head {h00=0x003e, h01=0x003a, text=»* A8 = MEMORY ADDRESS OF WHERE TO LOAD THE SWB (A6 = 19)«, t00=0x0003, t01=0x0162}
0x0650…0692 Head {h00=0x003e, h01=0x003a, text=»* = " " " THE SWB TO STORE (A6 = 20)«, t00=0x0004, t01=0x0014}
0x0692…069c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0056}
0x069c…06e4 Head {h00=0x0044, h01=0x003f, text=»* TSWBLK WILL ACTIVATE LDTASK (THE LOAD TASK) AT LABEL LT:SWB «, t00=0x0004, t01=0x0060}
0x06e4…0720 Head {h00=0x0038, h01=0x0038, text=»* AND LDTASK WILL LOAD/STORE REQUESTED WORK BLOCK.«, t00=0x0004, t01=0x00a8}
0x0720…072a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00e4}
0x072a…0756 Head {h00=0x0028, h01=0x0023, text=»* IT RETURNS TO CALLING TASK WITH «, t00=0x0004, t01=0x00ee}
0x0756…077c Head {h00=0x0022, h01=0x001d, text=»* THE FOLLOWING PARAMETERS: «, t00=0x0004, t01=0x011a}
0x077c…0786 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0140}
0x0786…07c8 Head {h00=0x003e, h01=0x0039, text=»* A7 = UNCHANGED IF LOADING/STORING IS SUCCESSFUL, ELSE «, t00=0x0004, t01=0x014a}
0x07c8…07f2 Head {h00=0x0026, h01=0x0022, text=»* A7 = -1 IF REQUEST ERROR, ELSE«, t00=0x0004, t01=0x018c}
0x07f2…081e Head {h00=0x0028, h01=0x0023, text=»* A7 = -2 IF DISC I/O ERROR, ELSE «, t00=0x0005, t01=0x0026}
0x081e…0846 Head {h00=0x0024, h01=0x0020, text=»* A7 = -3 IF DISC NOT OPERABLE«, t00=0x0005, t01=0x0052}
0x0846…0850 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x007a}
0x0850…0868 Head {h00=0x0014, h01=0x000f, text=» EJECT TSWBLK «, t00=0x0005, t01=0x0084}
0x0868…0872 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x009c}
0x0872…08a0 Head {h00=0x002a, h01=0x0025, text=»* CHECK VALIDITY OF SWPBLK PARAMETERS «, t00=0x0005, t01=0x00a6}
0x08a0…08aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00d4}
0x08aa…08d2 Head {h00=0x0024, h01=0x001f, text=»TSWBLK EQU * SWB HANDLING ENTRY «, t00=0x0005, t01=0x00de}
0x08d2…08f6 Head {h00=0x0020, h01=0x0050, text=» LD A1,TTB:AP,A5 ACB ADDRESS«, t00=0x0005, t01=0x0106}
0x08f6…0922 Head {h00=0x0028, h01=0x0050, text=» LD A1,ACBSWB,A1 GET SWBTAB ADDRESS «, t00=0x0005, t01=0x012a}
0x0922…0948 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TSW:10 SWBTAB PRESENT «, t00=0x0005, t01=0x0156}
0x0948…0952 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x017c}
0x0952…0980 Head {h00=0x002a, h01=0x0026, text=»SWBERR EQU * COMMON REQUEST ERROR EXIT«, t00=0x0005, t01=0x0186}
0x0980…09a6 Head {h00=0x0022, h01=0x001d, text=» ABL LKMRQE LKM REQUEST ERROR «, t00=0x0006, t01=0x0024}
0x09a6…09b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x004a}
0x09b0…09c4 Head {h00=0x0010, h01=0x000c, text=»TSW:10 EQU *«, t00=0x0006, t01=0x0054}
0x09c4…09d6 Head {h00=0x000e, h01=0x000a, text=» ECR A4,A7«, t00=0x0006, t01=0x0068}
0x09d6…09fa Head {h00=0x0020, h01=0x001b, text=» ANK A4,/FF GET TYPE NUMBER «, t00=0x0006, t01=0x007a}
0x09fa…0a1c Head {h00=0x001e, h01=0x001a, text=» CWR* A4,A1 CHECK IF LEGAL«, t00=0x0006, t01=0x009e}
0x0a1c…0a4a Head {h00=0x002a, h01=0x0050, text=» RB(G) SWBERR SWB TYPE NUMBER TOO BIG «, t00=0x0006, t01=0x00c0}
0x0a4a…0a5c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A4«, t00=0x0006, t01=0x00ee}
0x0a5c…0a8e Head {h00=0x002e, h01=0x002a, text=» ADR A1,A4 GET ADDRESS TO SWB TYPE POINTER«, t00=0x0006, t01=0x0100}
0x0a8e…0aba Head {h00=0x0028, h01=0x0023, text=» LDR* A1,A1 GET ADDRESS TO SWB TYPE «, t00=0x0006, t01=0x0132}
0x0aba…0adc Head {h00=0x001e, h01=0x0050, text=» CCR A7,A1 CHECK IF LEGAL «, t00=0x0006, t01=0x015e}
0x0adc…0b0a Head {h00=0x002a, h01=0x0050, text=» RB(G) SWBERR SWB COPY NUMBER TOO BIG «, t00=0x0006, t01=0x0180}
0x0b0a…0b14 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x001e}
0x0b14…0b30 Head {h00=0x0018, h01=0x0014, text=»* ACTIVATE LOAD TASK«, t00=0x0007, t01=0x0028}
0x0b30…0b3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0044}
0x0b3a…0b6e Head {h00=0x0030, h01=0x002b, text=» LDR A3,A5 GET TTAB ADDRESS OF CALLING TASK «, t00=0x0007, t01=0x004e}
0x0b6e…0b94 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A6 LKM DATA DIRECTIVE «, t00=0x0007, t01=0x0082}
0x0b94…0bca Head {h00=0x0032, h01=0x002e, text=» CF A15,QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB«, t00=0x0007, t01=0x00a8}
0x0bca…0bee Head {h00=0x0020, h01=0x001b, text=» ABL TDISP GO TO DISPATCHER «, t00=0x0007, t01=0x00de}
0x0bee…0bf8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0102}
0x0bf8…0c02 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x010c}
0x0c02…0c0c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0116}
0x0c0c…0c18 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0007, t01=0x0120}
0x0c18…0c1c Head {h00=0x4004, h01=0x0000}
0x0c1c…0c20 00 07 01 2c ┆ ,┆
0x0c20…0c28 (8, 1, 8) 20 04 00 00 00 08 00 04 ┆ ┆
0x0c28…0c78 (9, 0, 400) 4d 45 4e 54 20 53 54 41 54 55 53 20 00 08 01 82 00 2c 00 50 5c 41 4e 4b 5c 41 34 2c 2f 31 45 5c 43 48 45 43 4b 20 49 46 20 43 4f 52 45 20 52 45 53 49 44 45 4e 54 20 4f 52 2e 2e 2e 00 09 00 14 00 32 00 50 5c 52 46 28 4e 5a 29 5c 54 4c 44 53 ┆MENT STATUS , P ANK A4,/1E CHECK IF CORE RESIDENT OR... 2 P RF(NZ) TLDS┆
0x0c78…0cc8 30 30 5c 2e 2e 2e 55 53 45 44 20 42 59 20 41 4e 20 49 4e 54 45 52 52 55 50 54 45 44 20 54 41 53 4b 20 00 09 00 44 00 06 00 50 2a 20 00 09 00 7a 00 28 00 50 2a 20 20 20 49 4e 53 45 52 54 20 50 41 47 45 20 42 4c 4f 43 4b 20 49 4e 20 50 41 47 ┆00 ...USED BY AN INTERRUPTED TASK D P* z ( P* INSERT PAGE BLOCK IN PAG┆
0x0cc8…0d18 45 20 51 55 45 55 45 20 00 09 00 84 00 06 00 50 2a 20 00 09 00 b0 00 20 00 50 5c 43 46 5c 41 31 35 2c 52 45 4c 50 41 47 5c 52 45 4c 45 41 53 45 20 50 41 47 45 20 00 09 00 ba 00 18 00 50 5c 4c 44 5c 41 34 2c 54 54 42 3a 50 57 2c 41 35 5c 50 ┆E QUEUE P* P CF A15,RELPAG RELEASE PAGE P LD A4,TTB:PW,A5 P┆
0x0d18…0d68 53 57 00 09 00 de 00 26 00 50 5c 53 54 5c 41 34 2c 2d 32 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 50 53 57 20 4f 4e 20 53 54 41 43 4b 00 09 00 fa 00 08 00 50 5c 58 49 46 00 09 01 24 00 06 00 50 2a 20 00 09 01 30 00 26 00 50 2a 5c 43 48 45 43 ┆SW & P ST A4,-2,A15 RESTORE PSW ON STACK P XIF $ P* 0 & P* CHEC┆
0x0d68…0db8 4b 20 56 41 4c 49 44 49 54 59 20 4f 46 20 53 45 47 4d 45 4e 54 20 4e 55 4d 42 45 52 00 09 01 3a 00 06 00 50 2a 20 00 09 01 64 00 10 00 50 54 4c 44 53 30 30 5c 45 51 55 5c 2a 00 09 01 6e 00 24 00 50 5c 4c 44 5c 41 33 2c 54 54 42 3a 53 50 2c ┆K VALIDITY OF SEGMENT NUMBER : P* d PTLDS00 EQU * n $ P LD A3,TTB:SP,┆
0x0db8…0e08 (10, 0, 400) 41 35 5c 53 45 47 54 41 42 20 41 44 44 52 45 53 53 20 00 09 01 82 00 2a 00 50 5c 4c 44 52 5c 41 31 2c 41 37 5c 43 48 45 43 4b 20 49 46 20 53 45 47 4d 45 4e 54 20 4e 55 4d 42 45 52 20 3c 20 30 00 0a 00 1a 00 20 00 50 5c 52 46 28 4e 29 5c 54 ┆A5 SEGTAB ADDRESS * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 P RF(N) T┆
0x0e08…0e58 4c 44 45 52 52 5c 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 0a 00 48 00 34 00 50 5c 43 57 5c 41 31 2c 53 45 47 3a 4e 53 2c 41 33 5c 43 48 45 43 4b 20 49 46 20 53 45 47 4d 45 4e 54 20 4e 55 4d 42 45 52 20 54 4f 4f 20 42 49 47 00 0a 00 6c ┆LDERR REQUEST ERROR H 4 P CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG l┆
0x0e58…0ea8 00 16 00 50 5c 52 46 28 4e 47 29 5c 54 4c 44 53 30 33 5c 4f 4b 20 00 0a 00 a4 00 06 00 50 2a 20 00 0a 00 be 00 24 00 50 54 4c 44 45 52 52 5c 4c 44 4b 5c 41 36 2c 2f 46 46 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 00 0a 00 c8 00 2c 00 50 ┆ P RF(NG) TLDS03 OK P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P┆
0x0ea8…0ef8 5c 41 42 4c 5c 4c 4b 4d 30 33 30 5c 42 52 41 4e 43 48 20 54 4f 20 4c 4b 4d 20 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 0a 00 f0 00 06 00 50 2a 20 00 0a 01 20 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4c 44 53 45 47 20 00 0a 01 2a 00 06 ┆ ABL LKM030 BRANCH TO LKM REQUEST ERROR P* P EJECT TLDSEG * ┆
0x0ef8…0f48 00 50 2a 20 00 0a 01 42 00 20 00 50 2a 5c 47 45 54 20 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 20 00 0a 01 4c 00 06 00 50 2a 20 00 0a 01 70 00 10 00 50 54 4c 44 53 30 33 5c 45 51 55 5c 2a 00 0a 01 7a 00 2c 00 50 5c 53 ┆ P* B P* GET SEGMENT BLOCK ADDRESS L P* p PTLDS03 EQU * z , P S┆
0x0f48…0f98 (11, 0, 400) 4c 4c 5c 41 31 2c 33 5c 41 44 4a 55 53 54 20 46 4f 52 20 49 4e 44 45 58 49 4e 47 20 49 4e 20 53 45 47 54 41 42 20 00 0a 01 8e 00 22 00 50 5c 41 44 52 5c 41 31 2c 41 33 5c 41 44 44 20 53 45 47 54 41 42 20 41 44 44 52 45 53 53 20 00 0b 00 2e ┆LL A1,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A1,A3 ADD SEGTAB ADDRESS .┆
0x0f98…0fe8 00 20 00 50 5c 4c 44 52 5c 41 33 2c 41 35 5c 47 45 54 20 54 54 41 42 20 41 44 44 52 45 53 53 20 00 0b 00 54 00 06 00 50 2a 20 00 0b 00 78 00 12 00 50 5c 49 46 54 5c 44 53 4b 50 41 47 3d 30 20 00 0b 00 82 00 24 00 50 5c 53 55 4b 4c 5c 41 31 ┆ P LDR A3,A5 GET TTAB ADDRESS T P* x P IFT DSKPAG=0 $ P SUKL A1┆
0x0fe8…1038 35 2c 34 5c 41 44 4a 55 53 54 20 53 54 41 43 4b 50 4f 49 4e 54 45 52 20 00 0b 00 98 00 2e 00 50 5c 53 54 5c 41 32 2c 34 2c 41 31 35 5c 53 45 54 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 4f 4e 20 53 54 41 43 4b 00 0b 00 c0 00 08 ┆5,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK ┆
0x1038…1088 00 50 5c 58 49 46 00 0b 00 f2 00 06 00 50 2a 20 00 0b 00 fe 00 22 00 50 5c 41 44 4b 5c 41 37 2c 30 5c 43 48 45 43 4b 20 53 45 47 4d 45 4e 54 20 4e 55 4d 42 45 52 00 0b 01 08 00 20 00 50 5c 52 46 28 4e 5a 29 5c 54 4c 44 53 30 35 5c 4e 4f 54 ┆ P XIF P* " P ADK A7,0 CHECK SEGMENT NUMBER P RF(NZ) TLDS05 NOT┆
0x1088…10d8 20 53 45 47 4d 45 4e 54 20 30 00 0b 01 2e 00 30 00 50 5c 53 54 5c 41 37 2c 54 54 42 3a 53 42 2c 41 33 5c 52 45 53 45 54 20 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 00 0b 01 52 00 36 00 50 5c 4c 44 5c 41 31 2c 53 45 47 ┆ SEGMENT 0 . 0 P ST A7,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS R 6 P LD A1,SEG┆
0x10d8…1128 (12, 0, 400) 3a 44 53 2c 41 31 5c 47 45 54 20 4c 4f 47 49 43 41 4c 20 41 44 44 52 45 53 53 20 4f 46 20 53 45 47 4d 45 4e 54 20 30 20 00 0b 01 86 00 06 00 50 2a 20 00 0c 00 30 00 12 00 50 5c 49 46 54 5c 44 53 4b 50 41 47 3d 31 20 00 0c 00 3a 00 24 00 50 ┆:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 P* 0 P IFT DSKPAG=1 : $ P┆
0x1128…1178 5c 53 55 4b 4c 5c 41 31 35 2c 34 5c 41 44 4a 55 53 54 20 53 54 41 43 4b 50 4f 49 4e 54 45 52 20 00 0c 00 50 00 2e 00 50 5c 53 54 5c 41 32 2c 34 2c 41 31 35 5c 53 45 54 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 4f 4e 20 53 54 41 ┆ SUKL A15,4 ADJUST STACKPOINTER P . P ST A2,4,A15 SET DISPATCH ADDRESS ON STA┆
0x1178…11c8 43 4b 00 0c 00 78 00 08 00 50 5c 58 49 46 00 0c 00 aa 00 0e 00 50 5c 52 46 5c 54 4c 44 53 34 30 00 0c 00 b6 00 06 00 50 2a 20 00 0c 00 c8 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4c 44 53 45 47 20 00 0c 00 d2 00 06 00 50 2a 20 00 0c 00 ea ┆CK x P XIF P RF TLDS40 P* P EJECT TLDSEG P* ┆
0x11c8…1218 00 06 00 50 2a 20 00 0c 00 f4 00 10 00 50 54 4c 44 53 30 35 5c 45 51 55 5c 2a 00 0c 00 fe 00 12 00 50 5c 49 46 54 5c 44 53 4b 50 41 47 3d 31 20 00 0c 01 12 00 32 00 50 5c 53 54 5c 41 31 2c 54 54 42 3a 53 42 2c 41 33 5c 55 50 44 41 54 45 20 ┆ P* PTLDS05 EQU * P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE ┆
0x1218…1268 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 20 00 0c 01 28 00 22 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 5c 47 45 54 20 53 45 47 4d 45 4e 54 20 53 54 41 54 55 53 00 0c 01 5e 00 28 00 50 5c 52 46 28 4e 29 5c 54 4c 44 53 31 ┆SEGMENT BLOCK ADDRESS ( " P LDR* A4,A1 GET SEGMENT STATUS ^ ( P RF(N) TLDS1┆