|
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«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/DMINIT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/DMINIT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/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) 41 43 45 20 00 0b 01 80 00 20 00 50 53 54 58 5c 45 51 55 5c 2f 38 32 5c 53 54 41 52 54 20 4f 46 20 4d 45 53 53 41 47 45 00 0c 00 0c 00 1e 00 50 45 54 42 5c 45 51 55 5c 2f 39 37 5c 45 4e 44 20 4f 46 20 4d 45 53 53 41 47 45 00 0c 00 30 00 1a ┆ACE PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE 0 ┆
0x3e6…436 00 50 45 54 58 5c 45 51 55 5c 2f 30 33 5c 4c 41 53 54 20 44 55 4d 4d 59 00 0c 00 52 00 2e 00 50 52 45 54 55 52 4e 5c 45 51 55 5c 2f 31 32 5c 52 45 54 55 52 4e 20 54 4f 20 41 4c 50 48 41 4e 55 4d 45 52 49 43 20 4d 4f 44 45 00 0c 00 70 00 2a ┆ PETX EQU /03 LAST DUMMY R . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE p *┆
0x436…486 00 50 45 53 43 41 50 45 5c 45 51 55 5c 2f 31 31 5c 45 53 43 41 50 45 20 54 4f 20 47 52 41 50 48 49 43 20 4d 4f 44 45 20 00 0c 00 a2 00 22 00 50 50 4f 49 4e 54 5c 45 51 55 5c 2f 32 45 5c 50 4f 49 4e 54 20 43 48 41 52 41 43 54 45 52 20 00 0c ┆ PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER ┆
0x486…4d6 00 d0 00 32 00 50 45 51 55 5c 45 51 55 5c 36 5c 54 48 52 45 53 48 4f 4c 44 20 46 4f 52 20 41 55 54 4f 4d 41 54 49 43 20 46 41 53 54 20 4f 55 54 50 55 54 20 00 0c 00 f6 00 20 00 50 53 54 49 4c 4c 5c 45 51 55 5c 2f 31 38 5c 43 55 52 53 4f 52 ┆ 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT PSTILL EQU /18 CURSOR┆
0x4d6…526 20 53 54 45 41 44 59 20 00 0c 01 2c 00 24 00 50 43 54 59 43 4f 44 5c 45 51 55 5c 2f 31 42 5c 53 45 54 20 43 4f 55 4e 54 52 59 20 43 4f 44 45 20 00 0c 01 50 00 06 00 50 2a 20 00 0c 01 78 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ STEADY , $ PCTYCOD EQU /1B SET COUNTRY CODE P P* x P**************┆