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

⟦7c1592f24⟧ 

    Length: 17566 (0x449e)
    Notes: pts_type(SC)
    Names: »XBFMT.SC«

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »DEMO6800/XBFMT.SC« 
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
    └─⟦this⟧ »DEMO6800/XBFMT.SC« 
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »PTSDEMO/XBFMT.SC«

PTS(SC)

	IDENT	XBFMT            SCREEN-CONTROL
	DDUM	DEMODD			
	PDIV				
	ENTRY	XBFMT			
	EXPROC	FMOVE 
	EXPROC	SPCLRS			 
	EXPROC	ZMRDF			 
	EXPROC	XCLAMP
	EXPROC	XEERR 
************************************************************************
**
*        PROCEDURE-NAME:*
*                XBFMT*
*        FUNCTIONAL DESCRIPTION:*
*                THE PROCEDURE TAKES CARE OF SCREEN-CONTROL*
*                - CALLS SCREEN-I/O ( PROCEDURE-NAME IS ZMRDF ) WITH*
*                  PARAMETER:  FORMATNUMBER 
*                - SPLITS FORMATS IN PARTS*
*                  THE SIZE OF A PART DEPENDS ON THE NUMBER OF LINES*
*                  DISPOSED ON THE SCREEN ( E.G. 1 LINE FOR AN AD85 )*
*                  A PART IS ASCERTAINED BY COUNTING THE STATEMENTS*
*                  "FNL" OCCURRING IN THE FORMAT*
*                - A DUMMY FKI IS IMPLEMENTED AFTER A PART*
*                  FOR AN AD85 SCREEN : FKI 37*
*                                       FCOPY DUMMY*
*                  FOR OTHER SCREENS  : FNL*
*                                       FKI 1*
*                                       FCOPY DUMMY*
*                - AFTER A PART IS COMPLETED , CONTROL IS GIVEN TO*
*                  SCREEN-MANAGEMENT WHICH DISPLAYS THE PART ON THE*
*                  SCREEN AND CONTROLS THE KEYBOARD-INPUT*
*                  CONTROL TO THIS MODULE WILL COME BACK WHEN EITHER*
*                  "CONTINUE" OR "CANCEL" IS PRESSED ON KEYBOARD*
*                  AFTER "CONTINUE" : COMPOSE NEXT PART ;*
*                                     AFTER LAST PART , RETURN CONTROL*
*                                     TO THE CALLING MODULE*
*                  AFTER "CANCEL"   : SET CANCEL-SWITCH , RETURN *
*                                     CONTROL TO THE CALLING MODULE*
*       PARAMETERS :*
*                FORMATNUMBER  ( INPUT )*
*                CANCEL-SWITCH ( OUTPUT )*
*       USE OF VARIABLES :*
*                NONE*
*       WORKVARIABLES :*
*                LINE-COUNTER  : COUNT "FNL"-COMMANDS*
*                FORMAT-BUFFER : CONTAINS ( PART OF ) FORMAT WHICH*
*                                WILL BE USED BY SCREEN-MANAGEMENT*
**
************************************************************************
XBFMT   PROC    PWFMTNR 
        PLIT    PWFMTNR 
XB000					
	MOVE	WW1,PWFMTNR 
	CBE	WW1,=W'0',XB050
	PERF	ZMRDF,WW1,KW0	READ FORMAT IN FCFORMAT		
	TBT	SBCANCEL,XB499 
XB050 
	MOVE	WWCOUNT,KW0	LINE-COUNTER = 0

Full view