|
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: 4672 (0x1240)
Notes: pts_type(SC)
Names: »LKMAL.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/LKMAL.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/LKMAL.SC«
IDENT LKMAL REL 11.0 81-01-26 870105041100 * * LINK TO MONITOR REQUEST TABLE * THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE * DIFFERENT LINK TO MONITOR REQUESTS * ENTRY LKMAL TABLE ENTRY CONTAINS TABLE LENGTH * EXTRN TIO TERMINAL I/O EXTRN TWAIT TERMINAL WAIT EXTRN TEXIT TERMINAL EXIT EXTRN TACTOT ACTIVATE OTHER TERMINAL EXTRN TPAUSE PAUSE TERMINAL EXTRN TIMER TIMER EXTRN TMWAIT MULTIPLE WAIT EXTRN TLUSEG LOCK/UNLOCK SEGMENT EXTRN TLDSEG SEGMENT TLDSEG EXTRN TABORT ABORT FUNCTION EXTRN TDATE GET/SET DATE EXTRN SETTIM SET MONITOR CLOCK EXTRN GETTIM GET CURRENT VALUE OF MONITOR CLOCK * EXTRN TIOFM FILE MANAGEMENT EXTRN DMTEND DATA MANAGEMENT COMMIT EXTRN TCHPAG CHANGE MMU PAGE EXTRN TCHMMU CHANGE MMU TABLE EXTRN TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK EXTRN TMOVE MOVE EXTRN TENEDM TENDIO FOR EDM EXTRN TLDPGM,TPAGAL BASIC * * * * * * * * * * * * * * * * * * EJECT * LKMAL DATA LKMALE-* TABLE LENGTH DATA TIO TERMINAL I/O DATA TWAIT TERMINAL WAIT DATA TEXIT TERMINAL EXIT DATA TACTOT ACTIVATE OTHER TERMINAL DATA TPAUSE TERMINAL PAUSE DATA TIMER TIMER DATA TMWAIT MULTIPLE WAIT DATA TLUSEG LOCK/UNLOCK SEGMENT DATA TLDSEG SEGMENT TLDSEG DATA TABORT ABORT FUNCTION DATA TDATE GET/SET DATE DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK DATA SETTIM SET MONITOR CLOCK DATA 0 DATA TIOFM FILE MANAGEMENT DATA DMTEND DATA MANAGEMENT COMMIT DATA TCHPAG CHANGE MMU PAGE DATA TCHMMU CHANGE MMU TABLE DATA TSWBLK LOAD SWAPPABLE WORK BLOCK DATA TSWBLK STORE SWAPPABLE WORK BLOCK DATA TMOVE MOVE DATA TENEDM TENDIO FOR EDM DATA 0 DATA 0 DATA TLDPGM DATA TPAGAL LKMALE EQU * * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT LKMAL REL 11.0 81-01-26 870105041100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x0046…006e Head {h00=0x0024, h01=0x0050, text=»* LINK TO MONITOR REQUEST TABLE «, t00=0x0000, t01=0x004a}
0x006e…00b2 Head {h00=0x0040, h01=0x0050, text=»* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE«, t00=0x0000, t01=0x0072}
0x00b2…00de Head {h00=0x0028, h01=0x0050, text=»* DIFFERENT LINK TO MONITOR REQUESTS«, t00=0x0000, t01=0x00b6}
0x00de…00e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e2}
0x00e8…011e Head {h00=0x0032, h01=0x0050, text=» ENTRY LKMAL TABLE ENTRY CONTAINS TABLE LENGTH«, t00=0x0000, t01=0x00ec}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0148 Head {h00=0x001c, h01=0x0050, text=» EXTRN TIO TERMINAL I/O «, t00=0x0000, t01=0x012c}
0x0148…016a Head {h00=0x001e, h01=0x0050, text=» EXTRN TWAIT TERMINAL WAIT«, t00=0x0000, t01=0x014c}
0x016a…018c Head {h00=0x001e, h01=0x0050, text=» EXTRN TEXIT TERMINAL EXIT«, t00=0x0000, t01=0x016e}
0x018c…01ba Head {h00=0x002a, h01=0x0050, text=» EXTRN TACTOT ACTIVATE OTHER TERMINAL «, t00=0x0000, t01=0x0190}
0x01ba…01de Head {h00=0x0020, h01=0x0050, text=» EXTRN TPAUSE PAUSE TERMINAL«, t00=0x0001, t01=0x002e}
0x01de…01f8 Head {h00=0x0016, h01=0x0050, text=» EXTRN TIMER TIMER«, t00=0x0001, t01=0x0052}
0x01f8…021c Head {h00=0x0020, h01=0x0050, text=» EXTRN TMWAIT MULTIPLE WAIT «, t00=0x0001, t01=0x006c}
0x021c…0246 Head {h00=0x0026, h01=0x0050, text=» EXTRN TLUSEG LOCK/UNLOCK SEGMENT «, t00=0x0001, t01=0x0090}
0x0246…026a Head {h00=0x0020, h01=0x0050, text=» EXTRN TLDSEG SEGMENT TLDSEG«, t00=0x0001, t01=0x00ba}
0x026a…028e Head {h00=0x0020, h01=0x0050, text=» EXTRN TABORT ABORT FUNCTION«, t00=0x0001, t01=0x00de}
0x028e…02b0 Head {h00=0x001e, h01=0x0050, text=» EXTRN TDATE GET/SET DATE «, t00=0x0001, t01=0x0102}
0x02b0…02d8 Head {h00=0x0024, h01=0x0050, text=» EXTRN SETTIM SET MONITOR CLOCK «, t00=0x0001, t01=0x0124}
0x02d8…0310 Head {h00=0x0034, h01=0x0050, text=» EXTRN GETTIM GET CURRENT VALUE OF MONITOR CLOCK«, t00=0x0001, t01=0x014c}
0x0310…031a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0184}
0x031a…033e Head {h00=0x0020, h01=0x0050, text=» EXTRN TIOFM FILE MANAGEMENT«, t00=0x0001, t01=0x018e}
0x033e…036a Head {h00=0x0028, h01=0x0050, text=» EXTRN DMTEND DATA MANAGEMENT COMMIT«, t00=0x0002, t01=0x0022}
0x036a…0390 Head {h00=0x0022, h01=0x0050, text=» EXTRN TCHPAG CHANGE MMU PAGE «, t00=0x0002, t01=0x004e}
0x0390…03b6 Head {h00=0x0022, h01=0x0050, text=» EXTRN TCHMMU CHANGE MMU TABLE«, t00=0x0002, t01=0x0074}
0x03b6…03ec Head {h00=0x0032, h01=0x0050, text=» EXTRN TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK «, t00=0x0002, t01=0x009a}
0x03ec…0406 Head {h00=0x0016, h01=0x0050, text=» EXTRN TMOVE MOVE «, t00=0x0002, t01=0x00d0}
0x0406…042a Head {h00=0x0020, h01=0x0050, text=» EXTRN TENEDM TENDIO FOR EDM«, t00=0x0002, t01=0x00ea}
0x042a…044c Head {h00=0x001e, h01=0x0050, text=» EXTRN TLDPGM,TPAGAL BASIC«, t00=0x0002, t01=0x010e}
0x044c…0456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0130}
0x0456…0460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x0460…046a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0144}
0x046a…0474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014e}
0x0474…047e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0158}
0x047e…0488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0162}
0x0488…0492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0492…049c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0176}
0x049c…04a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0180}
0x04a6…04b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018a}
0x04b0…04ba (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04ba…04c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000e}
0x04c4…04ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0018}
0x04ce…04d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0022}
0x04d8…04e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002c}
0x04e2…04ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0036}
0x04ec…04f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0040}
0x04f6…0500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004a}
0x0500…050e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0054}
0x050e…0518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0062}
0x0518…0540 Head {h00=0x0024, h01=0x0050, text=»LKMAL DATA LKMALE-* TABLE LENGTH«, t00=0x0003, t01=0x006c}
0x0540…055e Head {h00=0x001a, h01=0x0050, text=» DATA TIO TERMINAL I/O«, t00=0x0003, t01=0x0094}
0x055e…0580 Head {h00=0x001e, h01=0x0050, text=» DATA TWAIT TERMINAL WAIT «, t00=0x0003, t01=0x00b2}
0x0580…05a2 Head {h00=0x001e, h01=0x0050, text=» DATA TEXIT TERMINAL EXIT «, t00=0x0003, t01=0x00d4}
0x05a2…05ce Head {h00=0x0028, h01=0x0050, text=» DATA TACTOT ACTIVATE OTHER TERMINAL«, t00=0x0003, t01=0x00f6}
0x05ce…05f2 Head {h00=0x0020, h01=0x0050, text=» DATA TPAUSE TERMINAL PAUSE «, t00=0x0003, t01=0x0122}
0x05f2…060c Head {h00=0x0016, h01=0x0050, text=» DATA TIMER TIMER «, t00=0x0003, t01=0x0146}
0x060c…062e Head {h00=0x001e, h01=0x0050, text=» DATA TMWAIT MULTIPLE WAIT«, t00=0x0003, t01=0x0160}
0x062e…0656 Head {h00=0x0024, h01=0x0050, text=» DATA TLUSEG LOCK/UNLOCK SEGMENT«, t00=0x0003, t01=0x0182}
0x0656…067a Head {h00=0x0020, h01=0x0050, text=» DATA TLDSEG SEGMENT TLDSEG «, t00=0x0004, t01=0x001a}
0x067a…069e Head {h00=0x0020, h01=0x0050, text=» DATA TABORT ABORT FUNCTION «, t00=0x0004, t01=0x003e}
0x069e…06be Head {h00=0x001c, h01=0x0050, text=» DATA TDATE GET/SET DATE«, t00=0x0004, t01=0x0062}
0x06be…06f6 Head {h00=0x0034, h01=0x0050, text=» DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK «, t00=0x0004, t01=0x0082}
0x06f6…071c Head {h00=0x0022, h01=0x0050, text=» DATA SETTIM SET MONITOR CLOCK«, t00=0x0004, t01=0x00ba}
0x071c…072c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0004, t01=0x00e0}
0x072c…0750 Head {h00=0x0020, h01=0x0050, text=» DATA TIOFM FILE MANAGEMENT «, t00=0x0004, t01=0x00f0}
0x0750…077c Head {h00=0x0028, h01=0x0050, text=» DATA DMTEND DATA MANAGEMENT COMMIT «, t00=0x0004, t01=0x0114}
0x077c…07a0 Head {h00=0x0020, h01=0x0050, text=» DATA TCHPAG CHANGE MMU PAGE«, t00=0x0004, t01=0x0140}
0x07a0…07c6 Head {h00=0x0022, h01=0x0050, text=» DATA TCHMMU CHANGE MMU TABLE «, t00=0x0004, t01=0x0164}
0x07c6…07f4 Head {h00=0x002a, h01=0x0050, text=» DATA TSWBLK LOAD SWAPPABLE WORK BLOCK«, t00=0x0004, t01=0x018a}
0x07f4…0824 Head {h00=0x002c, h01=0x0050, text=» DATA TSWBLK STORE SWAPPABLE WORK BLOCK «, t00=0x0005, t01=0x0028}
0x0824…083c Head {h00=0x0014, h01=0x0050, text=» DATA TMOVE MOVE«, t00=0x0005, t01=0x0058}
0x083c…0860 Head {h00=0x0020, h01=0x0050, text=» DATA TENEDM TENDIO FOR EDM «, t00=0x0005, t01=0x0070}
0x0860…0870 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0005, t01=0x0094}
0x0870…0880 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0005, t01=0x00a4}
0x0880…0894 Head {h00=0x0010, h01=0x0050, text=» DATA TLDPGM«, t00=0x0005, t01=0x00b4}
0x0894…08a8 Head {h00=0x0010, h01=0x0050, text=» DATA TPAGAL«, t00=0x0005, t01=0x00c8}
0x08a8…08bc Head {h00=0x0010, h01=0x0050, text=»LKMALE EQU *«, t00=0x0005, t01=0x00dc}
0x08bc…08c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f0}
0x08c6…08d2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0005, t01=0x00fa}
0x08d2…08d6 Head {h00=0x4004, h01=0x0000}
0x08d6…08da 00 05 01 06 ┆ ┆
0x08da…08e2 (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x08e2…0932 (7, 0, 400) 00 06 00 50 2a 20 00 0f 00 04 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 31 20 20 3d 20 30 00 0f 00 0e 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 35 20 20 3d 20 54 54 41 42 20 41 44 44 52 45 53 53 20 4f 46 ┆ P* P* A1 = 0 6 P* A5 = TTAB ADDRESS OF┆
0x0932…0982 20 43 41 4c 4c 49 4e 47 20 54 41 53 4b 20 00 0f 00 2c 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 38 20 20 3d 20 46 4d 20 45 43 42 20 41 44 44 52 45 53 53 20 00 0f 00 66 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALLING TASK , ( P* A8 = FM ECB ADDRESS f * P* ┆
0x0982…09d2 20 41 39 20 20 3d 20 55 53 45 52 20 45 43 42 20 41 44 44 52 45 53 53 20 00 0f 00 92 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 31 30 20 3d 20 46 49 4c 45 20 50 41 52 41 4d 45 54 45 52 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 ┆ A9 = USER ECB ADDRESS 6 P* A10 = FILE PARAMETER BLOCK ADDRES┆
0x09d2…0a22 53 20 00 0f 00 c0 00 06 00 50 2a 20 00 0f 00 fa 00 06 00 50 2a 20 00 0f 01 04 00 10 00 50 43 52 45 41 54 45 5c 45 51 55 5c 2a 00 0f 01 0e 00 36 00 50 5c 43 46 5c 41 31 34 2c 43 45 4e 54 52 59 5c 43 4c 45 41 52 20 57 4f 52 4b 20 41 52 45 41 ┆S P* P* PCREATE EQU * 6 P CF A14,CENTRY CLEAR WORK AREA┆
0x0a22…0a72 20 41 4e 44 20 53 41 56 45 20 50 41 52 41 4d 45 54 45 52 53 00 0f 01 22 00 1c 00 50 5c 4c 44 4b 5c 41 35 2c 33 5c 56 4f 4c 55 4d 45 20 43 4f 55 4e 54 45 52 00 0f 01 5c 00 10 00 50 43 52 45 3a 30 32 5c 45 51 55 5c 2a 00 0f 01 7c 00 1e 00 50 ┆ AND SAVE PARAMETERS " P LDK A5,3 VOLUME COUNTER PCRE:02 EQU * | P┆
0x0a72…0ac2 (8, 0, 400) 5c 4c 43 5c 41 31 2c 46 49 4c 43 4f 44 2c 41 35 5c 46 49 4c 45 20 43 4f 44 45 00 0f 01 90 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 46 20 00 10 00 22 00 26 00 50 5c 52 46 28 5a 29 5c 43 52 45 3a 30 34 5c 4e 4f 20 56 4f 4c 55 4d 45 20 53 50 ┆ LC A1,FILCOD,A5 FILE CODE P ANK A1,/FF " & P RF(Z) CRE:04 NO VOLUME SP┆
0x0ac2…0b12 45 43 59 46 49 45 44 20 00 10 00 36 00 22 00 50 5c 4c 44 52 5c 41 32 2c 41 35 5c 46 49 4c 45 20 53 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 00 10 00 60 00 24 00 50 5c 43 46 5c 41 31 34 2c 47 45 54 46 49 4c 5c 52 45 51 55 45 53 54 45 44 20 4c ┆ECYFIED 6 " P LDR A2,A5 FILE SECTION NUMBER ` $ P CF A14,GETFIL REQUESTED L┆
0x0b12…0b62 45 4e 47 54 48 20 00 10 00 86 00 24 00 50 5c 52 46 28 4e 5a 29 5c 43 52 45 3a 30 36 5c 4c 45 4e 47 54 48 20 53 50 45 43 59 46 49 45 44 20 00 10 00 ae 00 10 00 50 43 52 45 3a 30 34 5c 45 51 55 5c 2a 00 10 00 d6 00 0e 00 50 5c 53 55 4b 5c 41 ┆ENGTH $ P RF(NZ) CRE:06 LENGTH SPECYFIED PCRE:04 EQU * P SUK A┆
0x0b62…0bb2 35 2c 31 20 00 10 00 ea 00 1e 00 50 5c 52 42 28 4e 4e 29 5c 43 52 45 3a 30 32 5c 4e 45 58 54 20 56 4f 4c 55 4d 45 00 10 00 fc 00 32 00 50 5c 41 42 4c 5c 43 44 45 52 51 45 5c 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 4e 4f 20 4c 45 4e 47 54 ┆5,1 P RB(NN) CRE:02 NEXT VOLUME 2 P ABL CDERQE REQUEST ERROR NO LENGT┆
0x0bb2…0c02 48 20 53 50 45 43 59 46 49 45 44 20 00 10 01 1e 00 06 00 50 2a 20 00 10 01 54 00 12 00 50 5c 45 4a 45 43 54 5c 5c 46 4d 43 44 45 46 00 10 01 5e 00 06 00 50 2a 20 00 10 01 74 00 06 00 50 2a 20 00 10 01 7e 00 1c 00 50 2a 20 20 20 50 52 45 50 ┆H SPECYFIED P* T P EJECT FMCDEF ^ P* t P* ~ P* PREP┆
0x0c02…0c52 (9, 0, 400) 41 52 45 20 56 54 4f 43 20 52 45 43 4f 52 44 20 00 10 01 88 00 06 00 50 2a 20 00 11 00 18 00 06 00 50 2a 20 00 11 00 22 00 10 00 50 43 52 45 3a 30 36 5c 45 51 55 5c 2a 00 11 00 2c 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 11 ┆ARE VTOC RECORD P* P* " PCRE:06 EQU * , P IFT CPU852=1 ┆
0x0c52…0ca2 00 40 00 20 00 50 5c 4c 44 52 5c 41 31 2c 41 31 30 5c 47 45 54 20 46 50 42 20 41 44 44 52 45 53 53 20 00 11 00 56 00 2a 00 50 5c 41 44 4b 4c 5c 41 31 2c 46 50 42 3a 46 4e 5c 46 49 4c 45 20 4e 41 4d 45 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 ┆ @ P LDR A1,A10 GET FPB ADDRESS V * P ADKL A1,FPB:FN FILE NAME DISPLACEMENT┆
0x0ca2…0cf2 00 11 00 7a 00 1c 00 50 5c 4c 44 52 5c 41 33 2c 41 39 5c 56 54 4f 43 20 41 44 44 52 45 53 53 20 00 11 00 a8 00 1c 00 50 5c 43 46 5c 41 31 34 2c 46 4d 3a 4d 56 38 5c 46 49 4c 45 20 4e 41 4d 45 00 11 00 c8 00 08 00 50 5c 58 49 46 00 11 00 e8 ┆ z P LDR A3,A9 VTOC ADDRESS P CF A14,FM:MV8 FILE NAME P XIF ┆
0x0cf2…0d42 00 06 00 50 2a 20 00 11 00 f4 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 11 00 fe 00 1e 00 50 5c 4d 4c 5c 34 2c 46 50 42 3a 46 4e 2c 41 31 30 5c 46 49 4c 45 20 4e 41 4d 45 00 11 01 14 00 14 00 50 5c 4d 53 5c 34 2c 56 54 43 3a ┆ P* P IFT CPU852=0 P ML 4,FPB:FN,A10 FILE NAME P MS 4,VTC:┆
0x0d42…0d92 46 4e 2c 41 39 20 00 11 01 36 00 08 00 50 5c 58 49 46 00 11 01 4e 00 06 00 50 2a 20 00 11 01 5a 00 22 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 30 5c 47 45 54 20 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 00 11 01 64 00 14 00 50 5c 53 54 5c 41 31 ┆FN,A9 6 P XIF N P* Z " P LDR* A1,A10 GET RECORD LENGTH d P ST A1┆
0x0d92…0de2 (10, 0, 400) 2c 56 54 43 3a 52 4c 2c 41 39 00 11 01 8a 00 30 00 50 5c 4c 44 5c 41 31 2c 46 50 42 3a 42 46 2c 41 31 30 5c 42 4c 4f 43 4b 49 4e 47 20 46 41 43 54 4f 52 2c 20 46 49 4c 45 20 4f 52 47 20 00 12 00 12 00 14 00 50 5c 53 54 5c 41 31 2c 56 54 43 ┆,VTC:RL,A9 0 P LD A1,FPB:BF,A10 BLOCKING FACTOR, FILE ORG P ST A1,VTC┆
0x0de2…0e32 3a 42 46 2c 41 39 00 12 00 46 00 06 00 50 2a 20 00 12 00 5e 00 12 00 50 5c 45 4a 45 43 54 5c 5c 46 4d 43 44 45 46 00 12 00 68 00 06 00 50 2a 20 00 12 00 7e 00 06 00 50 2a 20 00 12 00 88 00 10 00 50 5c 4c 44 52 5c 41 31 2c 41 31 30 20 00 12 ┆:BF,A9 F P* ^ P EJECT FMCDEF h P* ~ P* P LDR A1,A10 ┆
0x0e32…0e82 00 92 00 18 00 50 5c 41 44 4b 4c 5c 41 31 2c 46 50 42 3a 43 44 5c 43 52 44 20 00 12 00 a6 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 39 00 12 00 c2 00 14 00 50 5c 41 44 4b 4c 5c 41 33 2c 56 54 43 3a 43 44 20 00 12 00 d4 00 0e 00 50 5c 4c 44 4b ┆ P ADKL A1,FPB:CD CRD P LDR A3,A9 P ADKL A3,VTC:CD P LDK┆
0x0e82…0ed2 5c 41 32 2c 39 20 00 12 00 ec 00 22 00 50 5c 43 46 5c 41 31 34 2c 46 4d 3a 4d 4f 56 5c 43 52 44 2c 52 45 54 20 50 45 52 49 4f 44 20 00 12 00 fe 00 24 00 50 5c 4c 44 4b 5c 41 37 2c 36 5c 4e 55 4d 42 45 52 20 4f 46 20 43 48 41 52 41 43 54 45 ┆ A2,9 " P CF A14,FM:MOV CRD,RET PERIOD $ P LDK A7,6 NUMBER OF CHARACTE┆
0x0ed2…0f22 52 54 53 20 00 12 01 24 00 1e 00 50 5c 53 55 4b 5c 41 33 2c 33 5c 41 44 44 52 45 53 53 20 54 4f 20 43 48 41 52 20 00 12 01 4c 00 10 00 50 43 52 45 3a 31 30 5c 45 51 55 5c 2a 00 12 01 6e 00 1e 00 50 5c 53 55 4b 5c 41 33 2c 32 5c 4e 45 58 54 ┆RTS $ P SUK A3,3 ADDRESS TO CHAR L PCRE:10 EQU * n P SUK A3,2 NEXT┆
0x0f22…0f72 (11, 0, 400) 20 43 48 41 52 41 43 54 45 52 53 20 00 12 01 82 00 10 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 33 20 00 13 00 14 00 1e 00 50 5c 52 46 28 5a 29 5c 43 52 45 3a 32 30 5c 42 49 4e 41 52 59 20 5a 45 52 4f 20 00 13 00 28 00 20 00 50 5c 43 57 4b 5c 41 ┆ CHARACTERS P LDR* A1,A3 P RF(Z) CRE:20 BINARY ZERO ( P CWK A┆
0x0f72…0fc2 31 2c 2f 33 30 33 30 5c 4e 55 4d 45 52 49 43 41 4c 20 5a 45 52 4f 00 13 00 4a 00 12 00 50 5c 52 46 28 4e 45 29 5c 43 52 45 3a 33 30 00 13 00 6e 00 10 00 50 43 52 45 3a 32 30 5c 45 51 55 5c 2a 00 13 00 84 00 16 00 50 5c 53 55 4b 5c 41 37 2c ┆1,/3030 NUMERICAL ZERO J P RF(NE) CRE:30 n PCRE:20 EQU * P SUK A7,┆
0x0fc2…1012 32 5c 43 4f 55 4e 54 45 52 20 00 13 00 98 00 12 00 50 5c 52 42 28 4e 5a 29 5c 43 52 45 3a 31 30 00 13 00 b2 00 1e 00 50 5c 4c 44 52 5c 41 38 2c 41 33 5c 41 44 44 52 45 53 53 20 54 4f 20 43 52 44 20 00 13 00 c8 00 08 00 50 5c 4c 4b 4d 00 13 ┆2 COUNTER P RB(NZ) CRE:10 P LDR A8,A3 ADDRESS TO CRD P LKM ┆
0x1012…1062 00 ea 00 0c 00 50 5c 44 41 54 41 5c 31 31 00 13 00 f6 00 20 00 50 5c 4c 44 4b 4c 5c 41 38 2c 46 4d 3a 45 43 42 5c 45 43 42 20 41 44 44 52 45 53 53 20 00 13 01 06 00 10 00 50 43 52 45 3a 33 30 5c 45 51 55 5c 2a 00 13 01 2a 00 2c 00 50 5c 4c ┆ P DATA 11 P LDKL A8,FM:ECB ECB ADDRESS PCRE:30 EQU * * , P L┆
0x1062…10b2 43 5c 41 32 2c 46 50 42 3a 49 46 2c 41 31 30 5c 4e 55 4d 42 45 52 20 4f 46 20 49 4e 44 45 58 20 46 49 4c 45 53 20 00 13 01 3e 00 22 00 50 5c 4c 44 5c 41 31 2c 46 50 42 3a 4b 41 2c 41 31 30 5c 4b 45 59 20 41 44 44 52 45 53 53 20 00 13 01 6e ┆C A2,FPB:IF,A10 NUMBER OF INDEX FILES > " P LD A1,FPB:KA,A10 KEY ADDRESS n┆
0x10b2…1102 (12, 0, 398) 00 14 00 50 5c 53 43 5c 41 32 2c 56 54 43 3a 49 46 2c 41 39 00 14 00 04 00 14 00 50 5c 53 54 5c 41 31 2c 56 54 43 3a 4b 41 2c 41 39 00 14 00 1c 00 34 00 50 5c 43 46 5c 41 31 34 2c 43 48 4b 46 49 4c 5c 43 48 45 43 4b 20 46 52 4f 4d 20 46 49 ┆ P SC A2,VTC:IF,A9 P ST A1,VTC:KA,A9 4 P CF A14,CHKFIL CHECK FROM FI┆
0x1102…1152 52 53 54 20 46 49 4c 45 20 43 4f 44 45 20 28 41 35 3d 30 29 00 14 00 34 00 32 00 50 5c 52 46 28 4e 5a 29 5c 43 44 45 49 4e 45 5c 46 49 4c 45 20 41 4c 52 45 41 44 59 20 49 4e 20 4f 4e 45 20 4f 46 20 56 4f 4c 55 4d 45 53 20 00 14 00 6c 00 1c ┆RST FILE CODE (A5=0) 4 2 P RF(NZ) CDEINE FILE ALREADY IN ONE OF VOLUMES l ┆
0x1152…11a2 00 50 5c 4c 44 52 5c 41 36 2c 41 31 30 5c 46 50 42 20 41 44 44 52 45 53 53 20 00 14 00 a2 00 14 00 50 5c 41 44 4b 4c 5c 41 36 2c 46 50 42 3a 46 4e 20 00 14 00 c2 00 14 00 50 5c 53 55 4b 4c 5c 41 36 2c 46 57 54 4e 41 4d 20 00 14 00 da 00 24 ┆ P LDR A6,A10 FPB ADDRESS P ADKL A6,FPB:FN P SUKL A6,FWTNAM $┆
0x11a2…11f2 00 50 5c 53 54 5c 41 36 2c 46 57 54 53 41 56 2c 41 39 5c 49 4e 54 4f 20 53 41 56 45 20 41 52 45 41 20 00 14 00 f2 00 06 00 50 2a 20 00 14 01 1a 00 12 00 50 5c 45 4a 45 43 54 5c 5c 46 4d 43 44 45 46 00 14 01 24 00 06 00 50 2a 20 00 14 01 3a ┆ P ST A6,FWTSAV,A9 INTO SAVE AREA P* P EJECT FMCDEF $ P* :┆
0x11f2…1240 00 06 00 50 2a 20 00 14 01 44 00 1c 00 50 2a 20 20 20 43 52 45 41 54 45 20 46 49 4c 45 20 53 45 43 54 49 4f 4e 53 00 14 01 4e 00 06 00 50 2a 20 00 14 01 6e 00 06 00 50 2a 20 00 14 01 78 00 10 00 50 43 52 45 3a 34 30 5c 45 51 55 5c 2a ┆ P* D P* CREATE FILE SECTIONS N P* n P* x PCRE:40 EQU *┆