DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦8a1693e9b⟧ 

    Length: 7918 (0x1eee)
    Notes: pts_type(SC)
    Names: »DATBSC.SC«

Derivation

└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »MODIFY/DATBSC.SC«

PTS(SC)

	IDENT DATBSC	REL 11.0 81-10-18 870150541100

************************************************************************
*                                                                      *
*        DATBSC       DATA DIVISION FOR IBM-3270 EMULATION PACKAGE     *
*                     (BSC). THIS MODULE ALSO CONTAINS THE        * 
*                     CREDIT CODED START-UP ROUTINES.                  *
*                                                                      *
************************************************************************
	EJECT
	DDIV 
****************************************************
* 
*        KB/VDU TERMINAL WITH ONE DC-LINE 
* 
****************************************************
	TERM	K1
* 
	CWB	CB1
	TWB	TB1
* 
	START	KBVGO
* 
DSKBAN	DSET	FC=X'20',DEV=KA,BUFL=2
DSKBSD	DSET	FC=X'40',DEV=KI,BUFL=2
DSVDU	DSET	FC=X'42',DEV=DY,BUFL=162 
DSICR	DSET	FC=X'50',DEV=II
DSICW	DSET	FC=X'51',DEV=IO
DSDC1	DSET	FC=X'61' 
DSKBN	DSET	FC=X'21',DEV=KBN,BUFL=2	NUMERIC FOR P&T
	EJECT
*************************************************** 
* 
*        KB/VDU TERMINAL WITH TWO DC-LINES
* 
*************************************************** 
*	TERM	K2 
* 
*	CWB	CB1 
*	TWB	TB1 
* 
*	START	KBVGO 
* 
*DSKBAN	DSET	FC=X'20',DEV=KA,BUFL=2 
*DSKBSD	DSET	FC=X'40',DEV=KI,BUFL=2 
*DSVDU	DSET	FC=X'42',DEV=DY,BUFL=162
*DSICR	DSET	FC=X'50',DEV=II 
*DSICW	DSET	FC=X'51',DEV=IO 
*DSDC1	DSET	FC=X'61'
*DSDC2	DSET	FC=X'62'
	EJECT
****************************************************
* 
*        PRINTER TERMINAL WITH ONE DC-LINE
* 
****************************************************
	TERM	P1
* 
	CWB	CB1
	TWB	TB1
* 
	START	PRTGO
* 
PDSPRT	DSET	FC=X'30',BUFL=134	GENERAL DATA SET FOR PRINTERS 
PDSICR	DSET	FC=X'50',DEV=II 
PDSICW	DSET	FC=X'51',DEV=IO 
PDSDC1	DSET	FC=X'61'
	EJECT
***************************************************** 
* 
*        PRINTER TERMINAL WITH TWO DC-LINES 
* 
******************************************************
*	TERM	P2 
* 
*	CWB	CB1 
*	TWB	TB1 
* 
*	START	PRTGO 
* 
*PDSPRT	DSET	FC=X'30',BUFL=134	GENERAL DATA SET FOR PRINTERS
*PDSICR	DSET	FC=X'50',DEV=II
*PDSICW	DSET	FC=X'51',DEV=IO
*PDSDC1	DSET	FC=X'61' 
*PDSDC2	DSET	FC=X'62' 
	EJECT
