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

⟦d11e6a16d⟧ 

    Length: 4738 (0x1282)
    Notes: pts_type(SC)
    Names: »SPDDIV.SC«

Derivation

└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
    └─⟦this⟧ »A:AF/SPDDIV.SC«

PTS(SC)

 IDENT SPDDIV 820111 NJ ARBEJDSFORMIDLINGEN 
* 
*	DATA DIVISION FOR DISPLAY TASKS 
* 
 DDIV 
 TERM T0
* 
 CWB CB1
 CWB CB2

 TWB TB1
 TWB TB2
* 
SPDSDYKB DSET FC=X'20',DEV=KA 
SPDSLMP DSET FC=X'40' 
SPDSSCRN DSET FC=X'50',BUFL=126,DEV=DY
SPDSPRT DSET FC=X'30',BUFL=256,DEV=GP CONT-FORM 
SPDSFF DSET FC=X'31',BUFDS=SPDSPRT,DEV=GP FRONTFEED 
	FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN
* 
 START MATC 
 STACK 128
 EJECT
CB1 BLK 
* 
PRBUSY BOOL F 
* 
* 
* 
* 
* 
* 
* 
* 
W0 BIN '0'
W1 BIN '1'
W2 BIN '2'
W3 BIN '3'
W4 BIN '4'
W5 BIN '5'
W6 BIN '6'
W7 BIN '7'
W8 BIN '8'
W9 BIN '9'
W10 BIN '10'
W11 BIN '11'
W12 BIN '12'
W13 BIN '13'
W14 BIN '14'
W15 BIN '15'

CB2 BLK 
W16 BIN '16'
W17 BIN '17'
W18 BIN '18'
W19 BIN '19'
D0 BCD D'0' 
D1 BCD D'1' 
TEST STRG X'414650525C564E494E47' 
 EJECT
TB1 BLK 
SPPROMPT BOOL T 
SPCHANGE BOOL 
SPERCALL BOOL F 
SPBINW1 BIN 
SPBINW2 BIN 
SPBINW3 BIN 
SPBINW4 BIN 
* 
TBIN1 BIN 
TBIN2 BIN 
TBIN3 BIN 
TBIN4 BIN 
TBIN5 BIN 
BCDWK BCD 8 
WDEC15 BCD 15 


TB2 BLK 
TCPRNR BCD 12 
TPOSTNR BCD 6 
TTLFNR BCD 10 
SPINPUT STRG 72 
SPSTRGW1 STRG 1 
TSTILLNG STRG 30
TNAVN STRG 39 
TADRES STRG 39
TPOSTD STRG 34
TCOADRES STRG 31
TBEM1 STRG 67 
TBEM2 STRG 67 
TBEM3 STRG 67 
TBEM4 STRG 67 
TBEM5 STRG 67 
 PDIV 
 EXT START
 END

Full view