|
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: 4782 (0x12ae)
Notes: pts_type(SC)
Names: »ATTRIB.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/ATTRIB.SC«
└─⟦this⟧ »BARCLAY/ATTRIB.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/ATTRIB.SC«
IDENT ATTRIB 80.10.31 NJ DDUM NJDDIV * * THIS MODULE TAKENS HAND ON CONVERTING THE * ATTRIBUTE CHARACTER TO AND FROM 5 BOOLEANS. * IN THIS WAY IT IS EASIER TO TEST AND * MODIFY THE ATTRIBUTE CHAR * PDIV ENTRY ATTUNP ENTRY ATTPCK ENTRY TMASK EXT MASK EXPROC PUSH,PBIN EXPROC PULL,PBIN EJECT ATTUNP PROC BUF,DISP * * THE PROCEDURE UNPACKS THE ATTRIBUTE * INTO 5 BOOLEANS: * TANODISP - NON-DISPLAY * TAHILITE - HIGHLIGHT * TAMODIF - MODIFIED * TAPROTEC - PROTECTED * TARITJUS - RIGHT JUSTIFIED = NUMERIC * PSTRG BUF PBIN DISP * PERF PUSH,CBIN2 MOVE TBIN1,CBIN0 MOVE TBIN2,CBIN0 XCOPY TBIN1,CBIN1,CBIN1,BUF,DISP MOVE ATTRIBUTE CHARACTER MOVE TBIN2,CBIN1 START WITH RIGHTMOST BIT PERF TMASK,TANODISP SET BOOLEAN IF BIT WAS SET PERF TMASK,TAHILITE PERF TMASK,TAMODIF PERF TMASK,TAPROTEC PERF TMASK,TARITJUS TBF TAHILITE,ATT010 HIGHLIGHT OVERRIDES NON-DISP CLEAR TANODISP ATT010 PERF PULL,CBIN2 RET PEND EJECT TMASK PROC BOO * * THE PROCEDURE TAKES THE LOGICAL PRODUCT OF TBIN1 * AND TBIN2. IF THE BIT WAS SET, THE BOOLEAN * SPECIFIED IN THE PARAMETER, WILL BE SET, ELSE * CLEARED. * TBIN2 WILL BE PREPARED FOR THE NEXT TEST, * E.G. MULTIPLIED BY 2 * PBOOL BOO CALL MASK,TBIN1,TBIN2 BZ TMA010 BIT(S) OFF SET BOO B TMA020 TMA010 CLEAR BOO TMA020 ADD TBIN2,TBIN2 NEXT BIT, PLEASE IS EQUIVALENT TO MULT BY 2 OR ADDING TO ITSELF RET PEND EJECT ATTPCK PROC BUF,DISP * * THE PROCEDURE BUILDS AN ATTRIBUTE CHARACTER * AND MOVES IT TO THE SPECIFIED POSITION. * PSTRG BUF PBIN DISP PERF PUSH,CBIN1 MOVE TBIN1,=W'96' BIT 7 AND 6 ALWAYS SET TBF TANODISP,ATTP010 NON-DISPLAY? ADD TBIN1,CBIN1 SET BIT1 ATTP010 TBF TAHILITE,ATTP020 HIGHLIGHT? ADD TBIN1,CBIN2 SET BIT 2 ATTP020 TBF TAMODIF,ATTP030 ADD TBIN1,CBIN4 ATTP030 TBF TAPROTEC,ATTP040 ADD TBIN1,CBIN8 ATTP040 TBF TARITJUS,ATTP050 ADD TBIN1,CBIN16 ATTP050 * THE ATTRIBUTE CHARACTER IS CREATED NOW * AND SHALL NOW BE MOVED INTO THE BUFFER XCOPY BUF,DISP,CBIN1,TBIN1,CBIN1 PERF PULL,CBIN1 RET PEND END