|
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: 4218 (0x107a)
Notes: pts_type(SC)
Names: »CRCPOL.SC«
└─⟦8ac270cab⟧ Bits:30009705 Philips computer tape "LINSIM8-2"
└─⟦this⟧ »LINSIM82/CRCPOL.SC«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »LINSIM/CRCPOL.SC«
IDENT CRCPOL REL 1.1 78-04-21 870150040110 UPDATE #0 77.01.20 JES * * * 77.01.13 * **************************************************** * * * CRC CALCULATION * * * JANERIK * * **************************************************** * * * * * * * * * * EJECT * * * ENTRY POINTS * * ENTRY CRCCAL * * * ***************************************************************** * * BCC GENERATION CONSTANT FOR POLYNOMS TO THE HIGHT OF 16 * ***************************************************************** BCCPOL EQU /A001 CRC-16. X16+X15+X2+1 * * EXAMPLE OF ALTERNATIVE CONSTANTS * CRC-CCITT. BCCPOL= /8408. X16+X12+X5+1 * LRCC-16 . BCCPOL= /8000. X16+1 * EJECT * * * CALCULATION OF CRC * * A7 = CHARACTER * A9 = ACCUMULATED CRC * * CRCCAL EQU * ST A1,CRCSAV ST A2,CRCSAV+2 ST A7,CRCSAV+4 LDR A2,A9 LDK A1,8 CRC100 LDR A3,A2 SRL A2,1 XRR A3,A7 SRL A7,1 ANK A3,1 RF(Z) CRC110 XRKL A2,BCCPOL CRC110 SUK A1,1 RB(NZ) CRC100 LDR A9,A2 LD A1,CRCSAV LD A2,CRCSAV+2 LD A7,CRCSAV+4 RTN A14 CRCSAV RES 3 * END