|
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: 7758 (0x1e4e)
Notes: pts_type(SC)
Names: »DATDIV.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »D3270:92/DATDIV.SC«
└─⟦985af0f82⟧ Bits:30009681 Philips computer tape "600231"
└─⟦this⟧ »D3270:92/DATDIV.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »DK3270/DATDIV.SC«
└─⟦bdcaa0fa2⟧ Bits:30009700 Philips computer tape "600999"
└─⟦this⟧ »D3270:92/DATDIV.SC«
IDENT DATDIV 2.2DK 1 79-11-16 870150540220 ************************************************************************ * * D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. * THIS MODULE ALSO CONTAINS THE CREDIT CODED * START-UP ROUTINES. * ******************************************************************** * * INCLUDES DECENTRALT PRINT + LP EJECT DDIV * * KB/VDU TERMINAL * TERM KA * CWB CB1 TWB TB1 * START KBVGO * DSDC DSET FC=61 DSICR DSET FC=E0,DEV=II IFT COPCMD=1 DSICW DSET FC=E1,DEV=IO DSVDU DSET FC=50,DEV=DY,BUFL=162 DSKBAN DSET FC=20,DEV=KA,BUFL=2 DSKBSD DSET FC=40,DEV=KI,BUFL=2 EJECT * * GTP TERMINAL * TERM GA * CWB CB1 TWB TB1 * START GTPGO * DSDC DSET FC=61 DSICR DSET FC=E0,DEV=II DSICW DSET FC=E1,DEV=IO IFT COPCMD=1 DSGTP DSET FC=30,DEV=GP,BUFL=162 EJECT * * LINE PRINTER * * TERM LA * CWB CB1 TWB TB1 * START LPGO * DSDC DSET FC=61 DSICR DSET FC=E0,DEV=II DSICW DSET FC=E1,DEV=IO COPCMD=1 DSLP DSET FC=80,DEV=LP,BUFL=162 EJECT * * * DCTASK FOR DC LINE 1 * * TERM D0 * CWB CB1 START DC1GO DSDC DSET FC=60 * EJECT * * * WORK AREA FOR KEYBOARD AND DISPLAY TASKS * * TB1 BLK * TCT01 BIN 4X'0' TID AND STACKBASE PRINTER STRG 4X'0' KEYBARD/VDU/PRINTER BVDU STRG 3840X'0' VDU SCREEN BUFF PCURS STRG 4X'0' CURSOR ADDR. BINARY ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER CURATT STRG 4X'0' CURSOR ATTRIBUTE WCC STRG 4X'0' WCC/CCC CHARACTER KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC. LINCNT STRG 4X'0' DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH ICWORK STRG 4X'0' INTATT STRG 4X'0' INTENSITY ATTRIBUTE OFFFLG STRG 4X'0' OFFLINE FLAG COPNO BIN TID FOR HARDCOPY MISCAR STRG 44X'0' CCC,MAIN, MODE,KEYS,ECBDCC,ECBBLK, RDMORE STRG2 STRG 4X'0' DK EJECT ************** * * COMMON WORK BLOCK FOR ALL TASKS * ***************************************** CB1 BLK * CNFIGD BOOL CNFBSY BOOL * * CONFIGURATION DATA * NBRKBV BIN NUMBER OF KB/VDUS NBRGTP BIN NUMBER OF GTPS * MF1KBV STRG 32X'40C1C2C3C4C5C6C7' DV ADDRESSES KB/VDU MF1GTP STRG 32X'C8C94A4B4C4D4E4F' DV ADDRESSES GTP * THE LENGTH OR PLACE OF THE CONFIG DATA ABOVE SHOULD NOT BE CHANGED * MF1CU STRG X'6040' CU-ADDRESS MF # 1 * CNFHC STRGI (16),'GA','GB','GC','GD','GE','GF' HARDCOPY PRINTER FOR KB-VDU 1-16 * BINWK1 BIN PDIV * * * ENTRY KBVGO ENTRY GTPGO ENTRY DC1GO ENTRY LPGO EXT VDUKB EXT PRINT EXT DCTASK EXT SWITCH EXT GETTID GET TASK IDENTITY * EXT OFFLNE CREDIT APPLICATION START ADDRESS * * * EJECT DSC0 DSDC,2 DUMMY REFERENCE T:IO **************************************** * * START ADDRESS FOR KEYBOARD TASK * **************************************** KBVGO ADD NBRKBV,='1' CALL GETTID,TCT01 SUB TCT01,=X'4B40' * PERF CONF READ & CONVERT CONFIG DATA MOVE COPNO,CNFHC(TCT01) KB050 CALL VDUKB,TCT01 * PERF OFFLNE BRANCH TO CREDIT CODE B KB050 RETURN TO IBM-3270 EMULATION EJECT ********************************************* * * START ADDRESS FOR GENERAL PRINTER TASK * ********************************************* GTPGO ADD NBRGTP,='1' CALL GETTID,TCT01 SUB TCT01,=X'4740' MOVE PRINTER,=X'0001' * PERF CONF CALL PRINT,TCT01 ************************************************ * * START ADDRESS FOR LINE PRINTER TASK * ************************************************ LPGO MOVE PRINTER,=X'001' MOVE TCT01,=W'2' CALL PRINT,TCT01 EJECT *********************************************** * * START ADDRESS FOR DC-TASK * ********************************* DC1GO CALL DCTASK,MF1CU * END