|
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: 7670 (0x1df6)
Notes: pts_type(SC)
Names: »TASKS1.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/TASKS1.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/TASKS1.SC«
IDENT TASKS1 830920 EV DDUM KMD08 PDIV ENTRY S1INIT SPOOLPRINT TASK EXT MASK INCLUDE EQUATE EJECT S1INIT PAUSE MOVE SSBINW1,=W'-1' DSC1 SII,X'0B',SSBINW1 DSC1 SIO,X'0B',SSBINW1 SKO100 TBT SKEDOK,SKO200 DELAY CBINMAX B SKO100 EJECT SKO200 MOVE SSSTRG2,CBLANKS MOVE SSBINW1,=W'128' DELAY DELAY SSBINW1 * MAIN LOOP TBF PRAKTIV,SKO200 NO LP AVAILABLE? TBF SKEDOK,SKO200 SCHEDULER STARTED? * SKO205 MOVE SSBINW1,CBIN0 MOVE SSBINW2,CBIN0 CBE PRIO,CBLANKS,SKO210 ANY HIGH PRIORITY? MOVE SSSTRG2,PRIO YES, SIMULATE FIRST ENTRY MOVE PRIO,CBLANKS RESET PRIORITY MOVE SSBINW5,CBIN0 B SKO230 SKO210 XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW2 1 ELEMENT XCOPY SSSTRG1,CBIN0,CBIN1,SSSTRG4,CBIN3 STATUSBYTE CBE SSSTRG1,=C'D',SKO212 DELETED WHILE PRINTING? CBE SSSTRG1,=C'P',SKO220 RELEASED FOR PRINT? ADD SSBINW2,CBIN4 NEXT ENTRY CBL SSBINW2,CUSEDLN,SKO210 ANY LEFT? B SKO200 THERE MIGHT BE PRINT NOW SKO212 * DELETED WHILE PRINTING XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0 XCOPY CUSED,SSBINW2,CBIN4,SSSTRG4,CBIN0 MOVE SSBINW2,CBIN0 XCOPY SSBINW2,CBIN1,CBIN1,SSSTRG4,CBIN2 FILE ID MOVE SSBCD4,SSBINW2 EDIT SSCURFIL,FMCURFIL B SKO325 SKO220 CBG SSSTRG2,CBLANKS,SKO225 MOVE SSSTRG2,SSSTRG4 TASKID SKO225 * FIND LOWEST FILEID FOR THIS TASK (SA..SX) MOVE SSBINW1,CBIN0 MOVE SSBINW3,=W'256' STARTVALUE FILEID MOVE SSBINW4,CBIN0 SKO230 XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW1 COPY ENTRY MOVE SSSTRG2A,SSSTRG4 CBNE SSSTRG2A,SSSTRG2,SKO240 XCOPY SSSTRG1,CBIN0,CBIN1,SSSTRG4,CBIN3 STATUSBYTE CBNE SSSTRG1,=C'P',SKO240 READY FOR PRINT? XCOPY SSBINW4,CBIN1,CBIN1,SSSTRG4,CBIN2 FIND FILEID CBG SSBINW4,SSBINW3,SKO240 MOVE SSBINW3,SSBINW4 SAVE LOWEST FILEID MOVE SSBINW5,SSBINW1 DISPL. FOR LOWEST FILEID SKO240 ADD SSBINW1,CBIN4 NEXT ENTRY CBL SSBINW1,CUSEDLN,SKO230 * SKO250 CBE SSBINW3,=W'256',SKO200 NOTHING FOR THIS TASK * INDICATE FILE PRINTING MOVE SSSTRG2A,SSSTRG2 MOVE SSSTRG1,=C'*' PRINTING MOVE SSBINW6,SSBINW5 MOVE SSBINW9,SSBINW5 SAVE FROM THE CANNIBALS ADD SSBINW6,CBIN3 XCOPY CUSED,SSBINW6,CBIN1,SSSTRG1,CBIN0 UPDATE CUSED * OPEN FILE XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW5 CURRENT ENTRY MOVE SSBCD4,SSBINW3 EDIT SSCURFIL,FMCURFIL "SPOOLNNN" ASSIGN SPOOL,1,SSBINW1,SSCURFIL,CVOL(CBIN1) BNOK SKO205 SKO260 * READY FOR SQ. READ AND PRINT MOVE SSBINW2,CBIN0 RECORD POINTER TBF PRWAIT,SKO300 WAIT SPLP CLEAR PRWAIT SKO300 ADD SSBINW2,CBIN1 XCOPY SSSTRG1,CBIN0,CBIN1,CUSED,SSBINW6 CURRENT STATUSBYTE CBE SSSTRG1,=C'*',SKO305 NOT CHANGED CBE SSSTRG1,=C'D',SKO320 TO BE DELETED AT ONCE CBNE SSSTRG1,=C'R',SKO305 MOVE SSSTRG1,=C'*' TO BE RESTARTED XCOPY CUSED,SSBINW6,CBIN1,SSSTRG1,CBIN0 B SKO260 SKO305 MOVE SSBINW1,=W'134' RREAD .NEA,SPOOL,TDISKBUF,SSBINW1,SSBINW2 BOK SKO310 PERF GETBIT,SPOOL CBE SSBCD4,=D'10',SKO320 END MEDIUM CBE SSBCD4,=D'4',SKO320 NO DATA CBE SSBCD4,=D'3',SKO310 END OF FILE MOVE SSBINW1,=W'128' MOVE TDISKBUF,=C' * L[SEFEJL * ' SKO310 TBF PRWAIT,SKO315 WAIT SPLP BOK SKO315 DELAY CBINMAX CLEAR PRWAIT SUB SSBINW2,CBIN1 RETRY B SKO300 SKO315 TBT PRAKTIV,SKO317 MOVE SSBINW1,=W'128' DELAY SSBINW1 B SKO315 SKO317 SET PRWAIT WRITE .NW,SPLP,TDISKBUF,SSBINW1 B SKO300 SKO320 XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0 XCOPY CUSED,SSBINW9,CBIN4,SSSTRG4,CBIN0 DSC0 SPOOL,CLOSE SKO325 MOVE ICIBUF,=X'00' CLEAR BUFFER MOVE SSSTRG2,=C'S1' XCOPY ICIBUF,CBIN0,CBIN2,SSSTRG2,CBIN0 XCOPY ICIBUF,CBIN2,CBIN2,CBIN6,CBIN0 FUNCTION=DLF XCOPY ICIBUF,CBIN6,CBIN8,SSCURFIL,CBIN0 FILE TO DELETE MOVE SSBINW1,=C'S0' SKEDULER SKO330 RWRITE SOO,ICIBUF,SSBINW1 BNOK SKO330 SKO340 MOVE SSBINW1,=W'64' MOVE SSBINW2,=C'S0' RREAD SOI,ICOBUF,SSBINW1,SSBINW2 'FILE DELETED' BERR SKO340 MOVE SSSTRG2,SSSTRG2A FINISH THIS TASK FIRST SET CSAVEIX B SKO205 EJECT GETBIT PROC DSET XSTAT DSET,SSBINW8 GET STATUS MOVE SSBCD4,=D'15' BITNR IN BCD MOVE SSBINW5,CBIN1 BITNR IN BIN GET10 CALL MASK,SSBINW8,SSBINW5 'AND' WITH STATUS BNZ GETRET BIT SET ADD SSBINW5,SSBINW5 NEXT BIT SUB SSBCD4,=D'1' CBG SSBCD4,=D'1',GET10 GETRET RET PEND ERDK PROC DSET PERF GETBIT,DSET CBE SSBCD4,=D'4',ERDKRET NO DATA CBE SSBCD4,=D'7',ERDKRET NEW VOL CMP CBIN0,CBIN1 ERDKRET RET PEND FMCURFIL FRMT FTEXT 'SPOOL' FMEL '999',SSBCD4 FMEND END