|
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: 4702 (0x125e)
Notes: pts_type(SC)
Names: »ADM45.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/ADM45.SC«
IDENT ADM45 830908 EV DDUM KMD08 * THIS MODULE TAKES HAND OF ALL ADMINISTRATION * REGARDING THE SPOOLING SYSTEM. PDIV ENTRY AD4500 EXT ADMRET EXT SPCLRA EXT SPERR EXT CLEAR8 EXT RAREAD EXT LOWRIT EXT SPCLRN INCLUDE EQUATE EJECT AD4500 TBF CS0ACTIV,AD45OUT SET SPPROMPT CLEAR TTLOKFLG MOVE GSWSTR2,CTID(TTASKNR) DEFAULT CBNE TTASKNR,CBIN1,AD45010 SET TTLOKFLG TC CAN SPEC. ALL TASKS AD45010 ATTFMT FMTVALG MOVE GSWBCD6,=D'1' PERF SPCLRN CBNE SPBINW2,CBIN3,AD45OUT * MOVE GSWBIN8,GSWBCD6 MOVE GTEJBUF,CBLANKS PERFI GSWBIN8,BLD4,BLD5,BLD6,BLD7,BLD8,BLD9,BLD10,BLD11 CBE GSWBIN8,CBIN4,AD45OUT MOVE GSWBIN9,CBIN1 PREVENT ZERO-CONDITION ADD GSWBIN8,CBIN3 ADJUST INDEX PERF LOWRIT,GSWBIN8 AD45OUT B ADMRET EJECT BLD4 PROC PRINT MY DATA EDIT GTEJBUF,RELSPL RET NO PARAMETERS PEND BLD5 PROC SPOOLFILE SURVEY RET NO PARAMETERS PEND BLD6 PROC DELETE SPOOLFILE ATTFMT FMTSLET PERF SPCLRA EDIT GTEJBUF,DELETE RET PEND BLD7 PROC STATUS MOVE GSWBCD1,=D'0' TBF PRAKTIV,BLD705 MOVE GSWBCD1,=D'1' BLD705 MOVE GSWBCD2,=D'0' TBF CSPOOL,BLD707 MOVE GSWBCD2,=D'1' BLD707 ATTFMT STATFM1 PERF SPCLRN CBNE SPBINW2,CBIN3,BLD7X CBE GSWBCD1,=D'0',BLD720 PRINTER INAKTIV CBE GSWBCD1,=D'1',BLD730 PRINTER AKTIV BLD710 CBE GSWBCD2,=D'0',BLD740 SPOOL INAKTIV CBE GSWBCD2,=D'1',BLD750 SPOOL AKTIV B BLD7X BLD720 CLEAR PRAKTIV B BLD710 BLD730 SET PRAKTIV B BLD710 BLD740 CLEAR CSPOOL B BLD7X BLD750 SET CSPOOL BLD7X RET NO PARAMETERS PEND BLD8 PROC PRIORITY ATTFMT FMTPRIO PERF SPCLRN EDIT GTEJBUF,PRIOTY RET PEND BLD9 PROC LIST INDEXFILES RET PEND BLD10 PROC CLOSE SPOOLFILE MOVE GSWBIN8,CBIN0 ADJUST INDEX RET PEND BLD11 PROC RESTART SPOOLFILE RET PEND EJECT RELSPL FRMT FILLR ' ',6 FCOPY GSWSTR2 FMEND DELETE FRMT FILLR ' ',6 FTEXT 'SPOOL' FMEL '999',GSWBCD7 FMEND PRIOTY FRMT FILLR ' ',6 FCOPY GSWSTR2 FMEND FMTVALG FRMT FSL FTEXT '1-PRINT SPOOLDATA' FNL FTEXT '2-SPOOLFILE OVERSIGT' FNL FTEXT '3-SLET SPOOLFILE' FNL FTEXT '4-STATUS PRINTER/SPOOL' FNL FTEXT '5-PRIORITERING' FNL FTEXT '6-LIST INDEXFILE' FNL FTEXT '7-AFSLUT SPOOLFILE' FNL FTEXT '8-RESTART SPOOLFILE' FNL FTEXT 'V[LG RUTINE:' FKI 15,MINL=1,MAXL=1,NUM FMEL '9',GSWBCD6 FNL FBF GTMASTFL,FMTV010 FTEXT ' HVILKET TASK?' FKI 20,MINL=2,MAXL=2,ALPHA FCOPY GSWSTR2 FMTV010 FMEND FMTSLET FRMT FSL FTEXT 'HVILKEN SPOOLFILE SKAL SLETTES?' FNL FTEXT 'SPOOL' FKI 6,MINL=3,MAXL=3,NUM FMEL '999',GSWBCD7 FMEND FMTPRIO FRMT FSL FTEXT 'TASK ' FKI 6,MINL=2,MAXL=2,ALPHA FCOPY GSWSTR2 FTEXT ' SKAL PRINTES SOM N[STE.' FNL FKI 1 FMEL 'B',GSWBCD1 FMEND STATFM1 FRMT FSL FCOPY ='PRINTER ' FBF PRAKTIV,STATFM10 FILLR ' ',2 FB STATFM20 STATFM10 FCOPY ='IN' STATFM20 FCOPY ='AKTIV' FKI 25,MINL=1,MAXL=1,NUM FMEL '9',GSWBCD1 FNL FNL FCOPY ='SPOOLING ' FBF CSPOOL,STATFM30 FILLR ' ',2 FB STATFM40 STATFM30 FCOPY ='IN' STATFM40 FCOPY ='AKTIV' FKI 25,MINL=1,MAXL=1,NUM FMEL '9',GSWBCD2 FNL FNL FTEXT '(1=AKTIV, 0=INAKTIV)' FMEND END