|
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: 4214 (0x1076)
Notes: pts_type(SC)
Names: »DMINIT.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DMINIT.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DMINIT.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/DMINIT.SC«
IDENT DMINIT REL 8.2 78-09-15 870105040820 MONCON REL 8.1 78-04-21 * **************************************************** * * 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 CDTAB EXTRN QFDBFL EXTRN FDBSTA EXTRN FDBEND EXTRN CURBUF EXTRN BUFDMI EXTRN BUFSNR EXTRN BUFOR EXTRN TASBLK EXTRN TASQUE EXTRN CDTABF EXTRN RTNA15 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 * * CLEAR DM FILE CODE ENTRIES IN CD:TAB * * * DMINEX EQU * ABL RTNA15 RETURN AND ENB END