{$NOLIST} {[A+,B+,L-,K+,R+] Pasmat directive } { General purpose bit definitions for Pascal-3 } { Version 1.0 File: EX:[22,320]BITS.TYP Author: Jim Bostwick 13-Sep-84 (cloned from CBluffs work) History: Last Edit: 4-DEC-1984 13:29:17 } {*USER* This file defines data types useful in manipulating individual bits from a Pascal-3 program. bit_name labels each bit (b0...b17). bit_set and bit_array each consume a word, and are usefull when loopholed against each other. bit_field_width is useful when only the first n bits of a word are significant for example, a value of 10 (octal) specifies the low byte of a word. } TYPE bit_name = (b0, b1, b2, b3, b4, b5, b6, b7, b10, b11, b12, b13, b14, b15, b16, b17); { the bits of a 16-bit word, named in octal. bo is least significant bit, b17 is sign bit } bit_set = SET OF bit_name; bit_array = PACKED ARRAY [1..16] OF boolean; Bit_field_width = 0..17B; { number of significant bits -- in other words bo..n } {$LIST}