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

⟦f6fd4f966⟧ 

    Length: 750 (0x2ee)
    Notes: pts_type(SC)
    Names: »LEAD.SC«

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »BARCLAY/LEAD.SC« 
    └─⟦this⟧ »BARCLAY/LEAD.SC« 
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
    └─⟦this⟧ »BARCLAY/LEAD.SC«

PTS(SC)

 IDENT LEAD 80,10,09 NJ 
 DDUM NJDDIV
 PDIV 
 ENTRY LEAD 
* 
* 
 INCLUDE EQUATE 
* 
* 
 EJECT
LEAD PROC BIN 
 PBIN BIN 
* 
* THE PROCEDURE CREATES A PREAMBLE IN TSTR4.
* THE PREAMBLE CONSISTS OF ESC,CURSORPOS,ATTRIBUTE
* 
 MOVE TSTR4,ESC ESCAPE
 XCOPY TSTR4,CBIN1,CBIN2,TCURPOS,CBIN0 CURSORPOSITION 
 CBE BIN,CBIN2,LEAD02 
 XCOPY TSTR4,CBIN3,CBIN1,CATTRIB1,CBIN0 NUM + MOD 
 B LEAD09 
LEAD02
 XCOPY TSTR4,CBIN3,CBIN1,CATTRIB2,CBIN0 MOD 
LEAD09
 RET
 PEND 
 END

Full view