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

⟦1af6878a6⟧ 

    Length: 23840 (0x5d20)
    Notes: pts_type(SC)
    Names: »XOPINP.SC«

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »PTSDEMO/XOPINP.SC«

PTS(SC)

         IDENT    XOPINP                KEYBOARD,BCR,ODR
 DDUM DEMODD
 PDIV 
	EXPROC	XBFMT 
	EXPROC	QAFNKY
 ENTRY XAKBIN 
 ENTRY XCLAMP 
	ENTRY	XGBCR
	ENTRY	XHMSU
	ENTRY	XKZEKO 
************************************************************************
* *
* 6236/71/72-CODES AND 6234/31-CODES WITH KEY1 ON*
* *
FNCKTB	KTAB	X'90',X'8A',X'A1',X'A0',X'87',		C	
		X'82',X'84',X'81',X'85',X'86',		C	
		X'88',X'80',X'93',X'94',X'89',		C	
		X'83',X'95',X'8B',X'A2',X'92',		C	
		X'A3',X'AB',X'98',X'99'		C
**
* 6234/31-CODES WITH KEY 2 ON*
**
		X'D0',X'CA',X'E1',X'E0',X'C7',		C	
		X'C2',X'C4',X'C1',X'C5',X'C6',		C	
		X'C8',X'C0',X'D3',X'D4',X'C9',		C	
		X'C3',X'D5',X'CB',X'E2',X'D2',		C 			
		X'E3',X'FF' 
* 
* 
************************************************************************
************************************************************************
* *
*   PROCEDURE:     XAKBIN*
*   PARAMETER:*
*      PKWLNG (INPUT): REQUESTED NUMBER OF NON-EOI CHARACTERS*
*   FUNCTIONAL DESCRIPION:*
*      REQUEST INPUT FROM THE OPERATOR BY A KI-INSTRUCTION.*
*      THE NUMBER OF NON-EOI CHARACTERS REQUESTED IS GIVEN BY PKWLNG*
*      AND THE EOI-KEYS APPLICABLE ARE LISTED IN THE KEYTABLE 'FNCKBT'*
*      THE FIRST HALF OF THIS KEYTABLE CONSISTS OF CODES GENERATED*
*      BY THE 6234/31-KEYBOARDS WHEN KEY 1 IS ON AND BY THE *
*      6236/71/72-KEYBOARDS.*
*      N.B. SEE TO IT THAT THE CONVERSION TABLES INCLUDED IN THE*
*      MONITOR CONVERT THE 6236/71/72-CODES TO THESE VALUES.*
*      THE SECOND HALF OF 'FNCKTB' CONSISTS OF THE CODES GENERATED BY*
*      THE 6234/31-KEYBOARDS WHEN KEY 2 IS ON.*
*      THE NUMBER OF KEYS IN ONE HALF OF THE KEYTABLE IS GIVEN BY THE*
*      VARIABLE 'KWAPLKTB'.*
*      CHECKING AND ADAPTION OF THE EOI-KEY ENTERED IS DONE BY THE*
*      ROUTINE 'QAFNKY'.*
*      AFTER THIS CHECK:   0 =< SPBINW2 =< KWAPLKTB;*
*      WHERE THE VALUE OF SPBINW2 HAS THE FOLLOWING MEANING:*
*         0: KEY ENTERED IS NOT LISTED IN 'FNCKTB'*
*         1: END-OF-ITEM*
*         2: LIST                  12: CURRENCY 1*
*         3: OPEN/START            13: CURRENCY 2*
*         4: CLOSE/STOP            14: CURRENCY 3*
*         5: BLOCK                 15: CHEQUE*
*         6: UPDATE                16: NOBOOK*
*         7: INQUIRY               17: REVERSAL*
*         8: D(AILY)-S(TATEMENT)   18  CARD*
*         9: IN                    19: CANCEL*
*        10: OUT                   20: CONTINUE*
*        11: TRANSFER              21: CLEAR (CORRECTION)*
*                                  22: OPEN FT80
*                                  23: ZEKOSA 
*                                  24: OPEN TND 
* *
*   VARIABLES USED:*
*      FNCKTB:    KEYTABLE CONTAINING THE ALLOWED EOI-KEYS*
*      SPINTPUT:  INPUT BUFFER*
*      SPBINW1:   REQUESTED LENGTH (BEFORE KI) AND ACTUAL LENGTH*
*                 (AFTER KI) INCLUDING EOI-CHARACTER.*
*      SPBINW2:   INDEX IN FNCKTB RETURNED BY KI AND ADAPTED BY*
*                 QAFNKY.*
*      SBNOWAIT:  IF THRUE THEN A KI-NOWAIT (AND NO-ECHO) MUST BE*
*                 ISSUED. CHECKS ON THE VALUE ENTERED MUST BE DONE *
*                 BY THE CALLING ROUTINE ITSELF.*
* *
************************************************************************
XAKBIN	PROC	PKWLNG			 
	PLIT	PKWLNG
XA000					
	MOVE	SPBINW1,PKWLNG			 
	ADD	SPBINW1,=W'1'	ADJUST FOR EOI-KEY 
* *
* ASK FOR KEYBOARD INPUT*
* *
	PERF	XCLAMP,KW1,KW1	READY LAMP 
	TBT	SBNOWAIT,XA500 
	KI	SPDSDYKB,SPINPUT,FNCKTB,SPBINW1,SPBINW2			
	BNOK	XA000	RETRY

Full view