|
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