DataMuseum.dk

top - metrics - download

    Length: 4728 (0x1278)
    Notes: pts_type(UF)
    Names: »JOSKB1.UF«

└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
    └─⟦this⟧ »TOSSWORK/JOSKB1.UF« 

PTS(SC)

LED DRKB03
!!RE 0,$$78-04-21$$78-09-07$$ 
!!IL 1
			ADAPTED TO KEYBOARD PTS 6271/72
			REL 8.1 78-04-21 
!!IL 89 
*    -----NUMERIC SHIFT-FUNCTION
*    -----KEYBOARD LOCK IF NO KEYLOCK ON
!!RE 138,$$10$$X:F$$
!!IL 208
*     BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72
X:H	EQU	0 
* 
* 
*     BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. 
X:I	EQU	0 
KBLOCK	EQU	X:I
NSHIFT	EQU	X:H
!!IL 463
	SUK	A4,/5F	CHARACTER > /7F 
	RF(P)	AKB364	YES 
!!DL 466
	ADK	A4,/4F 
!!IL 473
	ANK	A2,/7F 
!!IL 588
 	IFT	NSHIFT=0
	CWK	A4,1	INDICATE SKIP CHARACTER 
	RF(E)	EXIT	YESD
	XIF
!!IL 593
	IFT	KBLOCK=1 
!!IL 596
	XIF
!!RE 597,$$IHKB10$$IHKB10	NO READ REQUEST PENDING$$ 
!!IL 703
	IFT	NSHIFT=0 
	SUK	A4,/7C	CODE > /7B
	RF(NN)	KON500	YES
	LDR	A4,A2	RESTORE CHARACTER
	XIF
!!RE 710,$$10$$10	FUNCTION$$
!!RE 711,$$110$$110	NO$$
!!RE 712,$$40$$40	YES$$ 
!!DL 713
KON105	EQU	*
	ANK	A5,/10 
	SRL	A5,3 
!!RE 717,$$140$$140	SHIFT ON$$
!!RE 719,$$160$$160	SHIFT OFF$$ 
!!DL 720
	RF(Z)	KON170	CONTROL ON
	IFT	NSHIFT=1 
	SUK	A4,2 
	RF(N)	KON125	CONTROL OFF 
	RF(E)	KON140	NUMERICAL SHIFT ON
	RF	KON160	NUMERICAL SHIFT OFF
	XIF
KON125	EQU	*
!!RE 736,$$2$$4$$ 
!!IL 747
	IFT	NSHIFT=0 
KON500	EQU	*
	LDR	A4,A4	KEY CODE /7C 
	RF(Z)	KON600	YES 
	LDK	A4,1	INDICATE SKIP CHARACTER 
	RTN	A15
KON600	EQU	*
	SUR	A2,A2
	RB	KONVER	DO START AGAIN 
	XIF
!!DL 764
!!EN
ASM /S,NL 
KPF /O
ASG /E0,TY10