|
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: 7642 (0x1dda)
Notes: pts_type(SC)
Names: »DATDIV.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »IBM3270/DATDIV.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »IBM3270/DATDIV.SC«
IDENT DATDIV REL 10.0 80-03-14 870150541000 ************************************************************************ * * D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. * THIS MODULE ALSO CONTAINS THE CREDIT CODED * START-UP ROUTINES. * ******************************************************************** EJECT DDIV * * KB/VDU TERMINAL * TERM KA * CWB CB1 TWB TB1 * START KBVGO * DSDC DSET FC=61 *DSDC2 DSET FC=62 IFT DCLIN=2 *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 *DSDC2 DSET FC=62 IFT DCLIN=2 DSICR DSET FC=E0,DEV=II *DSICW DSET FC=E1,DEV=IO IFT COPCMD=1 DSGTP DSET FC=30,DEV=GP,BUFL=162 EJECT * * * DCTASK FOR DC LINE 1 * * TERM D0 * CWB CB1 START DC1GO DSDC DSET FC=60 * * DCTASK FOR DC-LINE 2 * * TERM D1 * CWB CB1 * START DC2GO *DSDC DSET FC=63 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 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 * MF # 2 *MF2KBV STRG 32X'40C1C2C3C4C5C6C7' *MF2GTP STRG 32X'C8C94A4B4C4D4E4F' * THE LENGTH OR PLACE OF THE CONFIG DATA ABOVE SHOULD NOT BE CHANGED * MF1CU STRG X'6040' CU-ADDRESS MF # 1 *MF2CU STRG X'6040' * CNFHC BINI (16),'1','2','3','4','5','6','7','8' HARDCOPY PRINTER FOR KB-VDU 1-16 * BINWK1 BIN PDIV * * * ENTRY KBVGO ENTRY GTPGO ENTRY DC1GO * ENTRY DC2GO 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) CBL COPNO,='1',KB050 ADD COPNO,=X'4740' 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 EJECT *********************************************** * * START ADDRESS FOR DC-TASK * ********************************* DC1GO CALL DCTASK,MF1CU * *DC2GO * CALL DCTASK,MF2CU END