|
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: 14130 (0x3732)
Notes: pts_type(SC)
Names: »AFMATG.SC«
└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
└─⟦this⟧ »A:AF/AFMATG.SC«
IDENT AFMATG 820114 NJ ARBEJDSFORMIDLING DDUM SPDDIV PDIV ENTRY MATC EXT SPCLRA SETPPAR EQU X'0D' MATC DISP1 SET SPPROMPT ATTFMT BILLED1 DISP1A PERF SPCLRA CBE SPBINW2,W9,DISP2 CBE SPBINW2,W10,DISP3 CLEAR SPPROMPT B DISP1A *************************************************************************** DISP2 SET SPPROMPT ATTFMT BILLED2 DISP200 PERF SPCLRA IB SPBINW2,DISP201,DISP202,DISP203,DISP204, C DISP205,DISP206,DISP207 B DISP2 DISP201 CLEAR SPPROMPT B DISP200 DISP202 DISP203 B DISP208 DISP204 PERF WAITGP MOVE TBIN1,=X'1B17' DSC SPDSPRT,SETPPAR,TBIN1 EDWRT SPDSPRT,BILLED2 CLEAR PRBUSY B DISP208 DISP205 PERF WAITGP MOVE TBIN1,=X'1B27' HIGH QUALITY DSC SPDSPRT,SETPPAR,TBIN1 EDWRT SPDSPRT,BILLED2 CLEAR PRBUSY B DISP208 DISP206 CLEAR SPPROMPT B DISP200 DISP207 B DISP1 DISP208 SET SPPROMPT B DISP200 *************************************************************************** DISP3 SET SPPROMPT ATTFMT BILLED3 PERF SPCLRA SUB SPBINW2,W3 CBL SPBINW2,W1,DISP3 CBG SPBINW2,W5,DISP3 IB SPBINW2,TSTGP1,TSTGP2,TSTGP3,TSTGP4,TSTGP5 TSTGP1 PERF WAITGP MOVE TBIN1,=X'1B27' 10 PITCH, HIGHQUALITY DSC SPDSPRT,SETPPAR,TBIN1 EDWRT SPDSPRT,BILLED4 MOVE TBIN1,=X'2B27' 12 PITCH, HIGH QUALITY DSC SPDSPRT,SETPPAR,TBIN1 EDWRT SPDSPRT,BILLED7 MOVE TBIN1,=X'1B27' 10 PITCH, HIGH QUALITY DSC SPDSPRT,SETPPAR,TBIN1 EDWRT SPDSPRT,BILLED8 B TSTGP9 TSTGP2 PERF WAITGP MOVE TBIN1,=X'1B17' 10 PITCH LOW QUALITY DSC SPDSPRT,SETPPAR,TBIN1 EDWRT SPDSPRT,BILLED4 MOVE TBIN1,=X'2B17' DSC SPDSPRT,SETPPAR,TBIN1 EDWRT SPDSPRT,BILLED7 MOVE TBIN1,=X'1B17' DSC SPDSPRT,SETPPAR,TBIN1 EDWRT SPDSPRT,BILLED8 B TSTGP9 TSTGP3 PERF WAITGP MOVE SPBINW3,=X'1801' LINE 24, POS. 1 DSC1 SPDSSCRN,6,SPBINW3 POSITION CURSOR EDWRT SPDSSCRN,MESS1 OPERATOR MESSAGE MOVE TBIN1,=X'0101' DSC SPDSFF,6,TBIN1 GRASP+POSITION MOVE TBIN1,=X'1E27' DSC SPDSFF,SETPPAR,TBIN1 EDWRT SPDSFF,BILLED5 MOVE TBIN1,=X'2E27' DSC SPDSFF,SETPPAR,TBIN1 EDWRT SPDSFF,BILLED7 MOVE TBIN1,=X'1E27' DSC SPDSFF,SETPPAR,TBIN1 EDWRT SPDSFF,BILLED8 DSC SPDSFF,1 RELEASE MOVE SPBINW3,=W'24' LINE 24 ERASE 0,SPBINW3,SPBINW3 ERASE LINE 24 B TSTGP9 TSTGP4 PERF WAITGP MOVE SPBINW3,=X'1801' LINE 24, POS. 1 DSC1 SPDSSCRN,6,SPBINW3 POSITION CURSOR EDWRT SPDSSCRN,MESS1 OPERATOR MESSAGE MOVE TBIN1,=X'0101' DSC SPDSFF,6,TBIN1 GRASP+POSITION MOVE TBIN1,=X'1E17' DSC SPDSFF,SETPPAR,TBIN1 EDWRT SPDSFF,BILLED5 MOVE TBIN1,=X'2E17' DSC SPDSFF,SETPPAR,TBIN1 EDWRT SPDSFF,BILLED7 MOVE TBIN1,=X'1E17' DSC SPDSFF,SETPPAR,TBIN1 EDWRT SPDSFF,BILLED8 DSC SPDSFF,1 RELEASE MOVE SPBINW3,=W'24' LINE 24 ERASE 0,SPBINW3,SPBINW3 ERASE LINE 24 B TSTGP9 TSTGP5 B DISP1 TSTGP9 CLEAR PRBUSY B DISP3 *************************************************************************** WAITGP PROC WAIT10 TBF PRBUSY,WAIT20 DELAY W10 B WAIT10 WAIT20 SET PRBUSY RET PEND *************************************************************************** MESS1 FRMT FSL FCOPY ='IS[T PAPIR I FRONT-FEED OG TAST START/STOP' FMEND BILLED1 FRMT FSL FNL FHIGH FTAB 4 FILLR '*',40 FILLR '*',35 FNL FHIGH FTAB 4 FILLR '*',1 FTAB 78 FILLR '*',1 FNL FHIGH FTAB 4 FILLR '*',1 FTAB 11 FCOPY =C'P H I L I P S T E R M I N A L S Y S T E M' FCOPY =C' P T S 6 0 0 0' FTAB 78 FILLR '*',1 FNL FHIGH FTAB 4 FILLR '*',1 FTAB 78 FILLR '*',1 FNL FHIGH FTAB 4 FILLR '*',40 FILLR '*',35 FNL 2 FLOW FTAB 4 FCOPY =C'PHILIPS DATA SYSTEMER A/S' FCOPY =C' BYDER DEM VELKOMMEN TIL DENNE OFF-LINE ' FCOPY TEST FNL FTAB 4 FCOPY =C'AF PTS 6000.' FNL 2 FTAB 4 FCOPY =C'FOR AT STARTE ' FCOPY TEST FCOPY =C' AKTIVERES FUNKTIONSTASTERNE:' FNL 3 FHIGH FTAB 14 FCOPY ='PA 1:' FILLR ' ',2 FCOPY TEST FCOPY =C' SK[RM OG' FCOPY =C' SKRIVER' FNL 2 FHIGH FTAB 14 FCOPY ='PA 2:' FILLR ' ',2 FCOPY TEST FCOPY =C' SKRIVER' FNL 4 FLOW FTAB 29 FCOPY =C'*** GOD FORN' FILLR X'5C',1 FCOPY =C'JELSE ***' FNL FKI 1 FMEL 'Z',BCDWK FMEND *************************************************************************** BILLED2 FRMT FSL FCOPY =C'PHILIPS TERMINAL SYSTEM PTS 6000' FTAB 40 FCOPY ='FUNKTION: ' FCOPY TEST FCOPY =' SK[RM OG' FCOPY =' SKRIVER' FNL 2 FCOPY =C'PERSONNR: ' FKI 11,ME,MINL=10,MAXL=10,REWRT FMEL '999999E-9999',TCPRNR FNL 2 FCOPY ='STILLING:' FKI 11,ALPHA,MAXL=30 FCOPY TSTILLNG FNL FCOPY ='NAVN :' FKI 11,ALPHA,MAXL=39 FCOPY TNAVN FNL FCOPY ='ADRESSE :' FKI 11,ALPHA,MAXL=39 FCOPY TADRES FNL FCOPY ='POSTNR :' FKI 11,MINL=4,MAXL=4,ME FMEL '9999',TPOSTNR FILLR ' ',2 FCOPY ='POSTDIST:' FKI 26,ALPHA,MAXL=34 FCOPY TPOSTD FTAB 62 FCOPY ='TLF:' FKI 66,MINL=8,MAXL=8,REWRT FMEL '99E-99B99B99',TTLFNR FNL 2 FCOPY ='EVT. C/O ADRESSE:' FKI 19,MAXL=31,ALPHA FCOPY TCOADRES FNL 2 FCOPY =C'BEM[RKNINGER:' FKI 14,MAXL=67,ALPHA FCOPY TBEM1 FNL FKI 14,MAXL=67,ALPHA FCOPY TBEM2 FNL FKI 14,MAXL=67,ALPHA FCOPY TBEM3 FNL FKI 14,MAXL=67,ALPHA FCOPY TBEM4 FNL FKI 14,MAXL=67,ALPHA FCOPY TBEM5 FNL 2 FILLR '*',40 FILLR '*',40 FNL FCOPY ='VEJLEDNING: UDFYLD OPLYSNINGSFELTER, IDET ' FCOPY ='FELTERNE AFSLUTTES MED TASTEN: ENTER.' FNL FTAB 13 FCOPY =C'EFTER INDTASTNING AF OPLYSNINGER KAN V[LGES ' FCOPY =C'NY FUNKTION MED TASTEN:' FNL 2 FHIGH FTAB 13 FCOPY ='PF 1:' FCOPY =' SKRIV KOPI. ' FCOPY ='DATA-KVALITET' FTAB 47 FCOPY ='PF 2:' FCOPY =' SKRIV KOPI. ' FCOPY ='TEKST-KVALITET' FNL FHIGH FTAB 13 FCOPY ='PF 3:' FCOPY =' INDTAST OPLYSNINGER' FTAB 47 FCOPY ='PF 4:' FCOPY ='RETUR TIL 1. BILLEDE' FNL FKI 79 FMEL 'Z',BCDWK FMEND *************************************************************************** BILLED3 FRMT FSL FCOPY ='PHILIPS TERMINAL SYSTEM PTS 6000' FTAB 43 FCOPY ='FUNKTION: ' FCOPY TEST FCOPY =' SKRIVER' FNL 3 FHIGH FCOPY ='VEJLEDNING: FUNKTIONERNE V[LGES VED AKTIVERING' FCOPY =' AF TASTEN' FNL 2 FHIGH FTAB 12 FCOPY ='PF 1:' FILLR ' ',1 FCOPY ='UDSKRIVNING' FCOPY =' ENDEL' FILLR X'5C',1 FCOPY ='S PAPIR BANE ' FCOPY ='TEKST-KVALITET' FNL 2 FHIGH FTAB 12 FCOPY ='PF 2:' FILLR ' ',1 FCOPY ='UDSKRIVNING' FCOPY =' ENDEL' FILLR X'5C',1 FCOPY ='S PAPIR BANE ' FCOPY ='DATA-KVALITET' FNL 2 FHIGH FTAB 12 FCOPY ='PF 3:' FILLR ' ',1 FCOPY ='UDSKRIVNING' FCOPY =' A4-ARK I FRONT-FEED ' FCOPY ='TEKST-KVALITET' FNL 2 FHIGH FTAB 12 FCOPY ='PF 4:' FILLR ' ',1 FCOPY ='UDSKRIVNING' FCOPY =' A4-ARK I FRONT-FEED ' FCOPY ='DATA-KVALITET' FNL 2 FHIGH FTAB 12 FCOPY ='PF 5:' FILLR ' ',1 FCOPY ='RETUR TIL 1. BILLEDE' FNL FKI 1 FMEL 'Z',BCDWK FMEND *************************************************************************** BILLED4 FRMT FILLR '1',2 SAME LINE FLINK BILLED6 FMEND BILLED5 FRMT FILLR '+',2 FLINK BILLED6 FMEND BILLED6 FRMT FILLR ' ',3 FILLR '*',40 FILLR '*',34 FEOR FILLR ' ',5 FILLR '*',1 FILLR ' ',36 FILLR ' ',36 FILLR '*',1 FEOR FILLR ' ',5 FILLR '*',1 FILLR ' ',6 FCOPY ='P H I L I P S T E R M I N A L S Y S T E M' FCOPY =' P T S 6 0 0 0' FILLR ' ',6 FILLR '*',1 FEOR FILLR ' ',5 FILLR '*',1 FILLR ' ',36 FILLR ' ',36 FILLR '*',1 FEOR FILLR ' ',5 FILLR '*',40 FILLR '*',34 FEOR FILLR '0',2 FEOR FILLR '0',2 FILLR ' ',3 FCOPY ='DETTE ER PHILIPS DATA SYSTEMER' FILLR X'27',1 SINGLE QUOTE FCOPY ='S NYE GENERELLE SKRIVER:' FEOR FILLR '0',2 FEOR FILLR ' ',22 FILLR X'12',1 FCOPY ='P T S G P 6 3 7 4 / 7 5' FILLR X'13',1 FEOR FILLR '0',2 FEOR FILLR ' ',5 FCOPY ='DER SAMTIDIG KAN ANVENDES FOR ' FCOPY ='DATABEHANDLING' FCOPY =' OG ' FCOPY ='TEKSTBEHANDLING' FEOR FILLR ' ',5 FCOPY ='HIDTIL HAR DET V[RET N' FILLR X'5C',1 FCOPY ='DVENDIGT AT ANVENDE FORSKELLIGE SKRIVERE' FEOR FILLR ' ',5 FCOPY ='TIL DE 2 OPGAVER:' FEOR FILLR ' ',2 FILLR ' ',10 FCOPY ='DATABEHANDLING' FCOPY =' : H' FILLR X'5C',1 FCOPY ='J ' FCOPY ='SKRIVEHASTIGHED' FCOPY =' / MIDDEL ' FCOPY ='SKRIVEKVALITET' FEOR FILLR '0',2 FILLR ' ',10 FCOPY ='TEKSTBEHANDLING' FCOPY =': H' FILLR X'5C',1 FCOPY ='J ' FCOPY ='SKRIVEKVALITET' FCOPY =' / MIDDEL ' FCOPY ='SKRIVEHASTIGHED' FEOR FILLR '0',2 FEOR FILLR ' ',5 FCOPY ='PHILIPS GENERELLE SKRIVER GP 6374/75 D[KKER BEGGE' FCOPY =' OPGAVEOMR]DER' FEOR FILLR ' ',5 FCOPY ='I EEN OG SAMME SKRIVEENHED.' FEOR FILLR '0',2 FEOR FILLR ' ',5 FCOPY ='SKRIVEHASTIGHED' FCOPY =': ' FCOPY ='DATABEHANDLING' FCOPY =': OP TIL 300 ' FCOPY ='TEGN PR. SEKUND' FEOR FILLR ' ',22 FCOPY ='TEKSTBEHANDLING' FCOPY =': 80 ' FCOPY ='TEGN PR. SEKUND' FEOR FILLR '0',2 FILLR ' ',3 FCOPY ='SKRIVEBREDDE: 305 MM OG DET MAKSIMALE ANTAL TEGN ' FILLR ' ',3 FCOPY =' PR. LINIE ER VED' FEOR FILLR ' ',20 FCOPY ='10' FCOPY =' TEGN PR. TOMME ' FCOPY ='120 TEGN OG VED' FEOR FILLR ' ',20 FCOPY ='12' FCOPY =' TEGN PR. TOMME ' FCOPY ='144 TEGN' FEOR FMEND BILLED7 FRMT FILLR '0',2 FILLR ' ',3 FCOPY ='UDSKRIVNING' FCOPY =' KAN FORETAGES VED HJ[LP AF ' FCOPY ='FRIKTIONSFREMF' FILLR X'5C',1 FCOPY ='RING,' FEOR FILLR ' ',5 FCOPY ='TRAKTORFREMF' FILLR X'5C',1 FCOPY ='RING OG VED ANVENDELSE AF FRONTINDF' FILLR X'5C',1 FCOPY ='RING' FEOR FILLR '0',2 FILLR ' ',3 FCOPY ='LINIEAFSTANDEN KAN V[RE HENHOLDSVIS 3,4,6,8 ELLER 12 ' FCOPY ='LINIER PR. TOMME' FEOR FILLR '0',2 FILLR ' ',3 FCOPY ='SKRIVEREN ER LET AT BETJENE MED HENSYN TIL F.EKS.' FCOPY =' IS[TNING AF NY' FEOR FILLR ' ',5 FCOPY ='PAPIR BANE SAMT UDSKIFTNING AF FARVEB]ND' FEOR FMEND BILLED8 FRMT FILLR '0',2 FILLR ' ',3 FCOPY ='SKRIVEREN HAR FORUDEN ALMINDELIG SKRIFT OGS]' FCOPY =' MULIGHED FOR AT ' FEOR FILLR ' ',5 FCOPY ='KUNNE ANVENDES FOR ' FCOPY ='UDSKRIVNING' FCOPY =' AF BOGSTAVER' FCOPY =' OG TAL I FORSKELLIGE STORE ' FEOR FILLR ' ',5 FCOPY ='ST' FILLR X'5C',1 FCOPY ='RRELSER SAMT LOGO' FILLR X'27',1 FCOPY ='S.' FEOR FNL FNL FMEND END