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

⟦3079ef484⟧ 

    Length: 1402 (0x57a)
    Notes: pts_type(SC)
    Names: »SPDDIV.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »SCREEN/SPDDIV.SC«

PTS(SC)

	IDENT SPDDIV REQUIRED VARIABLES REL 10.0 
* 
*   MINI DATA DIVISION FOR DISPLAY TASKS
* 
 DDIV 
 OPTNS ADRMOD=2 2-BYTE ADDRESSING EVERYWHERE
* 
 TERM T1
 TWB TB1
 START START
 STACK 64 
* 
SPDSDYKB DSET FC=20 
SPDSSCRN DSET FC=50,BUFL=100
SPDSPRT DSET FC=30,BUFL=100 
	FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN
 EJECT
* 
TB1 BLK 
SPPROMPT BOOL 
SPCHANGE BOOL 
SPERCALL BOOL 
SPBINW1 BIN 
SPBINW2 BIN 
SPBINW3 BIN 
SPBINW4 BIN 
SPSTRGW1 STRG 2 
SPINPUT STRG 62 
* 
 PDIV 
START 
 END

Full view