|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 750 (0x2ee)
Notes: pts_type(SC)
Names: »LEAD.SC«
└─⟦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«
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
0x000…020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT LEAD 80,10,09 NJ «, t00=0x0000, t01=0x0004}
0x020…034 Head {h00=0x0010, h01=0x0050, text=» DDUM NJDDIV«, t00=0x0000, t01=0x0024}
0x034…042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x042…056 Head {h00=0x0010, h01=0x0050, text=» ENTRY LEAD «, t00=0x0000, t01=0x0046}
0x056…060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x005a}
0x060…06a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0064}
0x06a…082 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x006e}
0x082…08c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x08c…096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x096…0a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x009a}
0x0a4…0ba Head {h00=0x0012, h01=0x0050, text=»LEAD PROC BIN «, t00=0x0000, t01=0x00a8}
0x0ba…0cc Head {h00=0x000e, h01=0x0050, text=» PBIN BIN «, t00=0x0000, t01=0x00be}
0x0cc…0d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d0}
0x0d6…10a Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE CREATES A PREAMBLE IN TSTR4.«, t00=0x0000, t01=0x00da}
0x10a…144 Head {h00=0x0036, h01=0x0050, text=»* THE PREAMBLE CONSISTS OF ESC,CURSORPOS,ATTRIBUTE«, t00=0x0000, t01=0x010e}
0x144…14e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0148}
0x14e…16c Head {h00=0x001a, h01=0x0050, text=» MOVE TSTR4,ESC ESCAPE«, t00=0x0000, t01=0x0152}
0x16c…1aa Head {h00=0x003a, h01=0x0050, text=» XCOPY TSTR4,CBIN1,CBIN2,TCURPOS,CBIN0 CURSORPOSITION «, t00=0x0000, t01=0x0170}
0x1aa…1c8 Head {h00=0x001a, h01=0x0050, text=» CBE BIN,CBIN2,LEAD02 «, t00=0x0001, t01=0x001e}
0x1c8…202 Head {h00=0x0036, h01=0x0050, text=» XCOPY TSTR4,CBIN3,CBIN1,CATTRIB1,CBIN0 NUM + MOD «, t00=0x0001, t01=0x003c}
0x202…214 Head {h00=0x000e, h01=0x0050, text=» B LEAD09 «, t00=0x0001, t01=0x0076}
0x214…222 Head {h00=0x000a, h01=0x0050, text=»LEAD02«, t00=0x0001, t01=0x0088}
0x222…256 Head {h00=0x0030, h01=0x0050, text=» XCOPY TSTR4,CBIN3,CBIN1,CATTRIB2,CBIN0 MOD «, t00=0x0001, t01=0x0096}
0x256…264 Head {h00=0x000a, h01=0x0050, text=»LEAD09«, t00=0x0001, t01=0x00ca}
0x264…270 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x00d8}
0x270…27e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0001, t01=0x00e4}
0x27e…28a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x00f2}
0x28a…28e Head {h00=0x4004, h01=0x0000}
0x28e…292 00 01 00 fe ┆ ┆
0x292…29a (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x29a…2ca (3, 2, 48) 00 24 00 20 00 1e 07 2a f8 5c 07 35 f8 52 07 40 f8 48 07 4d fa 56 07 76 f8 38 07 c0 f8 2e 07 cb f8 24 ff ff 00 0b 00 04 40 04 00 00 00 0b 00 2c ┆ $ * 5 R @ H M V v 8 . $ @ ,┆
0x2ca…2ee (4, 2, 36) 00 18 00 14 00 12 07 ec f8 66 08 2d f8 1a 08 4c f8 9e 08 52 f8 0a ff ff 00 0c 00 04 40 04 00 00 00 0c 00 20 ┆ f - L R @ ┆