|
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: 4636 (0x121c)
Notes: pts_type(SC)
Names: »TEST.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/TEST.SC«
└─⟦this⟧ »BARCLAY/TEST.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/TEST.SC«
IDENT TEST DDUM NJDDIV PDIV ENTRY TEST ENTRY PRTLN ENTRY DCSEND EXPROC PUSH,PBIN EXPROC PULL,PBIN EXPROC ATTPCK,PSTRG,PBIN EXPROC ATTUNP,PSTRG,PBIN EXPROC BDE EXPROC BDEINP EXPROC ENQ EXPROC UNPPRT,PSTRG EXPROC KBREAD,PBIN,PKTAB,PBIN,PBIN EXPROC EXPAND,PSTRG,PBIN EXPROC POSCUR,PBIN,PBIN EXPROC LEAD,PBIN EXPROC SCWRIT,PSTRG,PBIN EXPROC SCRWR,PSTRG,PBIN EXPROC ERWRIT,PSTRG EXPROC FINDLN,PSTRG,PBIN,PBIN EXPROC UNPCK EXPROC ERASUP EXPROC LOLITE EXPROC CRHOME EXPROC CRNL EXPROC CRUP EXPROC CRDOWN EXPROC CRBTAB EXPROC CRFTAB EXPROC CRNEAR,PBIN EJECT INCLUDE KTABBE,LIST EJECT INCLUDE EQUATE,LIST EJECT PRTLN PROC STR PSTRG STR WRITE DSGP,STR RET PEND DCSEND PROC STRG PSTRG STRG * PERF PUSH,CBIN1 MOVE TSTR2,ESC <ESC>!<ESC> MOVE TBIN1,=W'500' MOVE TBIN2,CBIN0 MATCH TSCRBUF,TBIN2,TBIN1,TSTR2,CBIN0,CBIN2 BNOK DCS010 MOVE TSTR2,ETX <ETX>!<ETX> XCOPY TSCRBUF,TBIN2,CBIN2,TSTR2,CBIN0 DCS010 PERF PULL,CBIN1 CMP CBIN0,CBIN0 RET PEND TEST PROC TEST1 * MOVE TKBBUF,=X'4142133033344413303550' MOVE TP1,=W'30' PERF EXPAND,TKBBUF,TP1 * MOVE TP1,CBIN0 MOVE TKBBUF,=X'4142434403' PERF FINDLN,TKBBUF,TP1,CBIN17 * MOVE TSTR1,=X'FF' PERF ATTUNP,TSTR1,CBIN0 CLEAR TARITJUS PERF ATTPCK,TSTR1,CBIN0 * MOVE TCURPOS,=X'1750' PERF LEAD,CBIN1 NUM+MOD MOVE TCURPOS,=X'0101' PERF LEAD,CBIN2 MOD * PERF POSCUR,CBIN17,CBIN1 RR/CC * MOVE TSCBUF,='*' PERF SCRWR,TSCBUF,CBIN80 * MOVE TSCBUF,='!' PERF SCWRIT,TSCBUF,CBIN128,CBIN12,CBIN1 * PERF ERWRIT,TSCBUF MOVE TSCBUF,='ERRORLINE IS LINE 23 ' PERF ERWRIT,TSCBUF * MOVE TSCRBUF,=X'1B050160201B0A0160201B0F0F60201B' PERF CRHOME * PERF CRNL PERF CRNL PERF CRNL PERF CRNL PERF CRNL * PERF CRDOWN PERF CRHOME PERF CRDOWN PERF CRDOWN PERF CRDOWN PERF CRDOWN * PERF CRUP PERF CRUP PERF CRUP PERF CRUP PERF CRUP * PERF CRFTAB PERF CRFTAB PERF CRFTAB PERF CRFTAB PERF CRFTAB * PERF CRBTAB PERF CRBTAB PERF CRBTAB PERF CRBTAB PERF CRBTAB * MOVE TBIN5,=X'0A01' MOVE TBIN6,=X'0A16' MOVE TBIN1,=X'0A07' PERF CRNEAR,CBIN1 * MOVE TBIN1,=X'0A13' PERF CRNEAR,CBIN1 * MOVE TP1,CBIN1 KI DSKB,TKBBUF,KTABBE,TP1,TP2 MOVE TP1,CBIN1 KI DSKB,TKBBUF,KTABBE,TP1,TP2 * MOVE TSTR2K,ETX MOVE TKBBUF,='0002 01' XCOPY TSTR2K,CBIN0,CBIN12,TKBBUF,CBIN0 MOVE TSTR4,=X'11121111' XCOPY TSTR2K,CBIN12,CBIN4,TSTR4,CBIN0 MOVE TKBBUF,=X'1B2020624142431B242062444546' XCOPY TSTR2K,CBIN16,CBIN14,TKBBUF,CBIN0 MOVE TKBBUF,=X'1B272062471B2721624849' MOVE TBIN1,=W'30' XCOPY TSTR2K,TBIN1,CBIN16,TKBBUF,CBIN0 PERF UNPCK * PERF LOLITE * PERF ERASUP * MOVE TSTR80,=X'3132333412313233343536' XCOPY TSCRBUF,CBIN0,CBIN12,TSTR80,CBIN0 MOVE TSTR80,=X'371212123132333435363738' XCOPY TSCRBUF,CBIN12,CBIN12,TSTR80,CBIN0 MOVE TSTR80,=X'414243441250515253121103' MOVE TBIN1,=W'24' XCOPY TSCRBUF,TBIN1,CBIN12,TSTR80,CBIN0 PERF UNPPRT,TSCRBUF * TEST2 PERF POSCUR,CBIN1,CBIN1 MOVE LENGTH,CBIN12 PERF KBREAD,LENGTH,KTABBE,TP1,CBIN2 MOVE TBCD4,LENGTH EDWRT DSDY,KBFMT B TEST2 * PERF ENQ * PERF BDEINP * PERF BDE * B TEST1 RET PEND KBFMT FRMT FNL FNL FCOPY TKBBUF FILLR ' ',2 FMEL '999',TBCD4 FILLR ' ',40 FILLR '.',1 FMEND END