|
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: 107018 (0x1a20a)
Notes: pts_type(SC)
Names: »SYSLCR.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/SYSLCR.SC«
IDENT SYSLCR REL 11.0 81-05-19 870105041100 =3,WHEN MMUPAG=1 APPLICATION CODE IS OVERWRITTEN IF P:MTAB STARTS ON 4K BOUNDARY REL 11.0 81-01-26 =2,UPDATE SCTSFA WHEN ALLOCATING BUFFERS FROM TOP PRR 11.0 80-12-03 =1,APPLICATION CONTROL BLOCK IS EXTENDED WITH 1 WORD PRR 11.0 80-11-19 ********************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * SYSLCR = SYSTEM LOAD - CREDIT APPLICATION CONFIGURATION PART * * * * * * ********************************************************** * * CREDIT APPLICATION: * SYSLCR READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD * SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & * NUMBER OF USER WORK-BLOCK COPIES). * SYSLCR THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE * DDIV-PROTOTYPE . * * APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW * BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS * ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF
0x00000…00036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLCR REL 11.0 81-05-19 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0006e Head {h00=0x002c, h01=0x0050, text=» =3,WHEN MMUPAG=1 APPLICATION CODE IS «, t00=0x0000, t01=0x0042}
0x0006e…0009c Head {h00=0x002a, h01=0x0050, text=» OVERWRITTEN IF P:MTAB STARTS ON «, t00=0x0000, t01=0x0072}
0x0009c…000b6 Head {h00=0x0016, h01=0x0050, text=» 4K BOUNDARY «, t00=0x0000, t01=0x00a0}
0x000b6…000d6 Head {h00=0x001c, h01=0x0050, text=» REL 11.0 81-01-26 «, t00=0x0000, t01=0x00ba}
0x000d6…0010a Head {h00=0x0030, h01=0x0050, text=» =2,UPDATE SCTSFA WHEN ALLOCATING BUFFERS «, t00=0x0000, t01=0x00da}
0x0010a…00120 Head {h00=0x0012, h01=0x0050, text=» FROM TOP«, t00=0x0000, t01=0x010e}
0x00120…00140 Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-12-03 «, t00=0x0000, t01=0x0124}
0x00140…00174 Head {h00=0x0030, h01=0x0050, text=» =1,APPLICATION CONTROL BLOCK IS EXTENDED «, t00=0x0000, t01=0x0144}
0x00174…0018e Head {h00=0x0016, h01=0x0050, text=» WITH 1 WORD «, t00=0x0000, t01=0x0178}
0x0018e…001ae (1, 0, 400) Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-11-19 «, t00=0x0001, t01=0x0004}
0x001ae…001ba Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0001, t01=0x0024}
0x001ba…001c6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0001, t01=0x0030}
0x001c6…00208 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x003c}
0x00208…00212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x00212…0023a Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x0088}
0x0023a…00244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b0}
0x00244…0028c Head {h00=0x0044, h01=0x0050, text=»* SYSLCR = SYSTEM LOAD - CREDIT APPLICATION CONFIGURATION PART«, t00=0x0001, t01=0x00ba}
0x0028c…00296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x00296…002a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x002a0…002aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0116}
0x002aa…002b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x002b4…002be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x002be…002c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x002c8…0030a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x013e}
0x0030a…00314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0180}
0x00314…00334 Head {h00=0x001c, h01=0x0050, text=»* CREDIT APPLICATION: «, t00=0x0001, t01=0x018a}
0x00334…0037e Head {h00=0x0046, h01=0x0050, text=»* SYSLCR READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD«, t00=0x0002, t01=0x001a}
0x0037e…003c4 Head {h00=0x0042, h01=0x0050, text=»* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &«, t00=0x0002, t01=0x0064}
0x003c4…003f6 Head {h00=0x002e, h01=0x0050, text=»* NUMBER OF USER WORK-BLOCK COPIES). «, t00=0x0002, t01=0x00aa}
0x003f6…00442 Head {h00=0x0048, h01=0x0050, text=»* SYSLCR THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE«, t00=0x0002, t01=0x00dc}
0x00442…00462 Head {h00=0x001c, h01=0x0050, text=»* DDIV-PROTOTYPE . «, t00=0x0002, t01=0x0128}
0x00462…0046c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x0046c…004b8 Head {h00=0x0048, h01=0x0050, text=»* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW«, t00=0x0002, t01=0x0152}
0x004b8…00504 Head {h00=0x0048, h01=0x0050, text=»* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS«, t00=0x0003, t01=0x000e}
0x00504…00550 Head {h00=0x0048, h01=0x0050, text=»* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF «, t00=0x0003, t01=0x005a}
0x00550…00554 Head {h00=0x0054, h01=0x0050}
0x00554…00558 Head {h00=0x2a20, h01=0x2020}
0x00558…005a0 20 20 20 4d 45 4d 4f 52 59 3b 20 45 4c 53 45 2c 20 49 46 20 4e 4f 20 4d 4d 55 20 41 4e 44 20 4e 4f 20 50 41 47 49 4e 47 2c 42 55 46 46 45 52 20 41 52 45 20 41 4c 4c 4f 43 41 54 45 44 20 41 46 54 45 52 20 4d 4f 4e 49 ┆ MEMORY; ELSE, IF NO MMU AND NO PAGING,BUFFER ARE ALLOCATED AFTER MONI┆
0x005a0…005f0 54 4f 52 20 00 03 00 a6 00 1a 00 50 2a 20 20 20 20 20 20 27 4f 56 45 52 27 20 53 59 53 4c 43 52 2e 20 00 03 00 fe 00 0a 00 50 5c 45 4a 45 43 54 00 03 01 1c 00 08 00 50 5c 5c 5c 5c 00 03 01 2a 00 20 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TOR P* 'OVER' SYSLCR. P EJECT P * P************┆
0x005f0…0063e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 01 36 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 03 01 5a 00 20 00 50 2a 20 20 45 4e 54 52 49 45 53 20 41 4e 44 20 45 58 54 ┆*************** 6 P* * Z P* ENTRIES AND EXT┆
0x0063e…0068e (4, 0, 400) 45 52 4e 41 4c 53 20 20 2a 20 00 03 01 7e 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 04 00 12 00 20 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ERNALS * ~ P* * P**************************┆
0x0068e…006de 2a 20 00 04 00 36 00 08 00 50 5c 5c 5c 20 00 04 00 5a 00 14 00 50 2a 20 4c 41 42 45 4c 20 45 4e 54 52 49 45 53 20 00 04 00 66 00 12 00 50 5c 45 4e 54 52 59 5c 53 59 53 4c 43 52 20 00 04 00 7e 00 04 00 50 00 04 00 94 00 1c 00 50 2a 20 45 58 ┆* 6 P Z P* LABEL ENTRIES f P ENTRY SYSLCR ~ P P* EX┆
0x006de…0072e 54 45 52 4e 41 4c 53 20 53 55 42 52 4f 55 54 49 4e 45 53 20 00 04 00 9c 00 2a 00 50 5c 45 58 54 52 4e 5c 4d 4f 56 45 5c 4d 4f 56 45 20 42 4c 4f 43 4b 53 20 49 4e 53 49 44 45 20 4d 45 4d 4f 52 59 20 00 04 00 bc 00 12 00 50 5c 45 58 54 52 4e ┆TERNALS SUBROUTINES * P EXTRN MOVE MOVE BLOCKS INSIDE MEMORY P EXTRN┆
0x0072e…0077e 5c 4d 4f 56 49 4e 47 20 00 04 00 ea 00 32 00 50 5c 45 58 54 52 4e 5c 58 4d 4f 56 45 5c 4d 4f 56 45 20 42 4c 4f 43 4b 53 20 49 4e 53 49 44 45 20 4d 45 4d 4f 52 59 20 56 49 41 20 4d 4d 55 00 04 01 00 00 20 00 50 5c 45 58 54 52 4e 5c 4d 4f 56 ┆ MOVING 2 P EXTRN XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU P EXTRN MOV┆
0x0077e…007ce 4d 4d 54 5c 4d 4f 56 45 20 4d 4d 2d 54 41 42 4c 45 20 00 04 01 36 00 24 00 50 5c 45 58 54 52 4e 5c 47 45 54 54 41 42 5c 46 49 4e 44 20 54 54 41 42 2d 41 44 44 52 45 53 53 20 00 04 01 5a 00 24 00 50 5c 45 58 54 52 4e 5c 47 45 54 54 54 42 5c ┆MMT MOVE MM-TABLE 6 $ P EXTRN GETTAB FIND TTAB-ADDRESS Z $ P EXTRN GETTTB ┆
0x007ce…0081e (5, 0, 400) 46 49 4e 44 20 54 54 41 42 2d 41 44 44 52 45 53 53 20 00 04 01 82 00 30 00 50 5c 45 58 54 52 4e 5c 4d 4d 45 4e 54 5c 46 49 4e 44 20 4c 41 53 54 20 55 53 45 44 20 45 4e 54 52 59 20 49 4e 20 4d 4d 2d 54 41 42 20 00 05 00 1a 00 28 00 50 5c 45 ┆FIND TTAB-ADDRESS 0 P EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB ( P E┆
0x0081e…0086e 58 54 52 4e 5c 45 52 52 4f 52 5c 45 52 52 4f 52 20 48 41 4e 44 4c 49 4e 47 20 52 4f 55 54 49 4e 45 20 00 05 00 4e 00 24 00 50 5c 45 58 54 52 4e 5c 43 4d 50 41 44 52 5c 43 4f 4d 50 41 52 45 20 41 44 44 52 45 53 53 45 53 20 00 05 00 7a 00 32 ┆XTRN ERROR ERROR HANDLING ROUTINE N $ P EXTRN CMPADR COMPARE ADDRESSES z 2┆
0x0086e…008be 00 50 5c 45 58 54 52 4e 5c 4e 58 54 42 4c 4b 5c 53 4b 49 50 20 54 4f 20 4e 45 58 54 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 42 4c 4f 43 4b 00 05 00 a2 00 34 00 50 5c 45 58 54 52 4e 5c 4e 58 54 43 4f 4d 5c 53 4b 49 50 20 43 4f 4d 4d 4f ┆ P EXTRN NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P EXTRN NXTCOM SKIP COMMO┆
0x008be…0090e 4e 44 45 56 49 43 45 20 44 45 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 00 05 00 d8 00 2a 00 50 5c 45 58 54 52 4e 5c 43 4f 4e 56 52 54 5c 43 4f 4e 56 45 52 53 49 4f 4e 20 41 53 43 49 49 2d 42 49 4e 41 52 59 20 00 05 01 10 00 32 00 50 5c 45 ┆NDEVICE DEFINITION BLOCK * P EXTRN CONVRT CONVERSION ASCII-BINARY 2 P E┆
0x0090e…0095e 58 54 52 4e 5c 47 45 54 4e 55 4d 5c 43 4f 4e 56 45 52 54 20 33 20 41 53 43 49 49 2d 44 49 47 49 54 53 20 54 4f 20 42 49 4e 41 52 59 00 05 01 3e 00 26 00 50 5c 45 58 54 52 4e 5c 4d 55 4c 54 5c 4d 55 4c 54 49 50 4c 49 43 41 54 49 4f 4e 20 52 ┆XTRN GETNUM CONVERT 3 ASCII-DIGITS TO BINARY > & P EXTRN MULT MULTIPLICATION R┆
0x0095e…009ae (6, 0, 400) 4f 55 54 49 4e 45 00 05 01 74 00 34 00 50 5c 45 58 54 52 4e 5c 47 45 54 41 50 50 5c 46 49 4e 44 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 41 4e 44 20 49 54 53 20 43 4f 4e 46 2e 46 49 4c 45 00 06 00 0e 00 1c 00 50 5c 45 58 54 52 4e 5c 51 55 45 ┆OUTINE t 4 P EXTRN GETAPP FIND APPLICATION AND ITS CONF.FILE P EXTRN QUE┆
0x009ae…009fe 4a 4f 42 5c 51 55 45 55 45 20 54 41 53 4b 00 06 00 46 00 04 00 50 00 06 00 66 00 22 00 50 2a 20 53 41 56 45 20 41 4e 44 20 57 4f 52 4b 20 41 52 45 41 20 45 58 54 45 52 4e 41 4c 53 00 06 00 6e 00 22 00 50 5c 45 58 54 52 4e 5c 4d 4d 54 41 42 ┆JOB QUEUE TASK F P f " P* SAVE AND WORK AREA EXTERNALS n " P EXTRN MMTAB┆
0x009fe…00a4e 5c 57 4f 52 4b 2d 54 41 42 4c 45 20 31 20 28 4d 4d 55 00 06 00 94 00 36 00 50 5c 45 58 54 52 4e 5c 54 41 42 42 45 5c 41 42 53 4f 4c 55 54 45 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 4f 46 20 57 4f 52 4b 2d 54 41 42 20 31 20 00 06 00 ba ┆ WORK-TABLE 1 (MMU 6 P EXTRN TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 ┆
0x00a4e…00a9e 00 34 00 50 5c 45 58 54 52 4e 5c 4d 4d 45 4e 44 5c 41 42 53 4f 4c 55 54 45 20 45 4e 44 20 41 44 44 52 45 53 53 20 4f 46 20 57 4f 52 4b 2d 54 41 42 20 31 20 00 06 00 f4 00 32 00 50 5c 45 58 54 52 4e 5c 4d 4d 44 44 49 56 5c 57 4f 52 4b 2d 54 ┆ 4 P EXTRN MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P EXTRN MMDDIV WORK-T┆
0x00a9e…00aee 41 42 4c 45 20 32 20 28 4d 4d 29 20 52 45 4c 41 54 49 56 45 20 27 52 45 4c 27 00 06 01 2c 00 0e 00 50 5c 45 58 54 52 4e 5c 50 53 57 00 06 01 62 00 22 00 50 5c 45 58 54 52 4e 5c 49 4e 49 4c 45 4e 5c 4c 45 4e 47 54 48 20 4f 46 20 53 59 53 49 ┆ABLE 2 (MM) RELATIVE 'REL' , P EXTRN PSW b " P EXTRN INILEN LENGTH OF SYSI┆
0x00aee…00b3e (7, 0, 400) 4e 49 00 06 01 74 00 2c 00 50 5c 45 58 54 52 4e 5c 4c 53 54 50 41 47 5c 44 49 53 50 4c 2e 20 54 4f 20 27 45 4e 54 52 59 2d 50 4f 49 4e 54 45 52 27 20 00 07 00 0a 00 10 00 50 5c 45 58 54 52 4e 5c 4d 4d 42 45 47 00 07 00 3a 00 04 00 50 00 07 ┆NI t , P EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' P EXTRN MMBEG : P ┆
0x00b3e…00b8e 00 4e 00 0a 00 50 5c 45 4a 45 43 54 00 07 00 56 00 24 00 50 2a 20 53 59 53 54 45 4d 20 43 4f 4e 54 52 4f 4c 20 54 41 42 4c 45 20 45 58 54 45 52 4e 41 4c 53 00 07 00 64 00 24 00 50 5c 45 58 54 52 4e 5c 53 43 54 53 46 41 5c 53 54 41 52 54 20 ┆ N P EJECT V $ P* SYSTEM CONTROL TABLE EXTERNALS d $ P EXTRN SCTSFA START ┆
0x00b8e…00bde 4f 46 20 46 52 45 45 20 41 52 45 41 00 07 00 8c 00 20 00 50 5c 45 58 54 52 4e 5c 53 43 54 54 43 54 5c 54 43 3a 54 41 42 20 41 44 44 52 45 53 53 00 07 00 b4 00 20 00 50 5c 45 58 54 52 4e 5c 53 43 54 53 54 42 5c 41 31 35 20 53 54 41 43 4b 2d ┆OF FREE AREA P EXTRN SCTTCT TC:TAB ADDRESS P EXTRN SCTSTB A15 STACK-┆
0x00bde…00c2e 42 41 53 45 00 07 00 d8 00 22 00 50 5c 45 58 54 52 4e 5c 53 43 54 45 46 41 5c 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 07 00 fc 00 22 00 50 5c 45 58 54 52 4e 5c 53 43 54 4e 4f 50 5c 4e 55 4d 42 45 52 20 4f 46 20 50 41 47 45 53 20 ┆BASE " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES ┆
0x00c2e…00c7e 00 07 01 22 00 1c 00 50 5c 45 58 54 52 4e 5c 53 43 54 50 53 5a 5c 50 41 47 45 20 53 49 5a 45 20 00 07 01 48 00 20 00 50 5c 45 58 54 52 4e 5c 53 43 54 4f 50 54 5c 53 59 53 54 45 4d 20 4f 50 54 49 4f 4e 20 00 07 01 68 00 24 00 50 5c 45 58 54 ┆ " P EXTRN SCTPSZ PAGE SIZE H P EXTRN SCTOPT SYSTEM OPTION h $ P EXT┆
0x00c7e…00cce (8, 0, 400) 52 4e 5c 53 43 54 50 41 47 5c 50 41 47 45 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 00 07 01 8c 00 34 00 50 5c 45 58 54 52 4e 5c 53 43 54 53 57 42 5c 41 44 44 52 45 53 53 20 54 4f 20 53 57 42 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 54 ┆RN SCTPAG PAGE TABLE ADDRESS 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK T┆
0x00cce…00d1e 41 42 4c 45 00 08 00 24 00 20 00 50 5c 45 58 54 52 4e 5c 53 43 54 42 55 47 5c 42 55 47 47 45 52 20 41 44 44 52 45 53 53 00 08 00 5c 00 2c 00 50 5c 45 58 54 52 4e 5c 53 54 4b 45 4e 44 5c 53 54 41 52 54 20 4f 46 20 53 43 52 41 54 43 48 2d 50 ┆ABLE $ P EXTRN SCTBUG BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-P┆
0x00d1e…00d6e 41 44 20 41 52 45 41 20 00 08 00 80 00 30 00 50 5c 45 58 54 52 4e 5c 53 54 4b 4d 4f 56 5c 53 54 41 52 54 20 4f 46 20 4d 4f 56 45 2d 52 4f 55 54 49 4e 45 20 49 4e 20 53 54 41 43 4b 00 08 00 b0 00 2a 00 50 5c 45 58 54 52 4e 5c 53 54 4b 43 4f ┆AD AREA 0 P EXTRN STKMOV START OF MOVE-ROUTINE IN STACK * P EXTRN STKCO┆
0x00d6e…00dbe 4d 5c 53 54 41 52 54 20 4f 46 20 43 4f 4d 4d 4f 4e 2d 50 41 44 20 41 52 45 41 00 08 00 e4 00 04 00 50 00 08 01 12 00 16 00 50 2a 20 45 58 54 45 52 4e 41 4c 20 4c 41 42 45 4c 53 20 00 08 01 1a 00 04 00 50 00 08 01 34 00 06 00 50 2a 20 00 08 ┆M START OF COMMON-PAD AREA P P* EXTERNAL LABELS P 4 P* ┆
0x00dbe…00e0e 01 3c 00 2c 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 53 41 5c 53 54 41 52 54 20 4f 46 20 53 41 56 45 20 41 52 45 41 20 49 4e 20 54 54 41 42 00 08 01 46 00 38 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 43 42 5c 44 49 53 50 4c 2e 20 54 4f 20 43 55 ┆ < , P EXTRN TTB:SA START OF SAVE AREA IN TTAB F 8 P EXTRN TTB:CB DISPL. TO CU┆
0x00e0e…00e5e (9, 0, 400) 52 52 45 4e 54 20 53 45 47 4d 45 4e 54 20 42 41 53 45 20 41 44 44 52 45 53 53 00 08 01 76 00 26 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 4d 54 5c 44 49 53 50 4c 2e 20 54 4f 20 4d 4d 55 20 54 41 42 4c 45 20 00 09 00 22 00 24 00 50 5c 45 58 54 ┆RRENT SEGMENT BASE ADDRESS v & P EXTRN TTB:MT DISPL. TO MMU TABLE " $ P EXT┆
0x00e5e…00eae 52 4e 5c 54 54 42 3a 49 44 5c 44 49 53 50 4c 2e 20 54 4f 20 54 41 53 4b 20 49 44 20 00 09 00 4c 00 2c 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 53 42 5c 44 49 53 50 4c 2e 20 54 4f 20 53 45 47 4d 2e 20 42 4c 4f 43 4b 20 50 54 52 20 00 09 00 74 ┆RN TTB:ID DISPL. TO TASK ID L , P EXTRN TTB:SB DISPL. TO SEGM. BLOCK PTR t┆
0x00eae…00efe 00 2c 00 50 5c 45 58 54 52 4e 5c 54 54 42 3a 50 50 5c 44 49 53 4c 4c 2e 20 54 4f 20 50 45 4e 44 49 4e 47 20 50 4f 49 4e 54 45 52 20 00 09 00 a4 00 0a 00 50 5c 45 4a 45 43 54 00 09 00 d4 00 04 00 50 00 09 00 e2 00 04 00 50 00 09 00 ea 00 2c ┆ , P EXTRN TTB:PP DISLL. TO PENDING POINTER P EJECT P P ,┆
0x00efe…00f4e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 09 00 f2 00 2c 00 50 2a 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 20 20 20 20 20 20 20 ┆ P*************************************** , P* CONDITIONAL ASSEMBLY ┆
0x00f4e…00f9e 20 20 20 20 20 20 20 20 2a 20 00 09 01 22 00 2c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 09 01 52 00 04 00 50 00 09 01 82 00 1c 00 50 4d 4d 55 50 41 47 ┆ * " , P*************************************** R P PMMUPAG┆
0x00f9e…00fee (10, 0, 400) 5c 45 51 55 5c 30 5c 30 20 3d 20 4e 4f 20 4d 4d 55 20 00 09 01 8a 00 04 00 50 00 0a 00 1a 00 2e 00 50 53 57 50 42 4c 4b 5c 45 51 55 5c 30 5c 30 20 3d 20 4e 4f 20 53 57 41 50 50 41 42 4c 45 20 57 4f 52 4b 20 42 4c 4f 43 4b 53 20 00 0a 00 22 ┆ EQU 0 0 = NO MMU P . PSWPBLK EQU 0 0 = NO SWAPPABLE WORK BLOCKS "┆
0x00fee…0103e 00 04 00 50 00 0a 00 54 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0a 00 5c 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P T 2 P********************************************* 2 P* ┆
0x0103e…0108e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 0a 00 92 00 32 00 50 2a 20 20 20 20 41 50 43 54 41 42 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 2 P* APCTAB DISPLACEMENTS ┆
0x0108e…010de 20 20 20 20 2a 20 00 0a 00 c8 00 32 00 50 2a 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 0a 00 fe 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 ┆ * 2 P* ==================== * 2 P* ┆
0x010de…0112e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 0a 01 34 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 4 2 P**************************************┆
0x0112e…0117e (11, 0, 400) 2a 2a 2a 2a 2a 2a 2a 20 00 0a 01 6a 00 04 00 50 00 0b 00 10 00 34 00 50 41 50 4c 41 44 41 5c 45 51 55 5c 32 32 5c 41 50 50 4c 2e 20 44 49 53 43 20 46 49 4c 45 20 41 44 44 52 2e 20 28 32 20 57 4f 52 44 53 29 5c 3d 31 00 0b 00 18 00 28 00 50 ┆******* j P 4 PAPLADA EQU 22 APPL. DISC FILE ADDR. (2 WORDS) =1 ( P┆
0x0117e…011ce 41 50 4c 52 45 4c 5c 45 51 55 5c 31 38 5c 41 50 50 4c 2e 20 52 45 4c 4f 43 41 54 49 4f 4e 20 42 41 53 45 20 00 0b 00 50 00 2c 00 50 41 50 4c 49 4f 45 5c 45 51 55 5c 30 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 52 45 53 54 41 52 54 20 41 44 44 ┆APLREL EQU 18 APPL. RELOCATION BASE P , PAPLIOE EQU 0 APPLICATION RESTART ADD┆
0x011ce…0121e 52 45 53 53 00 0b 00 7c 00 38 00 50 41 50 4c 44 41 44 5c 45 51 55 5c 30 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 46 49 4c 45 20 44 49 53 43 20 41 44 44 52 2e 20 28 42 49 54 20 30 2d 31 35 29 20 00 0b 00 ac 00 38 00 50 41 50 4c 4c 41 43 5c 45 ┆RESS | 8 PAPLDAD EQU 0 APPLICATION FILE DISC ADDR. (BIT 0-15) 8 PAPLLAC E┆
0x0121e…0126e 51 55 5c 31 34 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 4c 4f 41 44 20 41 44 44 52 2e 20 28 4c 4f 47 49 43 41 4c 20 41 44 44 52 2e 29 00 0b 00 e8 00 26 00 50 41 50 4c 4c 41 50 5c 45 51 55 5c 31 32 5c 4c 4f 47 49 43 41 4c 20 50 41 47 45 20 41 ┆QU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE A┆
0x0126e…012be 44 44 52 45 53 53 00 0b 01 24 00 38 00 50 41 50 4c 4c 44 41 5c 45 51 55 5c 30 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 4c 4f 41 44 20 41 44 44 52 2e 20 28 50 48 59 53 49 43 41 4c 20 41 44 44 52 2e 29 00 0b 01 4e 00 2e 00 50 41 50 4c 4d 4d 43 ┆DDRESS $ 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) N . PAPLMMC┆
0x012be…0130e (12, 0, 400) 5c 45 51 55 5c 31 30 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 4d 4d 55 20 53 54 41 52 54 20 45 4e 54 52 59 20 00 0b 01 8a 00 28 00 50 41 50 4c 4d 4d 50 5c 45 51 55 5c 38 5c 53 45 47 4d 45 4e 54 20 53 54 41 52 54 20 4d 4d 55 20 45 4e 54 52 59 ┆ EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY┆
0x0130e…0135e 00 0c 00 2c 00 2e 00 50 41 50 4c 53 45 47 5c 45 51 55 5c 34 5c 50 48 59 53 49 43 41 4c 20 53 54 41 52 54 20 4f 46 20 31 53 54 20 53 45 47 4d 45 4e 54 00 0c 00 58 00 2e 00 50 41 50 4c 4e 50 45 5c 45 51 55 5c 36 5c 4e 55 4d 42 45 52 20 4f 46 ┆ , . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT X . PAPLNPE EQU 6 NUMBER OF┆
0x0135e…013ae 20 50 41 47 45 20 45 4e 54 52 49 45 53 20 49 4e 20 4d 4d 55 00 0c 00 8a 00 20 00 50 41 50 4c 53 57 42 5c 45 51 55 5c 32 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 53 57 42 00 0c 00 bc 00 2a 00 50 41 50 4c 53 54 41 5c 45 51 55 5c 31 36 5c 41 50 ┆ PAGE ENTRIES IN MMU PAPLSWB EQU 2 APPLICATION SWB * PAPLSTA EQU 16 AP┆
0x013ae…013fe 50 4c 2e 20 50 47 4d 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 00 0c 00 e0 00 22 00 50 41 50 4c 54 59 50 5c 45 51 55 5c 38 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 54 59 50 45 20 00 0c 01 0e 00 2e 00 50 41 50 4c 50 53 5a 5c 45 51 55 5c 32 ┆PL. PGM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE . PAPLPSZ EQU 2┆
0x013fe…0144e 30 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 53 45 47 4d 45 4e 54 20 53 49 5a 45 5c 3d 31 20 00 0c 01 34 00 0a 00 50 5c 45 4a 45 43 54 00 0c 01 66 00 04 00 50 00 0c 01 74 00 1a 00 50 5c 20 20 50 52 4f 47 52 41 4d 20 53 54 52 55 43 54 55 52 45 ┆0 APPLICATION SEGMENT SIZE =1 4 P EJECT f P t P PROGRAM STRUCTURE┆
0x0144e…01450 (13, 0, 400) 3a 20 ┆: ┆
0x01450…014a0 00 0c 01 7c 00 04 00 50 00 0d 00 0a 00 46 00 50 2a 20 20 45 4e 54 52 59 20 2d 3e 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 53 59 53 4c 43 52 20 45 4e 54 52 59 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ | P F P* ENTRY ->! * SYSLCR ENTRY * ┆
0x014a0…014f0 20 21 00 0d 00 12 00 4e 00 50 2a 20 20 20 20 20 20 20 20 20 20 21 20 20 52 45 41 44 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 20 41 4e 44 20 42 55 49 4c 44 20 53 48 41 44 4f 57 2d 54 41 42 4c 45 53 20 20 20 20 21 20 20 50 41 ┆ ! N P* ! READ CONFIGURATION FILE AND BUILD SHADOW-TABLES ! PA┆
0x014f0…01540 52 54 20 31 00 0d 00 5c 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 00 0d ┆RT 1 F P* ! ! ┆
0x01540…01558 00 ae 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 21 20 20 54 3a 41 54 ┆ F P* ! T:AT┆
0x01558…1920a […elided…]
0x1920a…19230 52 59 3a 20 20 41 32 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 52 45 43 4f 52 44 20 49 4e 20 52 ┆RY: A2 - POINTER TO FIRST RECORD IN R┆
0x19230…19280 45 41 4c 20 53 3a 42 54 41 42 20 20 20 20 20 20 20 2a 01 01 00 b2 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 35 20 2d 20 4c 45 4e 47 54 48 20 4f 46 20 52 45 41 4c 20 53 3a 42 54 41 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EAL S:BTAB * B P* A5 - LENGTH OF REAL S:BTAB ┆
0x19280…192d0 20 20 20 20 20 20 20 2a 01 01 00 f8 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 01 ┆ * B P* * ┆
0x192d0…192e2 01 3e 00 42 00 50 2a 20 20 45 58 49 54 3a 20 20 20 20 ┆ > B P* EXIT: ┆
0x192e2…19332 (258, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 01 01 84 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * B P* ┆
0x19332…19382 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 02 00 3a 00 42 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2d 41 37 20 20 20 20 20 20 20 ┆ * : B P* WORK REGISTERS: A1-A7 ┆
0x19382…193d2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 02 00 80 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * B P* ┆
0x193d2…19422 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 02 00 c6 00 42 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * B P* SUBROUTINES: ┆
0x19422…19472 20 20 20 20 20 20 20 20 20 2a 01 02 01 0c 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ * B P* *┆
0x19472…194c2 (259, 0, 400) 01 02 01 52 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 03 00 08 00 0a 00 50 5c 45 ┆ R B P************************************************************** P E┆
0x194c2…19512 4a 45 43 54 01 03 00 4e 00 10 00 50 42 3a 52 53 57 54 5c 45 51 55 5c 2a 01 03 00 5c 00 2a 00 50 5c 4c 44 52 5c 41 38 2c 41 32 5c 53 41 56 45 20 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 42 4c 4f 43 4b 01 03 00 70 00 38 00 50 5c 4c ┆JECT N PB:RSWT EQU * * P LDR A8,A2 SAVE POINTER TO FIRST BLOCK p 8 P L┆
0x19512…19562 44 5c 41 31 2c 41 50 43 42 4c 4b 2b 53 54 4b 45 4e 44 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 41 50 4c 2e 43 4f 4e 54 52 4f 4c 20 54 41 42 4c 45 20 01 03 00 9e 00 30 00 50 5c 4c 44 5c 41 31 2c 41 50 4c 53 57 42 2c 41 31 5c 50 4f 49 4e 54 ┆D A1,APCBLK+STKEND GET START OF APL.CONTROL TABLE 0 P LD A1,APLSWB,A1 POINT┆
0x19562…195b2 45 52 20 54 4f 20 53 57 42 20 42 4c 4f 43 4b 20 54 41 42 4c 45 20 01 03 00 da 00 2a 00 50 5c 52 46 28 5a 29 5c 52 53 57 42 45 58 5c 4e 4f 20 53 57 42 3a 53 20 49 4e 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 01 03 01 0e 00 20 00 50 5c 4c 44 52 ┆ER TO SWB BLOCK TABLE * P RF(Z) RSWBEX NO SWB:S IN APPLICATION P LDR┆
0x195b2…19602 2a 5c 41 33 2c 41 31 5c 4e 55 4d 42 45 52 20 4f 46 20 54 59 50 45 53 20 01 03 01 3c 00 1a 00 50 5c 52 46 28 5a 29 5c 52 53 57 42 45 58 5c 4e 4f 20 4d 4f 4f 52 45 01 03 01 60 00 0e 00 50 5c 4c 44 4b 5c 41 36 2c 30 20 01 03 01 7e 00 1e 00 50 ┆* A3,A1 NUMBER OF TYPES < P RF(Z) RSWBEX NO MOORE ` P LDK A6,0 ~ P┆
0x19602…19652 (260, 0, 400) 5c 53 55 4b 5c 41 35 2c 32 5c 53 4b 49 50 20 4c 45 4e 47 54 48 20 57 4f 52 44 01 03 01 90 00 1e 00 50 52 53 57 42 31 30 5c 41 44 4b 5c 41 31 2c 32 5c 4e 45 58 54 20 54 59 50 45 20 01 04 00 22 00 20 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 5c ┆ SUK A5,2 SKIP LENGTH WORD PRSWB10 ADK A1,2 NEXT TYPE " P LDR* A4,A1 ┆
0x19652…196a2 50 4f 49 4e 54 45 52 20 54 4f 20 42 4c 4f 43 4b 01 04 00 44 00 20 00 50 5c 4c 43 52 5c 41 36 2c 41 34 5c 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 20 01 04 00 68 00 24 00 50 5c 4c 44 5c 41 37 2c 53 57 42 4c 45 4e 2c 41 34 5c 4c 45 4e ┆POINTER TO BLOCK D P LCR A6,A4 NUMBER OF COPIES h $ P LD A7,SWBLEN,A4 LEN┆
0x196a2…196f2 47 54 48 20 49 4e 20 42 59 54 45 53 01 04 00 8c 00 08 00 50 5c 58 49 46 01 04 00 b4 00 18 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 2b 53 57 50 42 4c 4b 3d 32 01 04 00 c0 00 26 00 50 5c 45 53 5c 41 36 2c 32 2c 41 32 5c 53 54 4f 52 45 20 4e 55 ┆GTH IN BYTES P XIF P IFT MMUPAG+SWPBLK=2 & P ES A6,2,A2 STORE NU┆
0x196f2…19742 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 01 04 00 dc 00 2c 00 50 5c 45 53 5c 41 37 2c 34 2c 41 32 5c 53 54 4f 52 45 20 4c 45 4e 47 54 48 20 4f 46 20 53 57 42 20 49 4e 20 42 59 54 45 53 01 04 01 06 00 08 00 50 5c 58 49 46 01 04 01 36 00 18 ┆MBER OF COPIES , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF 6 ┆
0x19742…19792 00 50 5c 49 46 54 5c 53 57 50 42 4c 4b 2d 4d 4d 55 50 41 47 3d 31 01 04 01 42 00 26 00 50 5c 53 54 5c 41 36 2c 32 2c 41 32 5c 53 54 4f 52 45 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 01 04 01 5e 00 2c 00 50 5c 53 54 5c 41 37 2c 34 ┆ P IFT SWPBLK-MMUPAG=1 B & P ST A6,2,A2 STORE NUMBER OF COPIES ^ , P ST A7,4┆
0x19792…197e2 (261, 0, 400) 2c 41 32 5c 53 54 4f 52 45 20 4c 45 4e 47 54 48 20 4f 46 20 53 57 42 20 49 4e 20 42 59 54 45 53 01 04 01 88 00 08 00 50 5c 58 49 46 01 05 00 28 00 12 00 50 5c 49 46 54 5c 53 57 50 42 4c 4b 3d 31 20 01 05 00 34 00 26 00 50 5c 53 55 4b 5c 41 ┆,A2 STORE LENGTH OF SWB IN BYTES P XIF ( P IFT SWPBLK=1 4 & P SUK A┆
0x197e2…19832 35 2c 36 5c 44 45 43 52 45 4d 45 4e 54 53 20 53 3a 42 54 41 42 20 4c 45 4e 47 54 48 01 05 00 4a 00 28 00 50 5c 41 44 4b 5c 41 32 2c 36 5c 49 4e 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 49 4e 20 42 4c 4f 43 4b 01 05 00 74 00 28 00 50 ┆5,6 DECREMENTS S:BTAB LENGTH J ( P ADK A2,6 INCREMENT POINTER IN BLOCK t ( P┆
0x19832…19882 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 59 50 45 53 20 01 05 00 a0 00 12 00 50 5c 52 42 28 50 29 5c 52 53 57 42 31 30 20 01 05 00 cc 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 01 05 00 e2 ┆ SUK A3,1 DECREMENT NUMBER OF TYPES P RB(P) RSWB10 P LDR A4,A2 ┆
0x19882…198d2 00 06 00 50 2a 20 01 05 00 f4 00 34 00 50 2a 20 20 49 4e 49 54 20 50 4f 49 4e 54 45 52 53 20 54 4f 20 54 49 44 20 42 4c 4f 43 4b 53 20 46 4f 52 20 45 41 43 48 20 53 57 42 20 54 59 50 45 01 05 00 fe 00 28 00 50 2a 20 20 41 4e 44 20 52 45 53 ┆ P* 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND RES┆
0x198d2…19922 45 54 20 41 4c 4c 20 57 4f 52 44 53 20 49 4e 20 54 49 44 20 42 4c 4f 43 4b 53 01 05 01 36 00 06 00 50 2a 20 01 05 01 62 00 10 00 50 52 53 57 42 32 30 5c 45 51 55 5c 2a 01 05 01 6c 00 28 00 50 5c 4c 44 52 5c 41 36 2c 41 32 5c 47 45 54 20 41 ┆ET ALL WORDS IN TID BLOCKS 6 P* b PRSWB20 EQU * l ( P LDR A6,A2 GET A┆
0x19922…19972 (262, 0, 400) 44 44 52 45 53 53 20 54 4f 20 54 49 44 20 42 4c 4f 43 4b 20 01 05 01 80 00 24 00 50 5c 53 55 52 5c 41 36 2c 41 38 5c 43 4f 4d 50 55 54 45 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 01 06 00 1c 00 18 00 50 5c 49 46 54 5c 53 57 50 42 4c 4b 2d ┆DDRESS TO TID BLOCK $ P SUR A6,A8 COMPUTE DISPLACEMENT P IFT SWPBLK-┆
0x19972…199c2 4d 4d 55 50 41 47 3d 31 01 06 00 44 00 20 00 50 5c 4c 44 5c 41 31 2c 32 2c 41 38 5c 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 01 06 00 60 00 1c 00 50 5c 52 46 28 5a 29 5c 52 53 57 42 35 30 5c 4e 4f 20 43 4f 50 49 45 53 21 01 06 00 84 ┆MMUPAG=1 D P LD A1,2,A8 NUMBER OF COPIES ` P RF(Z) RSWB50 NO COPIES! ┆
0x199c2…19a12 00 2a 00 50 5c 53 54 52 5c 41 36 2c 41 38 5c 53 54 4f 52 45 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 49 44 20 42 4c 4f 43 4b 20 01 06 00 a4 00 1e 00 50 52 53 57 42 33 30 5c 53 54 52 5c 41 33 2c 41 32 5c 52 45 53 45 54 20 54 49 44 01 06 00 d2 ┆ * P STR A6,A8 STORE POINTER TO TID BLOCK PRSWB30 STR A3,A2 RESET TID ┆
0x19a12…19a62 00 2c 00 50 5c 41 44 4b 5c 41 32 2c 32 5c 49 4e 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 49 4e 20 54 49 44 20 42 4c 4f 43 4b 01 06 00 f4 00 2e 00 50 5c 53 55 4b 5c 41 35 2c 32 5c 44 45 43 52 45 4d 45 4e 54 20 4c 45 4e 47 54 48 20 4f ┆ , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH O┆
0x19a62…19ab2 46 20 52 45 41 4c 20 53 3a 42 54 41 42 20 01 06 01 24 00 24 00 50 5c 53 55 4b 5c 41 31 2c 31 5c 44 45 43 52 2e 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 01 06 01 56 00 1c 00 50 5c 52 42 28 50 29 5c 52 53 57 42 33 30 5c 4e 45 58 54 ┆F REAL S:BTAB $ $ P SUK A1,1 DECR. NUMBER OF COPIES V P RB(P) RSWB30 NEXT┆
0x19ab2…19b02 (263, 0, 400) 20 43 4f 50 59 20 01 06 01 7e 00 08 00 50 5c 58 49 46 01 07 00 0e 00 18 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 2b 53 57 50 42 4c 4b 3d 32 01 07 00 1a 00 24 00 50 5c 45 4c 5c 41 31 2c 32 2c 41 38 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 ┆ COPY ~ P XIF P IFT MMUPAG+SWPBLK=2 $ P EL A1,2,A8 GET NUMBER OF ┆
0x19b02…19b52 43 4f 50 49 45 53 01 07 00 36 00 1c 00 50 5c 52 46 28 5a 29 5c 52 53 57 42 35 30 5c 4e 4f 20 43 4f 50 49 45 53 21 01 07 00 5e 00 2a 00 50 5c 45 53 52 5c 41 36 2c 41 38 5c 53 54 4f 52 45 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 49 44 20 42 4c ┆COPIES 6 P RF(Z) RSWB50 NO COPIES! ^ * P ESR A6,A8 STORE POINTER TO TID BL┆
0x19b52…19ba2 4f 43 4b 20 01 07 00 7e 00 1e 00 50 52 53 57 42 34 30 5c 45 53 52 5c 41 33 2c 41 32 5c 52 45 53 45 54 20 54 49 44 01 07 00 ac 00 2c 00 50 5c 41 44 4b 5c 41 32 2c 32 5c 49 4e 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 49 4e 20 54 49 44 ┆OCK ~ PRSWB40 ESR A3,A2 RESET TID , P ADK A2,2 INCREMENT POINTER IN TID┆
0x19ba2…19bf2 20 42 4c 4f 43 4b 01 07 00 ce 00 2e 00 50 5c 53 55 4b 5c 41 35 2c 32 5c 44 45 43 52 45 4d 45 4e 54 20 4c 45 4e 47 54 48 20 4f 46 20 52 45 41 4c 20 53 3a 42 54 41 42 20 01 07 00 fe 00 28 00 50 5c 53 55 4b 5c 41 31 2c 31 5c 44 45 43 52 45 4d ┆ BLOCK . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREM┆
0x19bf2…19c42 45 4e 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 01 07 01 30 00 1c 00 50 5c 52 42 28 50 29 5c 52 53 57 42 34 30 5c 4e 45 58 54 20 43 4f 50 59 20 01 07 01 5c 00 08 00 50 5c 58 49 46 01 07 01 7c 00 12 00 50 5c 49 46 54 5c 53 57 50 ┆ENT NUMBER OF COPIES 0 P RB(P) RSWB40 NEXT COPY P XIF | P IFT SWP┆
0x19c42…19c92 (264, 2, 274) 42 4c 4b 3d 31 20 01 07 01 88 00 14 00 50 52 53 57 42 35 30 5c 41 44 4b 4c 5c 41 38 2c 36 01 08 00 0e 00 0e 00 50 5c 43 57 52 5c 41 38 2c 41 34 01 08 00 26 00 12 00 50 5c 52 42 28 4e 45 29 5c 52 53 57 42 32 30 01 08 00 38 00 22 00 50 5c 4c ┆BLK=1 PRSWB50 ADKL A8,6 P CWR A8,A4 & P RB(NE) RSWB20 8 " P L┆
0x19c92…19ce2 44 52 5c 41 35 2c 41 35 5c 53 3a 42 54 41 42 20 43 4f 4e 53 49 53 54 45 4e 54 3f 20 01 08 00 4e 00 16 00 50 5c 52 46 28 5a 29 5c 52 53 57 42 45 58 5c 59 45 53 20 01 08 00 74 00 1c 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 36 5c 53 57 42 20 ┆DR A5,A5 S:BTAB CONSISTENT? N P RF(Z) RSWBEX YES t P LDKL A1,LMP6 SWB ┆
0x19ce2…19d32 45 52 52 4f 52 21 01 08 00 8e 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 01 08 00 ae 00 12 00 50 52 53 57 42 45 58 5c 52 54 4e 5c 41 31 34 01 08 00 c2 00 08 00 50 5c 58 49 46 01 08 00 d8 00 10 00 50 4c 43 52 45 4e 44 5c 45 51 55 5c 2a ┆ERROR! P CALL ERROR PRSWBEX RTN A14 P XIF PLCREND EQU *┆
0x19d32…19d54 01 08 00 e4 00 06 00 50 5c 20 01 08 00 f8 00 08 00 50 5c 45 4e 44 01 08 01 02 40 04 00 00 01 08 01 0e ┆ P P END @ ┆
0x19d54…19d5c (265, 1, 8) 20 04 00 00 01 09 00 04 ┆ ┆
0x19d5c…19dac (266, 0, 400) 46 20 52 45 43 4f 52 44 00 a9 01 7e 00 30 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 4e 4f 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 54 4f 20 4d 4f 56 45 00 aa 00 10 00 0e 00 50 5c 43 41 4c 4c 5c 4d 4f 56 45 00 aa ┆F RECORD ~ 0 P ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE P CALL MOVE ┆
0x19dac…19dfc 00 44 00 20 00 50 5c 41 44 4b 4c 5c 41 31 30 2c 32 5c 53 4b 49 50 20 4e 45 58 54 20 52 45 43 4f 52 44 00 aa 00 56 00 06 00 50 2a 20 00 aa 00 7a 00 2e 00 50 5c 41 44 4b 4c 5c 41 38 2c 52 45 43 4c 45 4e 2b 31 5c 49 4e 43 52 45 4d 45 4e 54 20 ┆ D P ADKL A10,2 SKIP NEXT RECORD V P* z . P ADKL A8,RECLEN+1 INCREMENT ┆
0x19dfc…19e4c 52 45 43 4f 52 44 20 50 4f 49 4e 54 45 52 00 aa 00 84 00 28 00 50 5c 43 57 5c 41 38 2c 50 4c 44 41 44 52 2b 53 54 4b 45 4e 44 5c 45 4e 44 20 4f 46 20 42 55 46 46 45 52 3f 20 00 aa 00 b6 00 16 00 50 5c 52 46 28 4c 29 5c 43 4f 52 3a 34 38 5c ┆RECORD POINTER ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 ┆
0x19e4c…19e9c 4e 4f 21 20 00 aa 00 e2 00 06 00 50 2a 20 00 aa 00 fc 00 28 00 50 5c 43 46 5c 41 31 34 2c 52 44 53 45 43 5c 59 45 53 2c 20 52 45 41 44 20 4e 45 58 54 20 53 45 43 54 4f 52 20 00 aa 01 06 00 26 00 50 5c 4c 44 52 5c 41 38 2c 41 39 5c 41 4e 44 ┆NO! P* ( P CF A14,RDSEC YES, READ NEXT SECTOR & P LDR A8,A9 AND┆
0x19e9c…19eec 20 47 45 54 20 53 54 41 52 54 20 4f 46 20 42 55 46 46 45 52 00 aa 01 32 00 0e 00 50 5c 52 46 5c 43 4f 52 3a 34 38 00 aa 01 5c 00 06 00 50 2a 20 00 aa 01 6e 00 10 00 50 43 4f 52 3a 32 35 5c 45 51 55 5c 2a 00 aa 01 78 00 3a 00 50 5c 4c 44 5c ┆ GET START OF BUFFER 2 P RF COR:48 P* n PCOR:25 EQU * x : P LD ┆
0x19eec…19f3c (267, 0, 398) 41 35 2c 45 49 4e 50 42 46 2b 53 54 4b 45 4e 44 5c 43 55 52 52 45 4e 54 20 50 4f 53 49 54 49 4f 4e 20 49 4e 20 43 4f 4e 46 2e 20 44 41 54 41 5c 3d 36 00 aa 01 8c 00 38 00 50 5c 53 55 5c 41 35 2c 43 4f 4e 53 54 41 2b 53 54 4b 43 4f 4d 5c 43 ┆A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6 8 P SU A5,CONSTA+STKCOM C┆
0x19f3c…19f8c 41 4c 43 55 4c 41 54 45 20 52 45 4c 41 54 49 56 45 20 50 4f 53 49 54 49 4f 4e 5c 3d 36 20 00 ab 00 3a 00 20 00 50 5c 53 54 5c 41 35 2c 44 43 42 4c 4b 2b 53 54 4b 43 4f 4d 5c 53 41 56 45 5c 3d 36 20 00 ab 00 76 00 10 00 50 43 4f 52 3a 33 30 ┆ALCULATE RELATIVE POSITION =6 : P ST A5,DCBLK+STKCOM SAVE =6 v PCOR:30┆
0x19f8c…19fdc 5c 45 51 55 5c 2a 00 ab 00 9a 00 1c 00 50 5c 4c 43 52 5c 41 35 2c 41 34 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 00 ab 00 ae 00 20 00 50 5c 43 43 4b 5c 41 35 2c 27 3b 3b 27 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 3f 20 00 ab 00 ce 00 16 ┆ EQU * P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? ┆
0x19fdc…1a02c 00 50 5c 52 46 28 45 29 5c 43 4f 52 3a 34 30 5c 59 45 53 21 00 ab 00 f2 00 10 00 50 43 4f 52 3a 33 35 5c 45 51 55 5c 2a 00 ab 01 0c 00 2a 00 50 5c 43 57 4b 5c 41 33 2c 52 45 43 4c 45 4e 5c 4d 41 58 49 4d 55 4d 20 53 49 5a 45 20 41 43 48 49 ┆ P RF(E) COR:40 YES! PCOR:35 EQU * * P CWK A3,RECLEN MAXIMUM SIZE ACHI┆
0x1a02c…1a07a 45 56 45 44 3f 20 00 ab 01 20 00 16 00 50 5c 52 46 28 45 29 5c 43 4f 52 3a 34 30 5c 59 45 53 21 00 ab 01 4e 00 2a 00 50 5c 43 57 5c 41 31 2c 45 53 59 53 54 41 2b 53 54 4b 45 4e 44 5c 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 3f 20 ┆EVED? P RF(E) COR:40 YES! N * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? ┆
0x1a07a…1a0ca (268, 0, 400) 00 ab 01 68 00 16 00 50 5c 52 42 28 45 29 5c 4d 45 4d 4f 46 4c 5c 59 45 53 21 00 ac 00 08 00 26 00 50 5c 41 44 4b 5c 41 31 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 00 ac 00 22 00 2a 00 50 5c 41 44 4b ┆ h P RB(E) MEMOFL YES! & P ADK A1,1 INCREMENT BUFFER POINTER " * P ADK┆
0x1a0ca…1a11a 5c 41 33 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 43 48 41 52 41 43 54 45 52 20 43 4f 55 4e 54 45 52 20 00 ac 00 4c 00 26 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 52 45 43 4f 52 44 20 50 4f 49 4e 54 45 52 00 ac 00 7a ┆ A3,1 INCREMENT CHARACTER COUNTER L & P ADK A4,1 INCREMENT RECORD POINTER z┆
0x1a11a…1a16a 00 14 00 50 5c 52 42 5c 43 4f 52 3a 33 30 5c 4c 4f 4f 50 20 00 ac 00 a4 00 10 00 50 43 4f 52 3a 34 30 5c 45 51 55 5c 2a 00 ac 00 bc 00 22 00 50 5c 4c 43 5c 41 35 2c 31 2c 41 34 5c 47 45 54 20 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 00 ac ┆ P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER ┆
0x1a16a…1a1ba 00 d0 00 20 00 50 5c 43 43 4b 5c 41 35 2c 27 3b 3b 27 5c 54 57 4f 20 53 45 4d 49 43 4f 4c 4f 4e 53 3f 00 ac 00 f6 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 4f 52 3a 34 35 5c 4e 4f 21 00 ac 01 1a 00 2a 00 50 5c 43 57 4b 5c 41 33 2c 4e 43 48 54 ┆ P CCK A5,';;' TWO SEMICOLONS? P RF(NE) COR:45 NO! * P CWK A3,NCHT┆
0x1a1ba…1a20a 49 44 5c 43 48 45 43 4b 20 49 46 20 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 20 00 ac 01 34 00 34 00 50 5c 52 42 28 45 29 5c 43 4f 52 3a 33 35 5c 4e 4f 3a 20 53 45 4d 49 43 4f 4c 4f 4e 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 52 45 43 4f 52 ┆ID CHECK IF END OF RECORD 4 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECOR┆