Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 8000 (CPM8K)/P-CP M-Z8K SOURCES/as8000/asz8kgram.c

int ptab[] {02,0,01,040400,040401,040402,040403,0100030,0100042,
        0100054,0100066,0100100,0100110,040404,0100113,0100116,040405,
        040406,040407,040410,040411,041012,041012,024,026,040400,
        040401,040402,0100030,0100042,0100066,041013,041013,024,
        026,040400,040401,040402,0100030,0100042,0100066,041014,
        0100150,035,040,040400,040401,040402,040403,0100030,0100042,
        0100066,0100153,050,040,040400,040401,040402,040403,0100030,
        0100042,0100066,041015,052,040,040400,040401,040402,040403,
        0100030,0100042,0100066,054,041016,041017,057,0420,0421,
        057,0422,0423,052,0100160,0424,062,0100173,0425,064,0100205,
        0426,066,0100221,0100232,0427,071,0100241,073,0100246,0430,
        057,0431,0100255,033,0100257,057,01032,0100255,075,0100160,
        041433,0100262,0100,040,040400,040401,040402,040403,0100030,
        0100042,0100066,0100265,0100265,0102,040,040400,040401,040402,
        040403,0100030,0100042,0100066,041434,0103,040,040400,040401,
        040402,040403,0100030,0100042,0100066,0100270,0100270,0100270,
        0105,026,040400,040401,040402,0100030,0100042,0100066,0100273,
        073,026,040400,040401,040402,0100030,0100042,0100066,0110,
        041435,041436,041436,024,026,040400,040401,040402,0100030,
        0100042,0100066,0112,0100276,0114,0100302,0100312,062,0100173,
        01437,064,0100205,01440,073,0100246,01441,0117,0100221,01442,
        076,042043,0100314,052,040,040400,040401,040402,040403,0100030,
        0100042,0100066,076,042044,076,042445};

int ntdflt[] {0100002,040446,0100121,0100124,0100127,0100127,0100132,
        0100136,0100140,0100140,0100140,0100143,040447,0100146};

int semtab[] {05015,05014,05013,03416,0463,0466,0475,0476,0477,0500,
        04403,04402,0505,0467,0471,0472,0464,06501,0465,06502,05400,
        01000,01400,02400,03000,0417,0504,05012,02007,02420,04005,
        01010,01404,03006,02411,06103,0474,0473,01,0470};

char scntab[] {0377,01,02,03,04,05,07,013,014,016,017,020,021,022,023,
        024,025,026,027,0376,011,012,01,02,03,05,07,014,0376,013,014,
        0377,01,02,03,04,05,07,014,0376,02,0377,013,0377,021,022,0376,
        0,014,0376,012,0377,011,0377,07,010,0377,010,0376,06,0377,013,
        015,0376,03,0377,04,05,0377,010,011,012,04,0376,021,0376,016,
        021,0376,07,0377};