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

⟦d9e2b0884⟧ 

    Length: 13544 (0x34e8)
    Notes: pts_type(SC)
    Names: »WSMERR.SC«

Derivation

└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
    └─⟦this⟧ »WSM:CREA/WSMERR.SC«

PTS(SC)

	IDENT	WSMERR	REL=2.3,850808,870155940230 

**************************************************************
* 
*   LATEST UPDATE 850808 MADE BY CJ 
* 
*   HISTORY=
* 
*           850808/CJ  CHANGE IN FORMAT WSMERS : DISC -> DISK.
*           850305/JE  ERR-MESSAGE NO=41 FOR SYNTAX ERRORS IN OBJVAL. 
*           841101/CJ  ERROR-MESSAGE NO=38,39 AND 40 IMPLEMENTED FOR OVE. 
*           840119/CJ  CHANGE OF ERR.MESS:  FORMAT -> FORM , TOO -> TO. 
*           830921/CJ  TESTING ON LBOOL4 WHEN <DUPL> CANCELLED. 
*           830615/CJ  ACOUSTIC ALARM FOR ALL SCREENS IMPL. 
* 
**************************************************************

* 
*    OUTPUT               LBIN2   = 0  POWER OFF
*                                 = 1  CLEAR-KEY
*                                 = 2  CANCEL-KEY 
*                                 = 3  RETUR-KEY
*                                 = 4  EDIT-KEY (CFW) 
	DDUM	WSMDDV
	PDIV 
	ENTRY	WSMERR 
	EXT	CHANFC	---ASSRUT:CHANGE FILE CODE
	EJECT
WSMERR	PROC	KEYT1,COLPOS
	PKTAB	KEYT1
	PLIT	COLPOS
	MOVE	LBIN2,W1	INDICATE CLEAR-KEY 
* 
*    ERROR HANDLING 
* 
	MOVE	LBIN3,=X'4F'	FC FOR KB-BUZZER 
	CALL	CHANFC,SYSL,LBIN3	---CHANGE FC TO KB-BUZZER 
	MOVE	LBIN3,=X'8000'	BIT 0 = BUZZER 
	DSC	SYSL,0,LBIN3	ACTIVATE BUZZER 
	CALL	CHANFC,SYSL,SYSLFC	---CHANGE BACK FC
	MOVE	LBIN3,=X'0101'	ROW 01 COL. 1
	TBT	VD82,ERR010	JUMP IF VD82/83
	CALL	CHANFC,SYSL,SCRNFC	---CHANGE FILE CODE
	MOVE	LBIN3,=X'1801'	ROW 24 COL. 1
ERR010
*	EDWRT	SYSL,BELL	ACOUSTIC ALARM VD46 
	CBNG	LBIN4,W0,ERR900	JUMP IF NO PRINTOUT 
	ADD	LBIN3,COLPOS	ADD STARTPOSITION 
*	TBF	LBOOL4,ERR020	TRUE IF DUPLICATION 
	DSC	SYSL,6,LBIN3	SET CURSOR ON LAST ROW
	DSC	SYSL,2,COLS	ERASE OLD CONTENT
*ERR020 
	DSC	SYSL,6,LBIN3	SET CURSOR ON LAST ROW
	EDWRT	SYSL,WFMTERR(LBIN4)
	EJECT
* 
*    READ AFTER ERROR 
* 
	SETCUR		SET CURSOR AT THE BEGINNING
			OF THE CURRENT FIELD 
ERR100
	MOVE	LBIN3,W1	REQUESTED LENGTH 
* 
	NKI	.NE,KEYB,LSTR1,KEYT1,LBIN3,LBIN2 
	BL	ERR100	JUMP IF NOT OK 
	CBE	LBIN2,W0,ERR900	JUMP IF POWER OFF
	EJECT
* 
*    CLEAR ERROR PRINTOUT 
* 
	MOVE	LBIN3,=X'0101'	ROW 01 COL. 1
	TBT	VD82,ERR200	JUMP IF VD82/83
	MOVE	LBIN3,=X'1801'	ROW 24 COL. 1
ERR200
	ADD	LBIN3,COLPOS	ADD STARTPOSITION 
	DSC	SYSL,6,LBIN3	SET CURSOR ON LAST ROW
	DSC	SYSL,2,COLS	ERASE ON LAST LINE 
	CBNE	LBIN2,W1,ERR900	JUMP IF NOT CLEAR 
	CBE	LBIN1,W0,ERR900	JUMP IF LENGTH = 0 
	MOVE	LSTR81,:FMTITEM	SAVE CURRENT CONTENTS 
	MOVE	LSTR1,=X'3100'
	MOVE	:FMTITEM,LSTR1	PUT SOMETHING IN THE FIELD 
	GETABX	LBIN4	GET CURRENT INDEX 
	ERASE	10,LBIN4,LBIN4	CLEAR FIELD 
	MOVE	:FMTITEM,LSTR81	RESTORE CURRENT CONTENTS
	GETABX	LBIN4	GET CURRENT TAB INDEX 
	TBT	LBOOLD,ERR250	DISPLAY PROMPT + FIELDS
	DISPLAY	1,LBIN4,LBIN4	DISPLAY FIELD
	B	ERR900 
ERR250	DISPLAY	4,W1,W0	DISPLAY HOLD LINE
* 
ERR900
	RET
	EJECT
*BELL	FRMT
*	FSL 
*	FILLR	X'07',1 
*	FMEND 
	EJECT
	INCLUDE	WSMERS,LIST
	PEND 
 END

Full view