|
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: 4560 (0x11d0)
Notes: pts_type(SC)
Names: »DELOCK.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DELOCK.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DELOCK.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DELOCK.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DELOCK.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DELOCK.SC«
IDENT DELOCK REL 10.0 80-04-11 79-02-28/ANLI * ************************************************************************ * * SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800 * * ROUTINE FOR SETTING THE POSITION-INDICATORS FOR * THE KEY-LOCKS AND/OR TEST THE AUTHORITY OF THE * OPERATOR ACCORDING TO A GIVEN MASK. * * THE MODULE IS ENTERED WITH THE STATEMENT: * * * PERF DELOCK,OPTION,KEYIND * * * WHERE: * - KEYIND = ITEM HOLDING THE END-KEY-INDEX * - OPTION = BIN-ITEM TELLING WANTED FACILITY * - 0 = SET INDICATOR ONLY * - 1 = SET INDICATOR AND TEST * - 2 = TEST ONLY * * IF THE AUTHORITY-TEST IS UNSUCCESSFUL * CONDITION IS SET TO ERROR (=2) AND * ERROR-CODE (DEBINW4) IS SET TO 4. * * IF THE SET-OPTION IS PERFORMED, RETURN-CODE * IS GIVEN IN DEBINW3: * - 0 = OK * - 1 = POWER OFF * - 2 = ERROR * - 3 = KEY-LOCK TURNED * ************************************************************************ * DDUM DEDDIV PDIV * * ***** ENTRY ***** * ENTRY DELOCK * * ***** EXTERNALS ***** * EXT UPDBOL EXT UPDBIN EXT SETB EXT CLEARB EXT MSKOUT EJECT * ************************************************************************ * * ENTRY-POINT / PROGRAM-START * ************************************************************************ * DELOCK PROC OPTION,KEYIND * MOVE DEBIN4,DEBINW4 SAVE ERROR-CODE MOVE DEBIN3,W2 SET RETURN-CODE BERR A000 INPUT-ERROR ? MOVE DEBIN3,W1 SET RETURN-CODE CBE KEYIND,W0,A000 POWER-OFF ? MOVE DEBIN3,W0 SET RETURN-CODE A000 CALL UPDBIN,DEBIN1 MOVE POSITION-IND. TO BIN CBG OPTION,W1,A200 NO SET ? CBL KEYIND,W0,A100 KEY-LOCK TURNED ? CBE OPTION,W0,A900 NO TEST ? B A210 EJECT * * ***** SET INDICATOR ***** * A100 MOVE DEBIN2,KEYIND MOVE KEYIND TO WORKITEM ADD DEBIN2,W16 CALCULATE BIT-INDEX CBL DEBIN2,W12,A120 KEY TURNED ON ? A110 CALL CLEARB,DEBIN1,DEBIN2 INDICATE KEY OFF B A190 A120 ADD DEBIN2,W4 ADJUST BIT-INDEX CBL DEBIN2,W12,A900 NO KEY-INDEX ? CALL SETB,DEBIN1,DEBIN2 INDICATE KEY ON * A190 CALL UPDBOL,DEBIN1 UPDATE POSITION-IND. EJECT * * ***** TEST AUTHORITY ***** * A200 MOVE DEBIN3,W3 SET RETURN-CODE CBL OPTION,W1,A900 NO TEST ? * A210 CALL MSKOUT,DEBIN1,KEYMSK CBE DEBIN1,KEYMSK,A900 WANTED KEY ON ? * * ***** TEST UNSUCCESSFUL ***** * A800 MOVE DEBIN3,W2 SET RETURN-CODE MOVE DEBIN4,W4 SET ERROR-CODE = 4 EJECT * * ***** RETURN TO CALLING MODULE ***** * A900 CBG OPTION,W1,A910 NO SET PERFORMED ? MOVE DEBINW3,DEBIN3 RESTORE RETURN- AND... MOVE DEBINW4,DEBIN4 ...ERROR-CODE A910 CBE DEBIN3,W2,A920 ERROR ? CMP W0,W0 SET CONDITION = 0 B A990 A920 CMP W0,W1 SET CONDITION = 2 * A990 RET * PEND * END