|
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: 4528 (0x11b0)
Notes: pts_type(SC)
Names: »DCTSK.SC«
└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
└─⟦this⟧ »A:DSB/DCTSK.SC«
IDENT DCTSK REL2.1 DK 800317 870150540210 ENTRY DCTSK EXTRN I:EVA0 * * * ********************************************************** * * CONDITIONAL ASSEMBLY * ********************************* * OFLIN EQU 0 DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2) COPCMD EQU 0 RBUFNR EQU 2 2 RECEIVE BUFFERS RBUFL EQU 150 LENGTH 800 BYTES DK * * * EQUATES * RSET EQU /B2 RESET KEY * COMMON EQU FOR ECB HANDLING * ECBBA EQU 2 ECBRL EQU 4 ECBEL EQU 6 ECBRC EQU 8 ECBCW EQU 10 * * * CREDIT USED EQU * * * ECB REL. ADDRESSES * * DIS EQU 20 * ECBDC EQU -DIS-14 IFT DCLIN=2 IFT COPCMD=1 ECBDC2 EQU ECBDC-DIS ECBICR EQU ECBDC2-DIS ECBICW EQU ECBICR-DIS XIF IFT DCLIN=2 IFF COPCMD=1 ECBDC2 EQU ECBDC-DIS ECBICW EQU ECBDC2-DIS XIF IFF DCLIN=2 IFT COPCMD=1 ECBICR EQU ECBDC-DIS ECBICW EQU ECBICR-DIS XIF IFF DCLIN=2 IFF COPCMD=1 ECBICW EQU ECBDC-DIS XIF ECBVDU EQU ECBICW-DIS ECBKB EQU ECBVDU-DIS ECBSD EQU ECBKB-DIS * * * BASE ADDRESS FOR TCA AND ECB * TCABAS EQU A11 CREBAS EQU A13 ECB * * * CONFIG DATA 'CB1' REL ADDRESSES * NBRKBV EQU 0 NUMBER OF KB/VDUS NBRGTP EQU NBRKBV+2 NUMBER OF GTPS * MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 MF1GTP EQU MF1KBV+36 DV ADDRESSES GTPS MF # 1 IFT DCLIN=2 MF2KBV EQU MF1GTP+16 MF2GTP EQU MF2KBV+16 XIF * * * EJECT ************************************************************* * * START ADDRESS FOR DC TASKS ************************************************************* DCTSK EQU * CF A14,I:EVA0 LDR* A1,A9 POLL & SELECT ADDRESS LDKL A8,ECBDC ADR A8,CREBAS ST A1,ECBCW,A8 LDK A7,/B7 TRANSFER PARAMETERS LKM DATA 1 DCT100 EQU * LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT LKM DATA 1 CF A14,GTRBUF GET RECEIVE BUFFER LDKL A8,ECBDC ADR A8,CREBAS CF A14,DCGETM LD A4,ECBBA,A8 CF A14,RLRBUF RELEASE BUFFER RB DCT100 * * * * * READ DC * DCGETM EQU * LDK A1,0 CF A14,REQTIM LDK A7,/82 READ, WAIT CM ECBCW,A8 NO TIME OUT SUPERVISION LDKL A1,RBUFL+RBUFL ST A1,ECBRL,A8 REQ LENGTH ST A4,ECBBA,A8 LKM DATA 1 RTN A14 * * * ********************************************************** * * BUFFER HANDLING * ********************************************************** * RLINK EQU RBUFL+RBUFL+2 * RBUF EQU * DATA *+2 POINTER FIRST FREE IFF RBUFNR=1 DATA *+RLINK RES RBUFL IFF RBUFNR=2 DATA *+RLINK RES RBUFL IFF RBUFNR=3 DATA *+RLINK RES RBUFL IFF RBUFNR=4 DATA *+RLINK RES RBUFL XIF DATA 0 END OF CHAIN RES RBUFL * * * GET RECEIVE BUFFER * GTRBUF EQU * LDKL A5,RBUF * * GETBUF EQU * LDR* A4,A5 RF(Z) GETB50 NO BUFFER FREE LDR* A3,A4 STR A3,A5 ADK A4,2 SKIP LINK RTN A14 GETB50 EQU * LKM DATA 0 SWITCH TASK RB GETBUF * * RELEASE BUFFER * RLRBUF EQU * LDKL A2,RBUF RELB05 EQU * SUK A4,2 POINT TO LINK RELB10 EQU * LDR* A3,A2 RF(Z) RELB20 LDR A2,A3 RB RELB10 RELB20 EQU * STR A4,A2 CMR A4 RTN A14 * * * * * SET REQUEST TIMER * A1 = TIME OUT VALUE * A8 = ECB ADDRESS * REQTIM EQU * ST A1,ECBCW,A8 LDK A7,/B9 LKM DATA 1 RTN A14 END