|
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: 1318 (0x526)
Notes: pts_type(SC)
Names: »DMINIT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/DMINIT.SC«
IDENT DMINIT REL 10.0 80-03-14 870105041000 **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DMINIT = DATA MANAGEMENT INITIALIZATION * * * * * * **************************************************** * * CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS * * DMINIT IS CALLED AS A PFINIT ROUTINE * * REGISTERS A1 - A6 ARE USED EJECT * ENTRY DMINIT ENTRY DMI010 FROM DMBUF * EXTRN INIFLG EXTRN DMI020 SEE DMBUF EJECT * DMINIT EQU * * NO INITIALIZATIONS IF POWER FAIL RESTART * LD A1,INIFLG ABL(NZ) DMI020 FIRST ACTIVATION AFTER IPL DMI010 EQU * RTN A15 END
0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DMINIT REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x036…03e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x03e…07a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0042}
0x07a…084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x084…0ac Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0088}
0x0ac…0b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b0}
0x0b6…0ea Head {h00=0x0030, h01=0x0050, text=»* DMINIT = DATA MANAGEMENT INITIALIZATION «, t00=0x0000, t01=0x00ba}
0x0ea…0f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x0f4…0fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x0fe…108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x108…112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x112…11c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x11c…126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x126…162 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x012a}
0x162…16c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0166}
0x16c…1ae Head {h00=0x003e, h01=0x0050, text=»* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS «, t00=0x0000, t01=0x0170}
0x1ae…1b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x1b8…1e8 Head {h00=0x002c, h01=0x0050, text=»* DMINIT IS CALLED AS A PFINIT ROUTINE«, t00=0x0001, t01=0x002c}
0x1e8…1f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005c}
0x1f2…218 Head {h00=0x0022, h01=0x0050, text=»* REGISTERS A1 - A6 ARE USED«, t00=0x0001, t01=0x0066}
0x218…226 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x008c}
0x226…230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009a}
0x230…246 Head {h00=0x0012, h01=0x0050, text=» ENTRY DMINIT «, t00=0x0001, t01=0x00a4}
0x246…266 Head {h00=0x001c, h01=0x0050, text=» ENTRY DMI010 FROM DMBUF«, t00=0x0001, t01=0x00ba}
0x266…270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00da}
0x270…286 Head {h00=0x0012, h01=0x0050, text=» EXTRN INIFLG «, t00=0x0001, t01=0x00e4}
0x286…2a6 Head {h00=0x001c, h01=0x0050, text=» EXTRN DMI020 SEE DMBUF «, t00=0x0001, t01=0x00fa}
0x2a6…2b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x011a}
0x2b4…2be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x2be…2d2 Head {h00=0x0010, h01=0x0050, text=»DMINIT EQU *«, t00=0x0001, t01=0x0132}
0x2d2…304 Head {h00=0x002e, h01=0x0050, text=»* NO INITIALIZATIONS IF POWER FAIL RESTART«, t00=0x0001, t01=0x0146}
0x304…30e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0178}
0x30e…324 Head {h00=0x0012, h01=0x0050, text=» LD A1,INIFLG «, t00=0x0001, t01=0x0182}
0x324…356 Head {h00=0x002e, h01=0x0050, text=» ABL(NZ) DMI020 FIRST ACTIVATION AFTER IPL«, t00=0x0002, t01=0x0008}
0x356…36a Head {h00=0x0010, h01=0x0050, text=»DMI010 EQU *«, t00=0x0002, t01=0x003a}
0x36a…37a Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0002, t01=0x004e}
0x37a…386 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0002, t01=0x005e}
0x386…38a Head {h00=0x4004, h01=0x0000}
0x38a…38e 00 02 00 6a ┆ j┆
0x38e…396 (3, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x396…3e6 (4, 0, 400) 00 03 01 84 00 1e 00 50 5c 45 58 54 52 4e 5c 43 52 4e 53 54 41 2c 44 46 54 41 42 2c 44 4d 54 49 44 50 00 04 00 08 00 1c 00 50 5c 45 58 54 52 4e 5c 4d 4f 4e 4d 4d 55 2c 44 4d 54 45 52 58 2c 51 43 4c 00 04 00 2a 00 18 00 50 5c 45 58 54 52 4e ┆ P EXTRN CRNSTA,DFTAB,DMTIDP P EXTRN MONMMU,DMTERX,QCL * P EXTRN┆
0x3e6…436 5c 44 4d 54 52 42 55 2c 44 4d 54 42 4d 20 00 04 00 4a 00 12 00 50 5c 45 58 54 52 4e 5c 44 4d 54 49 4f 54 20 00 04 00 66 00 12 00 50 5c 45 58 54 52 4e 5c 45 41 52 45 4c 42 20 00 04 00 7c 00 12 00 50 5c 45 58 54 52 4e 5c 54 41 53 48 4c 54 20 ┆ DMTRBU,DMTBM J P EXTRN DMTIOT f P EXTRN EARELB | P EXTRN TASHLT ┆
0x436…486 00 04 00 92 00 12 00 50 5c 45 58 54 52 4e 5c 46 44 42 45 41 4c 20 00 04 00 a8 00 18 00 50 5c 45 58 54 52 4e 5c 52 45 43 42 46 5a 2c 52 45 51 45 52 52 00 04 00 be 00 12 00 50 5c 45 58 54 52 4e 5c 44 4d 54 42 4d 52 20 00 04 00 da 00 14 00 50 ┆ P EXTRN FDBEAL P EXTRN RECBFZ,REQERR P EXTRN DMTBMR P┆
0x486…4d6 5c 45 4a 45 43 54 5c 5c 5c 44 4d 54 41 53 4b 20 00 04 00 f0 00 1c 00 50 2a 20 20 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 00 04 01 08 00 1e 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 ┆ EJECT DMTASK P* CONDITIONAL ASSEMBLY P************************┆
0x4d6…526 2a 2a 00 04 01 28 00 06 00 50 2a 20 00 04 01 4a 00 06 00 50 2a 20 00 04 01 54 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 04 01 5e 00 2a 00 50 ┆** ( P* J P* T . P* A PROGRAM VERSION USING TOSS MMU PAGING ^ * P┆