|
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: 4496 (0x1190)
Notes: pts_type(SC)
Names: »DMINIT.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DMINIT.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/DMINIT.SC«
IDENT DMINIT REL 9.2 79-11-16 870105040920 * **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DMINIT = DATA MANAGEMENT INITIALIZATION * * * * * * **************************************************** * * ALLOCATE AND LINK FDB:S IN THE FDB AREA * CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS * CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK * CLEAR DM FILE CODE ENTRIES IN CD:TAB * * DMINIT IS CALLED AS A PFINIT ROUTINE * * REGISTERS A1 - A6 ARE USED EJECT * ENTRY DMINIT * EXTRN INIFLG EXTRN QFDBFL EXTRN FDBSTA EXTRN FDBEND EXTRN CURBUF EXTRN BUFDMI EXTRN BUFSNR EXTRN BUFOR EXTRN TASBLK EXTRN TASQUE EXTRN CRNQUE,CRNEND EXTRN CRBUFL EJECT * * * IN; A2 = LENGTH * A3= LINK ROOT * A6= AREA END ADDR DMIN30 LDR A4,A3 ADR A4,A2 * * DIV W. 2 FOR 16 K LIMIT * LDR A5,A4 SRL A5,1 LDR A1,A6 SRL A1,1 CWR A5,A1 RF(G) DMIN40 END OF FDB AREA STR A4,A3 CHAIN LDR A3,A4 RB DMIN30 DMIN40 EQU * SUR A3,A2 CMR A3 END OF FDB CHAIN ADKL A15,4 ABR* A15 EJECT * DMINIT EQU * * NO INITIALIZATIONS IF POWER FAIL RESTART * LD A1,INIFLG RF(Z) DMINEX LDKL A2,QFDBFL FDB LENGTH * * CHAIN FDB:S IN THE FDB AREA * LDKL A3,FDBSTA LDKL A6,FDBEND CF A15,DMIN30 * * CHAIN CRN BUFFERS * LDKL A3,CRNQUE+2 ST A3,CRNQUE LDKL A2,CRBUFL LDKL A6,CRNEND CF A15,DMIN30 * * CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS * LDKL A2,/FFFE LD A3,CURBUF DMIN50 LDR* A3,A3 ANRS A2,A3 CLEAR USE BIT CM BUFDMI,A3 CM BUFSNR,A3 CM BUFOR,A3 CW A3,CURBUF RB(NE) DMIN50 * * CLEAR USE BIT AND QUEUE ANCHOR ADDRESS IN TASBLK CM TASBLK CM TASQUE * DMINEX EQU * RTN A15 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DMINIT REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0084 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x004c}
0x0084…008e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00b6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0092}
0x00b6…00c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00f4 Head {h00=0x0030, h01=0x0050, text=»* DMINIT = DATA MANAGEMENT INITIALIZATION «, t00=0x0000, t01=0x00c4}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…0130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…016c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0134}
0x016c…0176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0170}
0x0176…01aa Head {h00=0x0030, h01=0x0050, text=»* ALLOCATE AND LINK FDB:S IN THE FDB AREA «, t00=0x0000, t01=0x017a}
0x01aa…01ec Head {h00=0x003e, h01=0x0050, text=»* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS «, t00=0x0001, t01=0x001e}
0x01ec…0220 Head {h00=0x0030, h01=0x0050, text=»* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK«, t00=0x0001, t01=0x0060}
0x0220…0250 Head {h00=0x002c, h01=0x0050, text=»* CLEAR DM FILE CODE ENTRIES IN CD:TAB«, t00=0x0001, t01=0x0094}
0x0250…025a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c4}
0x025a…028a Head {h00=0x002c, h01=0x0050, text=»* DMINIT IS CALLED AS A PFINIT ROUTINE«, t00=0x0001, t01=0x00ce}
0x028a…0294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02ba Head {h00=0x0022, h01=0x0050, text=»* REGISTERS A1 - A6 ARE USED«, t00=0x0001, t01=0x0108}
0x02ba…02c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x012e}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d2…02e8 Head {h00=0x0012, h01=0x0050, text=» ENTRY DMINIT «, t00=0x0001, t01=0x0146}
0x02e8…02f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015c}
0x02f2…0308 Head {h00=0x0012, h01=0x0050, text=» EXTRN INIFLG «, t00=0x0001, t01=0x0166}
0x0308…031e Head {h00=0x0012, h01=0x0050, text=» EXTRN QFDBFL «, t00=0x0001, t01=0x017c}
0x031e…0334 (2, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBSTA «, t00=0x0002, t01=0x0004}
0x0334…034a Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBEND «, t00=0x0002, t01=0x001a}
0x034a…0360 Head {h00=0x0012, h01=0x0050, text=» EXTRN CURBUF «, t00=0x0002, t01=0x0030}
0x0360…0376 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFDMI «, t00=0x0002, t01=0x0046}
0x0376…038c Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSNR «, t00=0x0002, t01=0x005c}
0x038c…03a0 Head {h00=0x0010, h01=0x0050, text=» EXTRN BUFOR«, t00=0x0002, t01=0x0072}
0x03a0…03b6 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASBLK «, t00=0x0002, t01=0x0086}
0x03b6…03cc Head {h00=0x0012, h01=0x0050, text=» EXTRN TASQUE «, t00=0x0002, t01=0x009c}
0x03cc…03e8 Head {h00=0x0018, h01=0x0050, text=» EXTRN CRNQUE,CRNEND«, t00=0x0002, t01=0x00b2}
0x03e8…03fe Head {h00=0x0012, h01=0x0050, text=» EXTRN CRBUFL «, t00=0x0002, t01=0x00ce}
0x03fe…040c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e4}
0x040c…0416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f2}
0x0416…0420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0420…043a Head {h00=0x0016, h01=0x0050, text=»* IN; A2 = LENGTH«, t00=0x0002, t01=0x0106}
0x043a…0458 Head {h00=0x001a, h01=0x0050, text=»* A3= LINK ROOT «, t00=0x0002, t01=0x0120}
0x0458…047a Head {h00=0x001e, h01=0x0050, text=»* A6= AREA END ADDR «, t00=0x0002, t01=0x013e}
0x047a…0492 Head {h00=0x0014, h01=0x0050, text=»DMIN30 LDR A4,A3«, t00=0x0002, t01=0x0160}
0x0492…04a4 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0002, t01=0x0178}
0x04a4…04ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018a}
0x04ae…04d2 (3, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* DIV W. 2 FOR 16 K LIMIT «, t00=0x0003, t01=0x0004}
0x04d2…04dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0028}
0x04dc…04ee Head {h00=0x000e, h01=0x0050, text=» LDR A5,A4«, t00=0x0003, t01=0x0032}
0x04ee…0500 Head {h00=0x000e, h01=0x0050, text=» SRL A5,1 «, t00=0x0003, t01=0x0044}
0x0500…0512 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0003, t01=0x0056}
0x0512…0524 Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0003, t01=0x0068}
0x0524…0536 Head {h00=0x000e, h01=0x0050, text=» CWR A5,A1«, t00=0x0003, t01=0x007a}
0x0536…055c Head {h00=0x0022, h01=0x0050, text=» RF(G) DMIN40 END OF FDB AREA «, t00=0x0003, t01=0x008c}
0x055c…0574 Head {h00=0x0014, h01=0x0050, text=» STR A4,A3 CHAIN«, t00=0x0003, t01=0x00b2}
0x0574…0586 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0003, t01=0x00ca}
0x0586…0598 Head {h00=0x000e, h01=0x0050, text=» RB DMIN30«, t00=0x0003, t01=0x00dc}
0x0598…05ac Head {h00=0x0010, h01=0x0050, text=»DMIN40 EQU *«, t00=0x0003, t01=0x00ee}
0x05ac…05be Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x0003, t01=0x0102}
0x05be…05de Head {h00=0x001c, h01=0x0050, text=» CMR A3 END OF FDB CHAIN«, t00=0x0003, t01=0x0114}
0x05de…05f2 Head {h00=0x0010, h01=0x0050, text=» ADKL A15,4 «, t00=0x0003, t01=0x0134}
0x05f2…0604 Head {h00=0x000e, h01=0x0050, text=» ABR* A15 «, t00=0x0003, t01=0x0148}
0x0604…0612 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x015a}
0x0612…061c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0168}
0x061c…0630 Head {h00=0x0010, h01=0x0050, text=»DMINIT EQU *«, t00=0x0003, t01=0x0172}
0x0630…0662 Head {h00=0x002e, h01=0x0050, text=»* NO INITIALIZATIONS IF POWER FAIL RESTART«, t00=0x0003, t01=0x0186}
0x0662…066c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x066c…0682 Head {h00=0x0012, h01=0x0050, text=» LD A1,INIFLG «, t00=0x0004, t01=0x0032}
0x0682…0698 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DMINEX «, t00=0x0004, t01=0x0048}
0x0698…06ba Head {h00=0x001e, h01=0x0050, text=» LDKL A2,QFDBFL FDB LENGTH«, t00=0x0004, t01=0x005e}
0x06ba…06c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0080}
0x06c4…06ec Head {h00=0x0024, h01=0x0050, text=»* CHAIN FDB:S IN THE FDB AREA «, t00=0x0004, t01=0x008a}
0x06ec…06f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b2}
0x06f6…070e Head {h00=0x0014, h01=0x0050, text=» LDKL A3,FDBSTA «, t00=0x0004, t01=0x00bc}
0x070e…0726 Head {h00=0x0014, h01=0x0050, text=» LDKL A6,FDBEND «, t00=0x0004, t01=0x00d4}
0x0726…073c Head {h00=0x0012, h01=0x0050, text=» CF A15,DMIN30«, t00=0x0004, t01=0x00ec}
0x073c…0746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0746…0764 Head {h00=0x001a, h01=0x0050, text=»* CHAIN CRN BUFFERS «, t00=0x0004, t01=0x010c}
0x0764…076e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012a}
0x076e…0788 Head {h00=0x0016, h01=0x0050, text=» LDKL A3,CRNQUE+2 «, t00=0x0004, t01=0x0134}
0x0788…079e Head {h00=0x0012, h01=0x0050, text=» ST A3,CRNQUE «, t00=0x0004, t01=0x014e}
0x079e…07b6 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,CRBUFL «, t00=0x0004, t01=0x0164}
0x07b6…07ce Head {h00=0x0014, h01=0x0050, text=» LDKL A6,CRNEND «, t00=0x0004, t01=0x017c}
0x07ce…07e4 (5, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A15,DMIN30«, t00=0x0005, t01=0x0004}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07ee…082e Head {h00=0x003c, h01=0x0050, text=»* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS «, t00=0x0005, t01=0x0024}
0x082e…0838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0064}
0x0838…084e Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFFE«, t00=0x0005, t01=0x006e}
0x084e…0864 Head {h00=0x0012, h01=0x0050, text=» LD A3,CURBUF «, t00=0x0005, t01=0x0084}
0x0864…087e Head {h00=0x0016, h01=0x0050, text=»DMIN50 LDR* A3,A3 «, t00=0x0005, t01=0x009a}
0x087e…08a0 Head {h00=0x001e, h01=0x0050, text=» ANRS A2,A3 CLEAR USE BIT «, t00=0x0005, t01=0x00b4}
0x08a0…08b6 Head {h00=0x0012, h01=0x0050, text=» CM BUFDMI,A3 «, t00=0x0005, t01=0x00d6}
0x08b6…08cc Head {h00=0x0012, h01=0x0050, text=» CM BUFSNR,A3 «, t00=0x0005, t01=0x00ec}
0x08cc…08e0 Head {h00=0x0010, h01=0x0050, text=» CM BUFOR,A3«, t00=0x0005, t01=0x0102}
0x08e0…08f6 Head {h00=0x0012, h01=0x0050, text=» CW A3,CURBUF «, t00=0x0005, t01=0x0116}
0x08f6…090c Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMIN50«, t00=0x0005, t01=0x012c}
0x090c…0916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0142}
0x0916…0952 Head {h00=0x0038, h01=0x0050, text=»* CLEAR USE BIT AND QUEUE ANCHOR ADDRESS IN TASBLK«, t00=0x0005, t01=0x014c}
0x0952…0964 Head {h00=0x000e, h01=0x0050, text=» CM TASBLK«, t00=0x0005, t01=0x0188}
0x0964…0976 Head {h00=0x000e, h01=0x0050, text=» CM TASQUE«, t00=0x0006, t01=0x000a}
0x0976…0980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001c}
0x0980…0994 Head {h00=0x0010, h01=0x0050, text=»DMINEX EQU *«, t00=0x0006, t01=0x0026}
0x0994…09a4 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0006, t01=0x003a}
0x09a4…09b0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0006, t01=0x004a}
0x09b0…09b4 Head {h00=0x4004, h01=0x0000}
0x09b4…09b8 00 06 00 56 ┆ V┆
0x09b8…09c0 (7, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆
0x09c0…0a10 (8, 0, 400) 44 49 56 4d 4f 44 00 07 01 82 00 18 00 50 5c 45 58 54 52 4e 5c 4d 50 59 4d 4f 44 2c 43 48 4b 4b 45 59 00 08 00 0e 00 12 00 50 5c 45 58 54 52 4e 5c 43 41 4c 53 4e 4f 20 00 08 00 2a 00 12 00 50 5c 45 58 54 52 4e 5c 44 53 55 4d 4f 44 20 00 08 ┆DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CALSNO * P EXTRN DSUMOD ┆
0x0a10…0a60 00 40 00 2e 00 50 5c 45 58 54 52 4e 5c 45 41 54 45 53 54 2c 45 41 53 45 54 42 2c 43 52 4e 47 45 54 2c 45 41 52 45 4c 42 2c 47 54 42 4b 42 55 20 00 08 00 56 00 18 00 50 5c 45 58 54 52 4e 5c 51 54 4a 4f 42 2c 47 54 4c 47 52 4e 20 00 08 00 88 ┆ @ . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU V P EXTRN QTJOB,GTLGRN ┆
0x0a60…0ab0 00 12 00 50 5c 45 58 54 52 4e 5c 46 4e 44 4b 45 59 20 00 08 00 a4 00 20 00 50 5c 45 58 54 52 4e 5c 43 52 4e 43 49 46 2c 43 52 4e 43 44 46 2c 43 52 4e 51 55 45 20 00 08 00 ba 00 10 00 50 5c 45 58 54 52 4e 5c 4d 58 49 4e 44 00 08 00 de 00 1e ┆ P EXTRN FNDKEY P EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND ┆
0x0ab0…0b00 00 50 5c 45 58 54 52 4e 5c 46 44 42 4b 41 2c 46 44 42 4e 49 46 2c 52 44 4e 58 54 52 00 08 00 f2 00 36 00 50 5c 45 58 54 52 4e 5c 46 44 42 4b 45 59 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 4b 45 59 20 49 4e 20 49 4e 44 45 58 45 44 20 41 ┆ P EXTRN FDBKA,FDBNIF,RDNXTR 6 P EXTRN FDBKEY SAVE AREA FOR KEY IN INDEXED A┆
0x0b00…0b50 43 43 45 53 53 20 00 08 01 14 00 2e 00 50 5c 45 58 54 52 4e 5c 42 55 46 41 52 31 2c 42 55 46 41 52 32 2c 53 45 43 54 4c 45 2c 44 4d 54 49 4f 5a 2c 43 52 4e 55 50 44 20 00 08 01 4e 00 30 00 50 5c 45 58 54 52 4e 5c 4d 4f 56 3a 55 53 5c 4d 4f ┆CCESS . P EXTRN BUFAR1,BUFAR2,SECTLE,DMTIOZ,CRNUPD N 0 P EXTRN MOV:US MO┆
0x0b50…0ba0 (9, 0, 400) 56 45 20 46 52 4f 4d 20 55 53 45 52 20 54 4f 20 53 59 53 54 45 4d 20 41 52 45 41 20 00 08 01 80 00 30 00 50 5c 45 58 54 52 4e 5c 4d 4f 56 3a 53 55 5c 4d 4f 56 45 20 46 52 4f 4d 20 53 59 53 54 45 4d 20 54 4f 20 55 53 45 52 20 41 52 45 41 20 ┆VE FROM USER TO SYSTEM AREA 0 P EXTRN MOV:SU MOVE FROM SYSTEM TO USER AREA ┆
0x0ba0…0bf0 00 09 00 24 00 12 00 50 5c 45 58 54 52 4e 5c 4d 4f 4e 4d 4d 55 20 00 09 00 58 00 2c 00 50 5c 45 58 54 52 4e 5c 50 52 55 4e 5c 54 54 41 42 20 41 44 44 52 45 53 53 20 4f 46 20 52 55 4e 4e 49 4e 47 20 54 41 53 4b 00 09 00 6e 00 1c 00 50 5c 45 ┆ $ P EXTRN MONMMU X , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK n P E┆
0x0bf0…0c40 58 54 52 4e 5c 54 54 42 3a 4d 54 5c 4d 4d 55 20 54 41 42 4c 45 20 00 09 00 9e 00 28 00 50 5c 45 58 54 52 4e 5c 53 43 54 50 4c 44 5c 50 52 4f 47 52 41 4d 20 4c 4f 41 44 49 4e 47 20 44 45 56 49 43 45 00 09 00 be 00 0a 00 50 5c 45 4a 45 43 54 ┆XTRN TTB:MT MMU TABLE ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EJECT┆
0x0c40…0c90 00 09 00 ea 00 06 00 50 2a 20 00 09 00 f8 00 06 00 50 2a 20 00 09 01 02 00 06 00 50 2a 20 00 09 01 0c 00 1c 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 00 09 01 16 00 1c 00 50 2a 20 43 4f 4e 44 49 54 49 4f ┆ P* P* P* P************************ P* CONDITIO┆
0x0c90…0ce0 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 2a 00 09 01 36 00 1c 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 00 09 01 56 00 06 00 50 2a 20 00 09 01 76 00 38 00 50 2a 20 20 20 43 48 45 43 4b 20 4f 46 20 45 58 43 ┆NAL ASSEMBLY * 6 P************************ V P* v 8 P* CHECK OF EXC┆
0x0ce0…0d30 (10, 0, 400) 4c 55 53 49 56 45 20 41 43 43 45 53 53 20 42 49 54 20 43 41 4e 20 42 45 20 45 58 43 4c 55 44 45 44 20 41 54 00 09 01 80 00 38 00 50 2a 20 20 20 52 41 4e 44 4f 4d 20 57 52 49 54 45 20 41 4e 44 20 52 41 4e 44 4f 4d 20 44 45 4c 45 54 45 20 42 ┆LUSIVE ACCESS BIT CAN BE EXCLUDED AT 8 P* RANDOM WRITE AND RANDOM DELETE B┆
0x0d30…0d80 59 20 53 45 54 54 49 4e 47 20 58 3a 41 3d 30 2e 00 0a 00 2c 00 06 00 50 2a 20 00 0a 00 68 00 06 00 50 2a 20 00 0a 00 72 00 0e 00 50 58 3a 41 5c 45 51 55 5c 31 20 00 0a 00 7c 00 0e 00 50 58 3a 42 5c 45 51 55 5c 30 20 00 0a 00 8e 00 0e 00 50 ┆Y SETTING X:A=0. , P* h P* r PX:A EQU 1 | PX:B EQU 0 P┆
0x0d80…0dd0 58 3a 43 5c 45 51 55 5c 30 20 00 0a 00 a0 00 0e 00 50 58 3a 44 5c 45 51 55 5c 31 20 00 0a 00 b2 00 0e 00 50 58 3a 45 5c 45 51 55 5c 30 20 00 0a 00 c4 00 06 00 50 2a 20 00 0a 00 d6 00 12 00 50 51 4e 4f 45 58 41 5c 45 51 55 5c 58 3a 41 00 0a ┆X:C EQU 0 PX:D EQU 1 PX:E EQU 0 P* PQNOEXA EQU X:A ┆
0x0dd0…0e20 00 e0 00 36 00 50 2a 20 20 20 49 4e 44 45 58 45 44 20 41 43 43 45 58 53 53 20 46 55 4e 43 54 49 4f 4e 53 20 43 41 4e 20 42 45 20 4f 4d 49 54 54 45 44 20 57 49 54 48 20 00 0a 00 f6 00 2c 00 50 2a 20 20 20 49 4e 44 58 41 43 20 45 51 55 20 31 ┆ 6 P* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH , P* INDXAC EQU 1┆
0x0e20…0e70 20 3d 20 49 4e 44 45 58 20 41 43 43 45 53 53 20 49 4e 43 4c 55 44 45 44 00 0a 01 30 00 36 00 50 2a 20 20 20 49 4e 44 58 41 43 20 45 51 55 20 30 20 3d 20 49 4e 44 45 58 20 41 43 43 45 53 53 20 46 55 4e 43 54 49 4f 4e 53 20 4f 4d 49 54 54 45 ┆ = INDEX ACCESS INCLUDED 0 6 P* INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTE┆
0x0e70…0ec0 (11, 0, 400) 44 20 00 0a 01 60 00 12 00 50 49 4e 44 58 41 43 5c 45 51 55 5c 58 3a 42 00 0b 00 0a 00 34 00 50 52 45 43 42 46 5a 5c 45 51 55 5c 58 3a 43 5c 49 4e 44 45 58 20 52 45 43 4f 52 44 20 42 55 46 46 45 52 20 53 49 5a 45 20 49 4e 20 57 4f 52 44 53 ┆D ` PINDXAC EQU X:B 4 PRECBFZ EQU X:C INDEX RECORD BUFFER SIZE IN WORDS┆
0x0ec0…0f10 00 0b 00 20 00 34 00 50 46 4c 58 44 53 43 5c 45 51 55 5c 58 3a 44 5c 46 4c 45 58 49 42 4c 45 20 44 49 53 43 20 49 4e 43 4c 55 44 45 44 20 57 48 45 4e 20 45 51 55 20 31 00 0b 00 58 00 30 00 50 49 4e 53 4c 41 53 5c 45 51 55 5c 58 3a 45 5c 49 ┆ 4 PFLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 X 0 PINSLAS EQU X:E I┆
0x0f10…0f60 4e 53 45 52 54 20 53 41 4d 45 20 4b 45 59 20 4c 41 53 54 20 57 48 45 4e 20 3d 20 31 00 0b 00 90 00 06 00 50 2a 20 00 0b 00 c4 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 4d 54 41 53 4b 20 00 0b 00 ce 00 06 00 50 2a 20 00 0b 00 e6 00 06 00 50 ┆NSERT SAME KEY LAST WHEN = 1 P* P EJECT DMTASK P* P┆
0x0f60…0fb0 2a 20 00 0b 00 f0 00 2e 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 4f 53 53 20 4d 4d 55 20 50 41 47 49 4e 47 20 00 0b 00 fa 00 2a 00 50 2a 5c 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 ┆* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SET┆
0x0fb0…1000 54 49 4e 47 20 4d 4d 55 50 41 47 20 45 51 55 20 31 2e 00 0b 01 2c 00 06 00 50 2a 20 00 0b 01 5a 00 10 00 50 4d 4d 55 50 41 47 5c 45 51 55 5c 30 00 0b 01 64 00 06 00 50 2a 20 00 0b 01 78 00 06 00 01 2a 20 00 0b 01 82 00 2e 00 2a 2a 5c 41 20 ┆TING MMUPAG EQU 1. , P* Z PMMUPAG EQU 0 d P* x * . ** A ┆
0x1000…1050 (12, 0, 400) 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 4f 53 53 20 44 49 53 43 20 50 41 47 49 4e 47 00 0b 01 8c 00 2a 00 26 2a 5c 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 44 53 4b 50 41 47 20 45 51 ┆PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQ┆
0x1050…10a0 55 20 31 2e 00 0c 00 2e 00 06 00 01 2a 20 00 0c 00 5c 00 10 00 0c 44 53 4b 50 41 47 5c 45 51 55 5c 30 00 0c 00 66 00 06 00 01 2a 20 00 0c 00 7a 00 06 00 50 2a 20 00 0c 00 84 00 36 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f ┆U 1. . * DSKPAG EQU 0 f * z P* 6 P* A PROGRAM VERSIO┆
0x10a0…10f0 4e 20 49 4e 43 4c 55 44 49 4e 47 20 54 4f 53 53 20 53 57 41 50 50 41 42 4c 45 20 57 4f 52 4b 20 00 0c 00 8e 00 32 00 50 2a 5c 42 4c 4f 43 4b 53 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 53 57 50 42 4c 4b 20 45 ┆N INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK E┆
0x10f0…1140 51 55 20 31 2e 20 00 0c 00 c8 00 06 00 50 2a 20 00 0c 00 fe 00 10 00 50 53 57 50 42 4c 4b 5c 45 51 55 5c 30 00 0c 01 08 00 06 00 50 2a 20 00 0c 01 1c 00 0a 00 50 5c 45 4a 45 43 54 00 0c 01 26 00 06 00 50 2a 20 00 0c 01 34 00 1c 00 50 2a 2a ┆QU 1. P* PSWPBLK EQU 0 P* P EJECT & P* 4 P**┆
0x1140…1190 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0c 01 3e 00 1c 00 50 2a 20 20 20 44 41 54 41 20 44 45 46 49 4e 49 54 49 4f 4e 53 20 20 20 2a 00 0c 01 5e 00 1c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************** > P* DATA DEFINITIONS * ^ P******************┆