************************************************************************
*                                                                      *
*        WORK AREA FOR KB/VDU TASKS                                    *
*                                                                      *
************************************************************************
TB1	BLK 
* 
TCT01	BIN	4X'0'	TID AND STACKBASE 
BVDU	STRG	3840X'0'	VDU SCREEN BUFFER
LINFLG	STRG	48X'0'	INTERNAL LINE FLAGS
PCURS	STRG	4X'0'	REL. CURSOR ADDRESS
ATTRIB	STRG	4X'0'	LAST ATTRIBUTE CHARACTER
CURATT	STRG	4X'0'	REL. ATTRIBUTE ADDRESS
WCC	STRG	4X'0'	WCC CHAR.
KBINH	STRG	4X'0'	KEYBOARD INHIBIT INDIC.
LINCNT	STRG	4X'0'	
DCLENG	STRG	4X'0'	DC READ EFFECTIVE LENGTH
INTATT	STRG	4X'0'	INTENSITY ATTRIBUTE 
OFFFLG	STRG	4X'0'	OFFLINE FLAG
PRTID	STRG	4X'0'	TASKID FOR HARDCOPY
BRAGE	STRG	192X'0'	LEKSAND
* 
* FORMATION OF BRAGE - LEKSAND
* 
* PRTTYP   4X   TYPE OF PRINTER 
* CCC      4X 
* MAIN     4X 
* MODE     4X   INSERT INDICATOR
* KEYS     4X   KEY LOCK STATUS 
* ECBBLK   20X  ECB BLOCK FOR MULTIPLE WAIT 
* RDMORE   4X   NEXT ADDRESS OF READ MORE KEYS
* CURPOS   4X   CURSOR POSITION 
* BUFPNT   4X   BUFFER POINTER
* REGI     4X   SAVE AREA 
* STACK1   28X  SAVE AREA 
* STACK2   28X  SAVE AREA 
* UNPMOD   4X   UNPACK MODE 
* BSCMOD   4X   BSC MODE
* ECBTAB        ECB TABLE 
* ECBKB    4X   ECB KB
* ECBPRT   4X   ECB PRINTER 
* ECBSD    4X   ECB SIGNAL DISPLAY
* ECBVDU   4X   ECB VDU 
* ECBICR   4X   ECB INTERTASK READ
* ECBICW   4X   ECB INTERTASK WRITE 
* ECBDC1   4X   ECB DC LINE 1 
* ECBKB2    4X    ECB NUMERIC KB, P & T 
	EJECT
******************************************************************
*                                                                *
*        COMMON WORK AREA FOR ALL TASKS                          *
*                                                                *
******************************************************************
CB1	BLK 
* 
MF1CU	STRG	X'4142'	SYMBOLIC CLUSTER ADDRESS 
IDTEXT	STRG	22'IDENT    NOT OPERABLE '	 IDENT KEY TEXT
***STATXT	STRG	15'DTE ADDRESS    '	STAT LAYOUT
***SA	STRG	15'STAT OVERFLOW  '
***SB	STRG	15'PRO REC BLOCKS '
***SC	STRG	15'PRO REC REJ-BSY'
***SD	STRG	15'PRO REC REJ-OVF'
***SE	STRG	15'PRO REC REJ-PAR'
***SF	STRG	15'PRO SND BLOCKS '
***SG	STRG	15'PRO SND RESND  '
***SH	STRG	15'PRO PROC-TIMOUT'
***SI	STRG	15'PRO POLL-TIMOUT'
***SJ	STRG	15'DTE REC ERROR  '
***SK	STRG	30'DTE SND ERROR  DCE ERROR      ' 
TSKTAB	STRG	256X'0'	TASK TABLE WITH STATUS
ENDTAB	STRG	4X'FFFF'	END MARK 
	PDIV 
* 
*        ENTRY POINTS AND EXTERNAL REFERENCES 
* 
	ENTRY	KBVGO
	ENTRY	PRTGO
	EXT	VDUKB
	EXT	PRINT
	EXT	GETTID	GET TASK IDENTITY 
**	EXT	OFFLNE	CREDIT APPLICATION START ADDRESS
	EJECT
****************************************
* 
*   START ADDRESS FOR VDU TASK
* 
****************************************

KBVGO 
	CALL	GETTID,TCT01	 
KB050 
	CALL	VDUKB,TCT01 
**	PERF	OFFLNE	BRANCH TO CREDIT CODE
	B	KB050	RETURN TO IBM-3270 EMULATION 
	EJECT
********************************************* 
* 
*    START ADDRESS FOR PRINTER TASK 
* 
********************************************* 

PRTGO 
	CALL	GETTID,TCT01	 
	CALL	PRINT,TCT01 
	END

Full view